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

netdzb

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

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

替换成

jkkkjkkk
hjkllll;
hgfhjklkk
hjjgj
hhgjkkk
hgh

sxw

使用 Raku(之前叫 Perl 6), 官网：raku.org

.[0].say for $=finish.lines».comb(/^ <( <-[?]>+ )> /);

=finish
jkkkjkkk?p;;lk;;
hjkllll;
hgfhjklkk?;;jhgkl;
hjjgj?kl;l
hhgjkkk
hgh?llllj
复制代码