【perl】没有想到，有一天竟然在chomp上翻车了

原创于 2021-08-17 23:34:36 发布 · 465 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

芯片前端脚本

博客讲述了作者在使用Perl时遇到的一个问题，由于误用chomp函数，导致文件头信息的作者和时间字段长期显示为1。文章详细分析了chomp函数的工作原理，即它修改传入的参数而不是复制，返回值为移除的字符数。作者对此功能的实际用途感到困惑，并分享了Perl中省略函数括号的特性，强调了理解语言细节的重要性。

你要是不用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会尽量了解的你的含义”，真是神奇的语言，像风一样自由~

标签

#perl