while ( <> ) { # do something }
…它允许将脚本用作script.pl< filename>以及cat< filename> | script.pl.
现在,有没有办法确定脚本是否以前面的方式被调用,如果是,文件名是什么?
我知道我曾经知道过一次,我知道我甚至使用了这个结构,但是我不记得在哪里/如何.搜索’net for this(“perl stdin filename”?No …)非常困难.
请帮助?
$ARGV
$echo hello1 > file1 $echo hello2 > file2 $echo hello3 > file3 $perl -e 'while(<>){s/^/$ARGV:/; print;}' file* file1:hello1 file2:hello2 file3:hello3