命令行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