Question

文本文件-1

SAR001
SAR005
SAR008
SAR010
SAR012
.
.
.

文本文件-2

C 0001 Carbon [C]
D SAR001 methane [CH3]
D SAR002 ethane
D SAR003 propane
D SAR004 butane
D SAR005 pentane
C 0002 Hydrogen [H]
D SAR006 hydronium
D SAR007 water [H20]
C 0003 Nitrogen [N]
D SAR008 ammonia [NH3]
D SAR009 ammonium chloride [NH4Cl]
D SAR010 amide
C 0004 Oxygen [O]
D SAR011 ozone
D SAR012 super oxide
.
.
.

期望的输出

SAR001 Carbon [C]
SAR005 Carbon [C]
SAR008 Nitrogen [N]
SAR010 Nitrogen [N]
SAR012 Oxygen [O]
.
.
.

我的查询是来自textfile-2中textfile-1的grep文本，然后打印上面一行以“C”开头的第三列。任何基于shell或perl的脚本都是受欢迎的。我正在使用OpenSUSE linux。

问候。

Answer 1

你可以尝试，

perl -anE '
  BEGIN{ open($f,pop)||die$! }
  if ($F[2]) { $c = $F[2]; next }
  $s{ $F[1] } = $c;
  END{
    s|\s+$||, s|$| $s{$_}|, say while <$f>;
  }
' textfile-2 textfile-1

输出

SAR001 Carbon
SAR005 Carbon
SAR008 Nitrogen
SAR010 Nitrogen
SAR012 Oxygen

perl -ne '
  BEGIN{ open($f,pop)||die$! }
  @F = split /\s+/, $_, 3;
  if (!/SAR/) { $c = $F[2]; next }
  $s{ $F[1] } = $c;
  END{
    s|\s+$||, s|$| $s{$_}|, print while <$f>;
  }
' textfile-2 textfile-1

输出

SAR001 Carbon [C]
SAR005 Carbon [C]
SAR008 Nitrogen [N]
SAR010 Nitrogen [N]
SAR012 Oxygen [O]

从文件中grep文本并从模式开始打印上面的行

1 个答案: