茴字的多种写法 -- 论神仙代码

兰花仙子

前几天小马的case:

12
23
34
45
56
67

想变成：

1223
3445
5667

一般大家都会想到：

perl -pe 'chomp if $. % 2' file

这个最直观易懂。



但是Randal（Perl hacker，教育家）给出这个方法：

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

这个实现得更巧妙（偶已解释过），且没有取余运算，效率会更高。



后来John W.（another Perl hacker）秀了一个更smart的方法：

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

代码写到这样就是神仙了~~ 反正偶一时半会没看明白~~

我也读过大小骆驼呀、高级编程啥的也读过一堆呀，怎么就想不到呢？

达到这一级，除了经验外，更多的是靠冰雪玲珑心了~~

    --对，一定要有一颗玲珑的慧心~~

看看“Just another Perl hacker”有多少种写法就知道了。


神仙的代码一般人是看不懂的，好在有懂的人出来点拨：

--$|   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的魅力！聪者自聪，愚者自愚，Perl还是Perl~~

[ 本帖最后由 兰花仙子 于 2009-12-1 22:09 编辑 ]

tommydu

强~

agen_0502

和您天壤之别呀

churchmice

不错
长见识了
不过估计过一个月我也不知道自己写的是啥了

wfnh

强大啊····但是···代码能读懂就好了···反正是要给别人看的·

firefoxmmx

长见识了。

ttcn_cu

perl -lpe '$\=--$|?$,/' file

谁要是在我的组里用这种代码,我一定用刀劈他

flw

原帖由 ttcn_cu 于 2009-12-2 13:57 发表


谁要是在我的组里用这种代码,我一定用刀劈他

re

DQP

原帖由 ttcn_cu 于 2009-12-2 13:57 发表


谁要是在我的组里用这种代码,我一定用刀劈他

这种代码多半是用过一次就扔了的。
给自己增加点乐趣也没什么不好。

hitsubunnu

小马 是谁？