这个问题的关键在哪里啊

sunzhiguolu

看了篇帖子, 内容如下:

大家好，急求代码：
有文件a.txt:如下，每4行是一个数据单元，因此第一行11a，第5行23b2，第9行54c，第13行67是单元名，每行跟着的3行是单元信息。现在想从中抽出特定单元的内如：要求最后输出顺序于a.txt一致。
11a
ghj
dfghj
gh
23b2
ghjkcvb
sd
ghj
54c
uui
uio
hj
67
yuionmnlk
456vb
th
抽取的单元list为b.txt
54c
11a
输出结果为：
11a
ghj
dfghj
gh
54c
uui
uio
hj

还请大家指点, 谢谢大家...

hxswdl

第一次应助,写得比较麻烦,运行没问题：
test.pl 如下：
#! /usr/bin/perl -w
use strict;
my %b;
open B,"b.txt";
my @b=<B>;
%b=map{$_,1} @b;
close B;

open A,"a.txt";
while (<A>){
        my $info.=$_;
        $info.=<A>;
        $info.=<A>;
        $info.=<A>;
        print $info if (exists $b{$_});
        $info="";
}
close A;
###运行 perl test.pl >target.txt (a.txt 与b.txt在当前文件夹)

sunzhiguolu

回复 2# hxswdl
非常感谢您的帮助, 非常成功懂您的意思.