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]#