1

我想打印文件的所有标题行:

perl -wnl -e "/^#/ and print" file.vcf

这行得通 - 但是,我想在完成标题后退出。

有什么问题

perl -wnl -e "/^#/ and print else exit" file.vcf

?

4

3 回答 3

5

else是作为ifandunless语句的一部分找到的关键字。

perl -wnl -e "if (/^#/) { print } else { exit }" file.vcf

perl -wnl -e "/^#/ ? print : exit" file.vcf

perl -wnl -e "/^#/ or exit; print" file.vcf

perl -wpl -e "/^#/ or exit" file.vcf

perl -wpl -e "/^#/ or last" file.vcf

perl -p -e "/^#/ or last" file.vcf

perl -pe"/^#/ or last" file.vcf
于 2013-10-29T10:56:09.077 回答
2

做就是了:

perl -wnl -e "/^#/ ? print : exit" file.vcf
于 2013-10-29T10:43:09.057 回答
1

或者:

perl -wnl -e "/^#/ && print or exit" file.vcf
于 2013-10-29T10:54:05.983 回答