将awk命令组合到perl或python中

Question

我不太熟悉使用命令行来操作文件。 我有一个非常大的文本文件，我需要从文件中提取某些行。 我可以用awk做这个

awk -F '\t' '{ if ($1 == "SampleA") print $0}' PatientID.txt > SampleA.txt

我想同时对许多示例执行此操作，而不必等待每个示例在命令行上完成，我可以编写一个perl或python脚本来执行此操作吗？我运行过其他人编写的perl和python脚本，但我自己没有编写。你知道吗

想做什么

awk -F '\t' '{ if ($1 == "SampleA") print $0}' PatientID.txt > SampleA.txt
awk -F '\t' '{ if ($1 == "SampleB") print $0}' PatientID.txt > SampleB.txt
awk -F '\t' '{ if ($1 == "SampleC") print $0}' PatientID.txt > SampleC.txt
awk -F '\t' '{ if ($1 == "SampleC") print $0}' PatientID.txt > SampleD.txt
awk -F '\t' '{ if ($1 == "SampleE") print $0}' PatientID.txt > SampleE.txt
awk -F '\t' '{ if ($1 == "SampleF") print $0}' PatientID.txt > SampleF.txt

然后连接所有SampleX.txt文件文件合并为一个文件。你知道吗

Answer 1

awk也可以轻松做到这一点

$ awk -F'\t' '$1~/^Sample[A-F]$/{print > ($1".txt")}' PatientID.txt
$ cat Sample{A..F}.txt > SampleX.txt