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

格式都可以

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
   

复制代码

liuqiong023

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

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

格式都可以

liuqiong023

楼上，，帮帮忙撒。

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

复制代码

tanjiyong138

@liuqiong023 把需求说清楚，相信C粉们还是很愿意帮助你。:wink:

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

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,

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

复制代码

mcshell

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