|
发表于 2014-11-28 12:45:56
|
显示全部楼层
my $file = "";
open(FIN, "<in.txt");
{
local $/ = undef;
$file = <FIN>;
}
close(FIN);
$file =~ s/[^0^1]//sg; #删除非0非1的字符
$file =~ s/\^//sg; #删除^
open(FOUT, ">out.txt");
my $tmp = "";
my $i = 0;
my $len = length($file);
while($len - $i > 80){
print FOUT substr($file,$i,80) . "\n"; #每80个打印一个回车符
$i += 80;
}
print FOUT substr($file,$i); #输出剩下的所有字符 |
|