一个perl问题

zjm6533637

#!/usr/bin/perl -w
use strict;
our $WORK_PATH = $ARGV[0];

#my $dir = "d:\\test\\";

open(FILE_A,"$WORK_PATH/A.txt") || die;
my @in_a=<FILE_A>;
close(FILE_A);

open(FILE_B,"$WORK_PATH/B.txt") || die;
my @in_b=<FILE_B>;
close(FILE_b);

open my $out , ">$WORK_PATH/C.txt" or die;

foreach my $tmpb (@in_b)
{
chomp($tmpb);
our $tmpb1 = substr($tmpb,rindex($tmpb,':')+1);
print "$tmpb1","\n";
our $tmpb2 = substr($tmpb,0,rindex($tmpb,':'));
print "$tmpb2","\n";

foreach (@in_a)
{
         chomp;
         print "$tmpb2\n";
     print "$tmpb1\n";
     my $temp =~ s/$tmpb2/$tmpb1/;
         print "$temp\n";
         print $out "$temp\n";
}
last;
}

A文件：
10.1.1.1 xxxxxxxx
10.1.1.2 xxxxxxxx
10.1.1.3 zzzzzzzz
10.1.1.4 xxxxxxxx
10.1.1.5 xxxxxxxx
10.1.1.6 xxxxxxxx
10.1.1.7 yyyyyyyy
10.1.1.8 xxxxxxxx
10.1.1.9 yyyyyyyy
10.1.1.10 yyyyyyy

B：
xxxxxxxx:你欠水费
yyyyyyyy:你欠电费
zzzzzzzz:你欠气费

现在要把xxxxxxxx yyyyyyyy  zzzzzzzz 替换成响应的文字。 s/$tmpb2/$tmpb1/ 怎么不起效？

iamlimeng

把这几行：
my $temp =~ s/$tmpb2/$tmpb1/;
print "$temp\n";
print $out "$temp\n";

改成：
s/$tmpb2/$tmpb1/;
print "$_\n";
print $out "$_\n";

但是，你的程序有逻辑问题，这个请LZ自己解决。

另外，类似的问题应该用HASH解决，而不是匹配。

iamlimeng

把这几行：
my $temp =~ s/$tmpb2/$tmpb1/;
print "$temp\n";
print $out "$temp\n";

改成：
s/$tmpb2/$tmpb1/;
print "$_\n";
print $out "$_\n";

但是，你的程序有逻辑问题，这个请LZ自己解决。

另外，类似的问题应该用HASH解决，而不是匹配。

iamlimeng

LZ应该希望写下面的代码：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. #our $WORK_PATH = $ARGV[0];
   
5. 
   
6. my $WORK_PATH = "d:/t";
   
7. 
   
8. open(FILE_A,"$WORK_PATH/A.txt") || die;
   
9. my @in_a=<FILE_A>;
   
10. close(FILE_A);
    
11. 
    
12. open(FILE_B,"$WORK_PATH/B.txt") || die;
    
13. my @in_b=<FILE_B>;
    
14. close(FILE_b);
    
15. 
    
16. my %hash;
    
17. foreach (@in_b) {
    
18.          chomp;
    
19.          my ($key,$value) = split /:/;
    
20.          $hash{$key} = $value;
    
21. }
    
22. 
    
23. open my $out , ">$WORK_PATH/C.txt" or die;
    
24. foreach (@in_a) {
    
25.         chomp;
    
26.         my ($ip,$key) = split /\s+/;
    
27.         print "$ip $hash{$key}\n";
    
28.         print $out "$ip $hash{$key}\n";
    
29. }
    
30. close $out;

复制代码

yinyuemi

1.     #!/usr/bin/perl
   
2. 
   
3.     use strict;
   
4.     my %arr_B;
   
5. 
   
6.     open(a,"A")|| die;
   
7.     open(b,"B")|| die;
   
8.     while (<b>) {
   
9.             chomp;
   
10.             if(m/([^:]+):(.*)/){
    
11.                                 $arr_B{$1}=$2
    
12.                         }
    
13.     }
    
14.     while (<a>){
    
15.             chomp;
    
16.             if(m/([^\s]+)\s+(.*)/){
    
17.                     print $1,"\t",$arr_B{$2},"\n";
    
18.             }
    
19.     }
    
20.     close(a);
    
21.     close(b);
    
22.        

复制代码