Perl几个巧妙代码的分析

如下文本:
12
23
34
45
56
67

想要得到的结果:
1223
3445
5667


1
perl -pe "chomp if $.%2" file

2
perl -pe "chomp; $_.=<>" file

3
perl -lpe "$\=--$|?$,:$/" file

第一种解释比较好理解,奇数行chomp去掉“\n”;
第二种所有行去去掉换行符,通过连接符“.”连接读入的下一行“<>”;
第三种是最神奇的
$| 默认是为0,通过--$|实现1与0相互跳转
$, 默认是空字符串
$/ 默认是换行符
$\ 要输出的字符一般是“$/"
l 当$|=1的时候当前行chomp去掉“\n”。

你可能感兴趣的:(perl)