想请教各位大大
perl -e 'foreach $p (@ARGV) { $is_bad{$p} = 1; }; while(<STDIN>) { foreach $a(split(" ",$_)) { if(!$is_bad{$a}) { print "$a "; } } print "\n"; } ' `cat bad_phones.txt` < trees2.txt > trees3.txt
只看得懂指令在做档案bad_phones.txt和档案trees2.txt的比较,
但其中指令:
foreach $p (@ARGV) { $is_bad{$p} = 1; }; while(<STDIN>) { foreach $a(split(" ",$_))
看不太懂对档案做了什么处理

我推荐你去买“Perl学习手册”，这本很简单，也能解决你的问题

看不下去了 这标题真的很烂 一点鉴别度也没有

我猜发问的目的只是要处理一些应急的事件吧po出去的文没有头也不会有尾

抱歉,下次po文会改进的,谢谢

http://is.gd/2ccqw2 perl概论, 4x页的pdf 也可以看看

感激,感激以前重没碰过perl,突然研究需要,所以才急着了解