Linux

rubyish

shishi
perl abc.pl doc1 doc2 > doc3

1. #!/usr/bin/perl
   
2. 
   
3.   $   _   =pop##pop=
   
4.   @       ARGV;#VGRA
   
5.   %   _   =map{#pam=
   
6.   $   _   ,1}<>;#{1,
   
7.   @       ARGV=#VGRA
   
8.   $   _   ;#@!~~!@#:
   
9.   @   _   {/.(.*)/s}   
   
10.   ?       print#nirp
    
11.   $   _   .#&^@@^&#.
    
12. <>:<>     while#lihw
    
13. <>#<>               
    
14.                         
    

复制代码

104359176