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