perl写入以及读取文件

liuqiong023

各位大侠，我不懂perl语言。想大家帮忙写个小程序

我需要写入文件，每一行都写入IP地址,用户名和密码，比如写入的文件内容如下：
192.168.1.1  root  123456
192.168.1.2  admin 123456


然后再从这个文件读取每一行，并解析出每一行的对应的正确的ip地址, 用户名，和密码

有没有哪位敲敲键盘，提供我一个简单的例子，感谢感谢

写入的格式其实的都无所谓：
192.168.1.1，  root ， 123456
192.168.1.2，  admin， 123456

或者
ip=192.168.1.1，  username=root，  password=123456

格式都可以

liuqiong023

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

liuqiong023

错误图片如附件

liuqiong023

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

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

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

我先试试看。。

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

mcshell

LZ  你是要做ssh登陆吗:wink:

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.   }

复制代码

liuqiong023

读取的代码，应该是另外一段。
我要从刚才写好的文档中， 分别读取每一行的对应的ip, 用户名和密码

比如下面这段代码，是读取每行的ip(这个例子是每行只有一个ip,没有用户名和密码)
我想知道，如果这一行，包含了主机名和密码，如何可以分别获取到对应的ip, 主机名，和密码呢
      my ($hostlist) =  @_;
        my $HANDLE;
        open (HANDLE, $hostlist) or die("ERROR: Can not locate \"$hostlist\" input file!\n";
        my @lines = <HANDLE>;
        my @errorArray;
        my $line_no = 0;

        close(HANDLE);
        foreach my $line (@lines) {
                $line_no++;
                &TrimSpaces($line);

                if($line) {
                        if($line =~ /^\s*:\s*$/){
                                print "Error in Parsing File at line: $line_no\n";
                                print "Continuing to the next line\n";
                                next;
                        }
                        my $host = $line;
                        &TrimSpaces($host);
                        push @hostlist,$host;
                }
        }
然后分别获取每一行的对应的ip, hostname,

liuqiong023

我需要的是两段代码哦。

先说下写文件的代码：
这个是我摘取的一段代码，但是这段代码，是分别写入三个文档，分别写入host.log,user.log和passwd.log，而且后面再写会覆盖前面的
我想要的是将host, username, password 写到一个文档中， 并写到一行。
然后后面再写，不会覆盖前面的
my $log_output_host = "host.log";
my $log_output_username = "user.log";
my $log_output_password = "passwd.log";
if ($level eq "config") {
              print "Enter your host ip:\n";
              $inputip = <STDIN>;           
              chomp($inputip);
              open(FILE,">$log_output_host");
              syswrite(FILE,$inputusername);
              close(FILE);

              print "Enter your host username:\n";
              $inputusername = <STDIN>;           
              chomp($inputusername);
              open(FILE,">$log_output_username");
              syswrite(FILE,$inputusername);
              close(FILE);
              
              system "stty -echo";
              print "Enter your host password:\n";
              $inputpasswd = <STDIN>;
              chomp($inputpasswd);
              $encryppasswd = encode_base64($inputpasswd);
              system "stty echo";
              open(FILE,">$log_output_password");
              syswrite(FILE,$encryppasswd);
              close(FILE);
              exit;
                        
}