string - 文字列に一致する行と次の行を抽出するにはどうすればよいですか?

Question

と の 2 つのファイルがa.txtありb.txtます。私の仕事は、 in のすべての文字列を検索することa.txtですb.txt。a.txtとの文字列が一致する場合は、b.txtその文字列に対応する行とその次の行をファイルから出力しますb.txt。

以下のコードを試してみましたが、問題は何も印刷されないことです。問題を指摘して、これを解決する方法を提案してもらえますか?

open fh,  "<", "b.txt" or die $!;
open fh1, "<", "a.txt" or die $!;

my $array1 = < fh>;
my $array2 = < fh1>;

while (my $array1 = < fh>) {
    if ($array1 =~ m/$array2/i) {
        print $array1;
        print scalar < fh>;
    }
}

Answer 1

このようなものを試してください

open  fh, "<", "b.txt" or die $!;
open  fh1, "<", "a.txt" or die $!;

while(my $item1 = <fh>)
{
    while(my $item2 = <fh1>)
    {
        if($item1 =~ m/$item2/i)
        {
            print $item1;
            print <fh>;
        }
    }

    seek fh1, 0, 0;
}

close fh;
close fh1;

Answer 2

明らかなことは次のとおりです。

use strict;
use warnings;

my $line1;
my $line2;
my $fh;
my $fh1;
my $counter;

open  $fh, "<", "b.txt" or die $!;
open  $fh1, "<", "a.txt" or die $!;

my @b = <$fh>;
my @a = <$fh1>;

for (@b)
{
    $line1 = $_;
    for (@a)
    {
        $line2 = $_;
        if ($line1 =~ /^$line2$/)
        {
            $counter++;
            open $outfile, ">", "a_${counter}.txt";
            print $outfile $line2;
            close $outfile;
        }
    }
}

私が本当に理解していないのは、あなたが何をしようとしているのかということscalarです?

Answer 3

要素の2つの配列を取得するのを手伝うことができますが、一致した要素と次の要素をどのように印刷したいか理解できませんでした。

use Data::Dumper;
open(FH,  "<$file") or die "$!";
open(FH1,  "<$file1") or die "$!";
my @array1 ;
my @array2 ;


while(<FH>) {
    chomp($_);
    push @array1,$_;
}
while(<FH1>) {
    chomp($_);
    push @array2,$_;
}
close(FH);
close(FH1);
print Dumper(@array1);
print Dumper(@array2);