Perl钻石操作符输入

Perl中一种有趣输入的方法，钻石操作符<>

例子：

点击(此处)折叠或打开

1. [root@zsd script]# cat ex1_2.pl
   
2. #!/usr/bin/perl
   
3. while(<>){
   
4.         chomp;
   
5.         print "It was $_ that I saw!\n";
   
6. }
   
7. [root@zsd script]# cat fred
   
8. hello everyone
   
9. i see
   
10. sky is great player
    
11. [root@zsd script]# ./ex1_2.pl fred
    
12. It was hello everyone that I
    
13. It was i see that I
    
14. It was sky is great player that I
    
15. [root@zsd script]#

它会把fred文件中的内容，当做输入流，进行处理，默认会在$_进行读取