如何从STDIN 一次读入多个文件

apile

1. 
   
2. apile> cat tt10.pl
   
3. #!/usr/bin/perl
   
4. while(<>){
   
5.   print ;
   
6. }
   
7. apile> cat a1.txt
   
8. a
   
9. b
   
10. c
    
11. d
    
12. apile> cat a2.txt
    
13. 1
    
14. 2
    
15. 3
    
16. 4
    
17. 5
    
18. apile> perl tt10.pl a?.txt
    
19. a
    
20. b
    
21. c
    
22. d
    
23. 1
    
24. 2
    
25. 3
    
26. 4
    
27. 5
    
28. apile>
    

复制代码

测试一下不就知道了...答案是可以的啦...