perl 里的<>和

kaywang

<>操作查看@ARGV来决定使用哪些文件。如果表为空，则使用标准输入流；否则，使用其找到的相应文件。也就是，在启动程序后，使用<>之前，你还有机会修改@ARGV的值。例如，下面程序可以处理3 个指定的文件，无论用户在命令行中输入了什么其它的文件：
@ARGV = qw# larry mor curly #; #强制使用这三个文件
while(<>){
chomp;
print “It was $_ that I saw in some stooge-like file!\n”;
}


#! /usr/bin/perl -w

while(<STDIN>) {
   print;
}

=======================
#! /usr/bin/perl -w

while(<>) {
   print;
}
角符 <> 和 <STDIN> 最大的不同是 <STDIN> 是由標準輸入取得資料，但：角符 <> 可以由指定的檔案取得資料，而該檔案檔名可以放在命令列中加以指定。如下例：

#! /usr/bin/perl

while (<>) {
         print;
}

# 上式存成 readfile.pl，執行法：

./readfile.pl index.html

即可將 index.html 這個檔案讀進來，並且顯示每一列的內容。

若 ./readfile 沒有任何檔案，則改由標準輸入來取得資料，此時，就和 <STDIN> 作用相同了。


==========================================================================

#! /usr/bin/perl -w
print <>; ### 相当于cat
print sort <>; ###相当于sort;