perl写入以及读取文件

liuqiong023

都是好人啊，尤其是Y龙-鬼先生 ，还没有见过这么好的人呀。
感动ing,

我先试试看。。

@mcshell ,我在做 vmware esxi host的关机测试，需要用户输入每一台需要关闭的主机用户名和密码，并保存起来，然后软件根据特定的关机条件，每次去解析用户名和密码，实现关机功能

liuqiong023

大家好，我按照Y龙-鬼先生的代码，运行，如果带参数config，能正确的将主机和用户名，密码（有加密）写入config.log文档中.
如果是带参数shutdown,  从config.log我打印出 print $line;读取到的每行都是对的，但是无法打印出主机，用户名和密码，好像用split获取不到。提示use of uninitialized value $_ in spilt，use of uninitialized value $host in print,,,
错误的图片如附件


我的完整脚本如下，

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use warnings;
   
4. use VMware::VIRuntime;
   
5. use MIME::Base64;
   
6. 
   
7. my %opts = (
   
8.         level => {
   
9.         type => "=s",
   
10.         help => "level [shutdown|config]",
    
11.         required => 1,
    
12.         default => "shutdown",
    
13.         },
    
14. );
    
15. 
    
16. Opts::add_options(%opts);
    
17. Opts::parse();
    
18. #Opts::validate();
    
19. 
    
20. my $level = Opts::get_option('level');
    
21. my $log_output_config = "config.log";
    
22. 
    
23. if ($level eq "config") {
    
24. 
    
25.                 open(FILE,">>$log_output_config");
    
26.                 print "Enter your target host ip or hostname:\n";
    
27.                 my $inputhost = <STDIN>;
    
28.                 chomp($inputhost);
    
29.                 exit if($inputhost=~/\bexit\b/);
    
30.                 print(FILE "$inputhost\t\t");
    
31.   
    
32.                 print "Enter your host username:\n";
    
33.                 my $inputusername = <STDIN>;           
    
34.                 chomp($inputusername);
    
35.                 exit if($inputusername=~/\bexit\b/);
    
36.                 print(FILE "$inputusername\t\t");
    
37.               
    
38.                 system "stty -echo";
    
39.                 print "Enter your host password:\n";
    
40.                 my $inputpasswd = <STDIN>;
    
41.                 chomp($inputpasswd);
    
42.                 exit if($inputpasswd=~/\bexit\b/);
    
43.                 my $encryppasswd = encode_base64($inputpasswd);
    
44.                 system "stty echo";
    
45.                 print(FILE $encryppasswd);
    
46.                 close(FILE);
    
47.                 exit;
    
48. }
    
49. &shutdownHost;
    
50. 
    
51. 
    
52. # Shutdown target host
    
53. sub shutdownHost {
    
54.     my ($log_output_config) =  "config.log";
    
55.     my $HANDLE;
    
56.     open (HANDLE, $log_output_config) or die("ERROR: Can not locate \$log_output_config\" input file!\n");
    
57.     my @lines = <HANDLE>;
    
58.     my @errorArray;
    
59.     my $line_no = 0;
    
60. 
    
61.     close(HANDLE);
    
62.     foreach my $line (@lines) {
    
63.         $line_no++;
    
64.         &trim($line);
    
65.         print $line;
    
66.         if($line) {
    
67.             if($line =~ /^\s*:|:\s*$/){
    
68.                 print "Error in Parsing File at line: $line_no\n";
    
69.                 print "Continuing to the next line\n";
    
70.                 next;
    
71.             }
    
72.                 (my $host, my $user, my $passwd) = split($line);               
    
73.                 my $decryppasswd = decode_base64($passwd);
    
74.                 print $host;
    
75.                 print $user;
    
76.                 print $decryppasswd;
    
77.                 my $result_output = `./ghettoShutdown.pl --server $host --username $user --password $decryppasswd`;
    
78.             
    
79.             
    
80. 
    
81.         }
    
82.     }
    
83. }
    
84. 
    
85. sub trim($)
    
86. {
    
87.     my $string = shift;
    
88.     $string =~ s/^\s+|\s+$//g;
    
89.     return $string;
    
90. }
    

复制代码

liuqiong023

就是写入没有问题了，但是读取，只能正确读取到每一行，但是无法从每一行中，解析获取到对应的的主机,用户名和密码

liuqiong023

错误图片如附件

liuqiong023

哈哈，成功了
要用下面这个方法来获取，
(my $host, my $user, my $passwd) = split(/\s+，$line);
空格来分别获取对应的主机名，用户名，密码