perl写入以及读取文件

Y龙-鬼

楼主你提问的能力真的很强大。
这是写文件的代码：

1. my $log_output = "config.log";
   
2. unlink $log_output;
   
3. 
   
4. open(FILE,">$log_output");
   
5. while (1) {
   
6.               print "Enter your host ip:\n";
   
7.               $inputip = <STDIN>;           
   
8.               chomp($inputip);
   
9.               exit if($inputip=~/\bexit\b/);
   
10.               print(FILE "$inputip\t\t");
    
11. 
    
12.               print "Enter your host username:\n";
    
13.               $inputusername = <STDIN>;           
    
14.               chomp($inputusername);
    
15.               exit if($inputusername=~/\bexit\b/);
    
16.               print(FILE "$inputusername\t\t");
    
17.               
    
18.               system "stty -echo";
    
19.               print "Enter your host password:\n";
    
20.               $inputpasswd = <STDIN>;
    
21.               chomp($inputpasswd);
    
22.               exit if($inputpasswd=~/\bexit\b/);
    
23.               $encryppasswd = encode_base64($inputpasswd);
    
24.               system "stty echo";
    
25.               print(FILE $encryppasswd);
    
26. }
    
27. close(FILE);

复制代码

这是读文件的代码：

1. my ($hostlist) =  @ARGV;
   
2.   my $HANDLE;
   
3.   print $hostlist;
   
4.   open (HANDLE, $hostlist) or die("ERROR: Can not locate \"$hostlist\" input file!\n");
   
5.   my @lines = <HANDLE>;
   
6.   my @errorArray;
   
7.   my $line_no = 0;
   
8. 
   
9.   close(HANDLE);
   
10.   foreach my $line (@lines) {
    
11.           $line_no++;
    
12.           &TrimSpaces($line);
    
13. 
    
14.           if($line) {
    
15.                   if($line =~ /^\s*:\s*$/){
    
16.                           print "Error in Parsing File at line: $line_no\n";
    
17.                           print "Continuing to the next line\n";
    
18.                           next;
    
19.                   }
    
20.                   (my $host, my $user, my $passwd) = split($line);
    
21.                   &TrimSpaces($host);
    
22.                   push @hostlist,$host;
    
23.                   push @userlist,$host;
    
24.                   push @passwdlist,$host;
    
25.           }
    
26.   }

复制代码