perl写入以及读取文件

laputa73

既然楼主不懂perl，只是要个小程序
我想这样就可以吧
readip.sh  文件名

1. 
   
2. #！/usr/bin/sh
   
3. while read   ip user passwd
   
4. do
   
5.         echo $ip $user $passwd
   
6. done < $1
   

复制代码

laputa73

1. 
   
2. #!/usr/bin/perl
   
3. if(!open (CFG,<$ARGV[0]))
   
4. {
   
5. #
   
6. }
   
7. else
   
8. {
   
9.         while(<CFG>)
   
10.         {
    
11.                 my @ip=split /\s+/;
    
12.                 print @ip;
    
13.         }       
    
14. }
    

复制代码