命令行perl：条件不再满足后退出

Question

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

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

这有效 - 但是，我想在完成标题后退出。

有什么问题

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

Answer 1

else是在if和unless语句中找到的关键字。

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

Answer 2

只是做：

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

Answer 3

可替换地：

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