求助 在Perl中如何删除txt文件中的TAB健。
如题,请大家指教。
如何打开一个txt文件然后执行删除并且保存?
谢谢大家。
[解决办法]
#!/usr/bin/perl
open(IN, "3") or die "open error: $!";
open(OT, ">4") or die "open error: $!";
while(<IN>)
{
$_=~ s/\t//g;
print OT $_;
}
close (IN);
close (OT);
你看可以不?
文件打开,别忘了close~