请教Perl字符串截取并拼接的问题

2025-05-11 19:39:00
推荐回答(1个)
回答1:

看你的路径,是unix下编程吧。

试一下这条语句。可以在命令提示符下直接执行,然后重定向到另一个文件。

perl -ne '$tmp = $_;$tmp =~ s/^#\s*include\s*\<.*\/(.*)\>/#include \<$1\>/;print $tmp;' main.cpp > main_new.cpp

main_new.cpp 这个文件就是结果文件了

################################################################

正则表达式我已经写出来了,如果想批量处理那样的文件,加一点代码,不用命令行,写成脚本就行了。