awk

biobaby

大家好，急求代码：
有文件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
请问各位大神如何实现？谢谢谢谢。

Windows19

你这样描述大神们很难看懂的啊，你是不是只要在B文件中出现的行，就要从A文件打印出相隔这3行距离内容啊，即只打印出相隔3行。另外这相隔3行数又是不是定律，

moperyblue

1. grep -A3 -Ff  b.txt a.txt |grep -v '-'

复制代码

tolilong

awk '{if(NR%4==0)ORS="\n";else ORS="\t"}{print $0}' a.txt | grep -f b.txt | tr "\t" "\n"

sunzhiguolu

回复 3# moperyblue
大神您好, 能请教下使用 b.txt 文本作为搜模式结果产生 '-' 的原因吗, 谢谢.

   

moperyblue

回复 5# sunzhiguolu
跟grep命令内部处理机制有关吧. 这个问题没深究过.


   

sunzhiguolu

回复 6# moperyblue
您这个思路太给力了, 谢谢您指点.

   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sCnt, %hKeys, @aData);
   
6. while (<>){
   
7.     chomp;
   
8.     if (@ARGV){
   
9.         $hKeys{$_} = 1;
   
10.         next;
    
11.     }
    
12.     if (++$sCnt % 4){
    
13.         push (@aData, $_);
    
14.         next;
    
15.     }
    
16.     if ($hKeys{$aData[0]}){
    
17.         print join ("\n", @aData, $_), "\n";
    
18.         delete ($hKeys{$aData[0]});
    
19.         last if (!%hKeys);
    
20.     }
    
21.     @aData = ();
    
22. }
    

复制代码

11a
ghj
dfghj
gh
54c
uui
uio
hj

haooooaaa

1. awk 'NR==FNR{a[$1];next}$1 in a{k=4}k-->0' a b

复制代码

songyc_2015

1. awk 'FNR==NR{a[$0]=1;next}a[$0]{n=4}n-->0' b a

复制代码