批处理之家 » Perl » 求个perl脚本把问号开始后的所有字符都删除掉

netdzb 发表于 2020-1-23 04:48

求个perl脚本把问号开始后的所有字符都删除掉

就是把文本中每一行开始后"?" 开始后的所有字符都删除掉。

jkkkjkkk?p;;lk;;
hjkllll;
hgfhjklkk?;;jhgkl;
hjjgj?kl;l
hhgjkkk
hgh?llllj

替换成

jkkkjkkk
hjkllll;
hgfhjklkk
hjjgj
hhgjkkk
hgh

sxw 发表于 2020-4-17 22:00

使用 Raku(之前叫 Perl 6), 官网：raku.org[code]
.[0].say for $=finish.lines».comb(/^ <( <-[?]>+ )> /);

=finish
jkkkjkkk?p;;lk;;
hjkllll;
hgfhjklkk?;;jhgkl;
hjjgj?kl;l
hhgjkkk
hgh?llllj
[/code]

查看完整版本: 求个perl脚本把问号开始后的所有字符都删除掉