perl中 <> @argv 的疑惑。

suxingwakeup

my $what= shift @argv
while(<>){
       if(/\b($what)/){
       print "wo saw....beginning of $_"
      }
   }
各位大哥，我一问是<>得到的输入是@argv，那$what的呢？如果@argv只有一个元素，那么$what将获得其值，  <>的值 是不是要从标准输入中得到呢，如果@argv大于2个是不是第一个传给$what，其他的传给<>。
   可能表述不是很清楚，希望各位大哥不吝赐教。小弟在此拜谢。

chunchengfh

首先指出一个错误： 我想你本意是ARGV，不是argv吧；perl中区分大小写，这两个标志符是不同的。

$what 得到的是@ARGV 这个列表的第一个元素；
如果@ARGV只有一个元素，则$what得到这个元素，@ARGV为空，<>从终端读取；
如果@ARGV有多个元素，则$what得到这个第一个元素，其他的传给<>；

你可以分别用0个参数、1个或者多个参数调用你的脚本，看看表现就知道了  (-: