awk

biobaby

大家好，急求代碼：
有文件a.txt:如下，每4行是一個(gè)數(shù)據(jù)單元，因此第一行11a，第5行23b2，第9行54c，第13行67是單元名，每行跟著的3行是單元信息。現(xiàn)在想從中抽出特定單元的內(nèi)如：要求最后輸出順序于a.txt一致。
11a
ghj
dfghj
gh
23b2
ghjkcvb
sd
ghj
54c
uui
uio
hj
67
yuionmnlk
456vb
th
抽取的單元list為b.txt
54c
11a
輸出結(jié)果為：
11a
ghj
dfghj
gh
54c
uui
uio
hj
請(qǐng)問(wèn)各位大神如何實(shí)現(xiàn)？謝謝謝謝。

Windows19

你這樣描述大神們很難看懂的啊，你是不是只要在B文件中出現(xiàn)的行，就要從A文件打印出相隔這3行距離內(nèi)容啊，即只打印出相隔3行。另外這相隔3行數(shù)又是不是定律，

moperyblue

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

復(fù)制代碼

tolilong

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

sunzhiguolu

回復(fù) 3# moperyblue
大神您好, 能請(qǐng)教下使用 b.txt 文本作為搜模式結(jié)果產(chǎn)生 '-' 的原因嗎, 謝謝.

   

moperyblue

回復(fù) 5# sunzhiguolu
跟grep命令內(nèi)部處理機(jī)制有關(guān)吧. 這個(gè)問(wèn)題沒(méi)深究過(guò).


   

sunzhiguolu

回復(fù) 6# moperyblue
您這個(gè)思路太給力了, 謝謝您指點(diǎn).

   

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. }
    

復(fù)制代碼

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

復(fù)制代碼

songyc_2015

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

復(fù)制代碼