使用Perl正则清空代码文件中所有以分号开头的注释

发布时间：2020-12-15 21:10:34 所属栏目：大数据来源：网络整理

导读：今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 open(FILEHANDLE,"+hello.asm") or die "can't open : $!n";@content= FILEHANDLE;seek FILEHANDLE,0;foreach (@content) { s/;.*//ig; print FILEHA

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

open(FILEHANDLE,"+<hello.asm") or die "can't open : $!n";
@content= <FILEHANDLE>;
seek FILEHANDLE,0;
foreach  (@content) {
  s/;.*//ig; 
  print FILEHANDLE ;
}
truncate(FILEHANDLE,tell(FILEHANDLE));
close(FILEHANDLE);

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!