A
asmlover
Код:
sub ClearInternalComments
{
my @out;
open (HANDLE,"<$_[0]");
while (<HANDLE>){
$_ =~ s/"\r"//g;
push @out, $_;
print $_; #debug
print HANDLE1 $_;
}
close HANDLE;
open (HANDLE,">$_[0]");
print HANDLE @out;
close HANDLE;
}
не реботает