使用perl从文本文件打印特定行

Question

我正在尝试从文件中的几行分开的行中打印几行。 我认为下面的perl并不是最好的方法，但希望这是一个开始

perl -ne 'if ($. == 5) ($. == 6) ($. == 7) ($. == 10) {print;exit}' file.txt

文件

#Sample = xxxxx
#Sample Type = xxxxxx
#Build = xxxxxxx
#Platform = xxxxxxx
#Display Name= XXXXX  (keep this field without the #)
#identifier = xxxxxx  (keep this field without the #)
#Gender = xxxxx       (keep this field without the #)
#Control Gender = xxxxx
#Control Sample = xxxxx
#Quality = X.XXXXXX   (keep this field without the # and X.XXX)

期望的输出

Display Name= XXXXX  (keep this field without the #)
identifier = xxxxxx  (keep this field without the #)
Gender = xxxxx       (keep this field without the #)
Quality = X.XXXXXX   (keep this field without the # and X.XXX)

Answer 1

您可以使用“ smartmatch”运算符执行以下任务：

perl -ne 's/^#//; @n = (5, 6, 7, 10); print if $. ~~ @n'  file.txt

Answer 2

与其指定要保留的行号，不如通过包含的文本来标识它们要清晰得多

像这样

perl -ne 'print $1 if /^#((Display Name|identifier|Gender|Quality).*)/is' myfile

产量

Display Name= XXXXX
identifier = xxxxxx
Gender = xxxxx
Quality = X.XXXXXX

我不明白您对数据最后一行的评论是什么意思， “保留此字段，不包含＃和X.XXX” 。 您是说“没有＃ 或 X.XXX”吗？ 如果您只想要Quality = here，这很奇怪

Answer 3

perl -ne 'print if $.==5 || $.==6 || $.==7 || $.==10' file.txt