17 lines
212 B
Plaintext
17 lines
212 B
Plaintext
|
#!/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;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|