open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n";
@content= <FILEHANDLE>;
seek FILEHANDLE, 0, 0;
foreach (@content) {
s/;.*//ig;
print FILEHANDLE ;
}
truncate(FILEHANDLE,tell(FILEHANDLE));
close(FILEHANDLE);
常见问题
相关文章
猜你喜欢
- 从国家自然科学基金里面爬取所有的基金项目 2015-12-14
- perl symlink 相对路径 2015-12-14
- 获取本机所有IP和设备的绑定情况 2015-12-14
- INI文件的解析 2015-12-14
- perl中的队列 2015-12-14
- 分割合并文件 2015-12-14
- perl解析xml 2015-12-14
- SQL2000数据库比较 2015-12-14
- perl通过IMAP接收、处理邮件 2015-12-14
- Perl 列出系统所有的帐号（Windows） 2015-12-14
