文本处理怪现象

jerse

测试文件test:
lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl2

lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl2
lakdjfoieaifjelfjaliejfalefjl

lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl2
lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl2


i

lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl

脚本一:
perl  -e 'undef $/;open F,"<test";while(<F>{s#lak.*2##gs,print}'
结果一:


i

lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl
脚本二:
cat test |perl -p -e  'undef $/;s#lak.*2##gs;'
结果二:
lakdjfoieaifjelfjaliejfalefjl



i

lakdjfoieaifjelfjaliejfalefjl
lakdjfoieaifjelfjaliejfalefjl
为什么第二个脚本会把测试文件的第一行漏掉不处理而直接打印出来呢,请高手指教.谢谢

jerse

自己看了一下,估计是因为程序解释时undef $/被放在while(<>{}的执行语句中间了,第一行读到的时候undef $/已经不能对它产生影响了