求助，perl小程序运行不了

badsunday

本人初学者一枚，想用perl干点活，可是程序死活跑不起来，跪求大神帮助。
A.txt文件是
1825_8911
69_4495
60213_64364
301_3270

B.txt文件是
>dsgfdsg_60213_64364
1111111234354546
>dgfdg_301_3270
dgdfgdfbhgnbtg
>bbbb_69_4495
cccccbbgnghn
>aaaaa_1825_8911
dfggggggggggg23dfsgdsd

目的只有一个，读入A文件中的每一行，在B文件中查找与之对应的输出来。
输出的结果应该如下。可是我自己的程序总是只输出第一行。问题可能出在$_的赋值上，可是不知道怎么改。求大神帮助。
>aaaaa_1825_8911
>bbbb_69_4495
>dsgfdsg_60213_64364
>dgfdg_301_3270

我自己的代码如下
open A, '<', "A.txt";
open B, '<', "B.txt";
open find,'>', "find.txt";

while(<A>){
    $a=$_;
   while(<B>){
    if($_=~ /$a/){   
      
       print find "$_\n" ;
    }
}
}
close A;
close B;
close find;

badsunday

我知道这个问题很是低端，还请大家不吝赐教

pitonas

{:2_172:}这个问题很是低端

1. #!/usr/bin/perl
   
2. 
   
3. open my $A, 'a.txt';
   
4. open my $B, 'b.txt';
   
5. 
   
6. my %A = map { chomp; $_, 1 } <$A>;
   
7. 
   
8. while (<$B>) {
   
9.     my ($key) = /^\S+?_(.*)$/;
   
10.     if ( exists $A{$key} ) {
    
11.         print $_ . <$B>;
    
12.     }
    
13.     else { <$B>; }
    
14. }
    
15. 
    

复制代码

ytphrx

貌似a只读一行，b就读完了，要从新打开b吧。

qq27898

回复 1# badsunday


    你需要先将一个文本的内容全部存起来，这样做简单点。

like this : @temp=<A>;

stanley_tam

别用$_{:3_193:}

清泉一边

我按照你的方法写了一下，你的问题出在B.txt只打开了一次，下面是我写的代码，调试后是正确的。但不建议这么些，while套while运行速度太慢，如果文件太大就悲剧了。

#! /usr/bin/perl -w
open (IN,"path_A.txt");
while ($line=<IN>)
{
         chomp $line;
         open (INP,"path_B.txt");
         while ($li=<INP>)
         {
          chomp $li;
          if ($li=~/$line/)
          {
           print "$li\n";
          }
         }
}

清泉一边

回复 1# badsunday
#! /usr/bin/perl -w
open (IN,"C:\\Users\\lenovo\\Desktop\\A.txt");
open (INP,"C:\\Users\\lenovo\\Desktop\\B.txt");
while (<IN>)
{
chomp;
$hash{$_}=1;
}
while (<INP>)
{
chomp;
foreach $li(keys %hash)
{
  if ($_=~/$li/)
  {print "$_\n";}
}
}

这样写速度会快些，我也初学，写的不好，共同进步！

旋转小马

学习了~~~回复 3# pitonas