你要是不用chomp来处理字符串后面的换行符，都不敢说会写perl，但是万没想到有一天竟然能翻车。
事情的经过是这个样子的，我们经常要在生成的文件放一些文件头信息，比如作者时间啥的，这时比较简单的写法就是这样的：
my $user = `whoami`;
my $date = `date "+%Y-%m-%d %H:%M:%S"`;
my $name = "python_script.py";
my @line;
$name = $ARGV[0] if $#ARGV >= 0;
push(@line, "#!/usr/bin/python\n");
push(@line, "\n");
push(@line, "###############################################################\n");
push(@line, "## Name : $name\n");
push(@line, "## Author : $user");
push(@line, "## Time : $date");
push(@line, "## Description:\n");
push(@line, "## \n");
push(@line, "## \n");
push(@line, "###############################################################\n");
push(@line, "\n");通过`whoami` 和 `date "+%Y-%m-%d %H:%M:%S"`来获取作者和时间信息，然而直接获取到的信息后面实际是带换行符的，因此就需要chomp一下，但是有一段时间我写python写多了，于是写出了这种代码：
$name = chomp($name)
$date = chomp($date)这个玩意就很离谱了，因为chomp的传参相当于ref传参，传进去不是值的复制而是其本身，即函数直接修改参量，看一个现象就明白了：
#!/usr/bin/perl
my $str = "Hello, World!\n";
print $str;
print chomp($str);
print $str;
print $str;打印结果是：
Hello, World!
1Hello, World!Hello, World!可以清楚的看到，chomp($str)消除了$str尾巴上的换行符，而奇怪的是print chomp($str)打印的值是1，显然，这个函数的返回值是个奇怪的东西；
是个奇怪的东西是啥呢？
是chomp这个函数移除字符的个数。。。。。。
我不能理解这个功能有啥用，有啥场景需要用到这个值呢？？？？？就因为他返回的这个值，导致我生成的文件长达半年多的时间里，作者一直是1，时间也是1，要这函数有何用？？？？？
顺便说一句，像chomp、print这类perl函数，括号都是可以省略的：
chomp $str;因为“perl语言里面有一个通则，学perl的人都知道，那就是 只要不会因为移除括号而改变原意，括号就可加可不加”。嗯，perl就是这么自由自在，还有之前书上说的“当你不确定怎么写的时候，就按照你愿意的方向去写，perl会尽量了解的你的含义”，真是神奇的语言，像风一样自由~
