求个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

1. 
   
2. .[0].say for $=finish.lines&#187;.comb(/^ <( <-[?]>+ )> /);
   
3. 
   
4. =finish
   
5. jkkkjkkk?p;;lk;;
   
6. hjkllll;
   
7. hgfhjklkk?;;jhgkl;
   
8. hjjgj?kl;l
   
9. hhgjkkk
   
10. hgh?llllj
    

复制代码