Alessandro Bonazzi
8c43d5cf2f
Files correlati : cg0.exe cg0700a.msk cg0700b.msk cg3.exe cg4.exe Bug : Commento: Merge 1.0 libraries
17 lines
212 B
Perl
17 lines
212 B
Perl
#!/usr/bin/perl
|
|
|
|
undef $/;
|
|
|
|
foreach $f ( @ARGV ) {
|
|
if ( open( F, "< $f" ) ) {
|
|
$i = <F>;
|
|
close F;
|
|
$i =~ s/\n/\r\n/g;
|
|
$i =~ s/\r+/\r/g;
|
|
if ( open( F, "> $f" ) ) {
|
|
print F $i;
|
|
close F;
|
|
}
|
|
}
|
|
}
|