mirror of
https://bitbucket.org/smil3y/katie.git
synced 2025-02-25 11:22:58 +00:00
17 lines
212 B
Text
17 lines
212 B
Text
|
#!/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;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|