perl -lpe '$\=--$|?$,/' file
12
23
34
45
56
67
1223
3445
5667
perl -pe 'chomp if $. % 2' file
perl -pe 'chomp; $_ .= <>' file
perl -lpe '$\=--$|?$,:$/' file
--$| toggles between 1 and 0. It is this variable's behavior when (--$| or $|--)
$| is initially 0. (NOTE: this behavior doesn't happen with ++$| or $|++).
-l chomps the line input and, for when --$| == 1, prints with $\ = $,
($, is by default the empty string). When --$| == 0, prints with $\ = $/
($/ is by default = "\n").
-p applies 'print()' as the last statement in the implicit 'while( ... )' loop
So. in effect, on the first line in, chomps the line. Then, since $|==1 in the first
iteration, prints with a line end equal to $, (by default, the empty string).
In the next line, $| will equal 0, so the print will end with $/ (default value of "\n")
perl -lpe '$\=--$|?$,
原帖由 ttcn_cu 于 2009-12-2 13:57 发表
谁要是在我的组里用这种代码,我一定用刀劈他
原帖由 ttcn_cu 于 2009-12-2 13:57 发表
谁要是在我的组里用这种代码,我一定用刀劈他
原帖由 ttcn_cu 于 2009-12-2 13:57 发表
谁要是在我的组里用这种代码,我一定用刀劈他
perl -pe 'chomp; $_ .= <>' file
perl -lpe '$\=--$|?$,
就是在下咯 
原帖由 兰花仙子 于 2009-12-2 21:58 发表
**** 本内容跟帖回复才可浏览 *****
原帖由 vabc3 于 2009-12-3 17:01 发表
larry原来参加c复杂语句大赛拿过第一 现在应该搞个perl复杂度大赛阿--
原帖由 兰花仙子 于 2009-12-1 22:04 发表
perl -lpe '$\=--$|?$,
果然是大虾级别的。。
这个肯定是娱乐代码，但能想到这样写确实是神仙了| 欢迎光临 Chinaunix (http://bbs.chinaunix.net/) | Powered by Discuz! X3.2 |
