mirror of
https://github.com/samba-team/samba.git
synced 2024-12-23 17:34:34 +03:00
19 lines
271 B
Perl
19 lines
271 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
open( INFILE, "$ARGV[0]" ) || die $@;
|
||
|
|
open( OUTFILE, ">$ARGV[0].new" ) || die $@;
|
||
|
|
|
||
|
|
while ( <INFILE> ) {
|
||
|
|
$_ =~ s/[ \t\r]*$//;
|
||
|
|
print OUTFILE "$_";
|
||
|
|
}
|
||
|
|
|
||
|
|
close( INFILE );
|
||
|
|
close( OUTFILE );
|
||
|
|
|
||
|
|
rename( "$ARGV[0].new", "$ARGV[0]" ) || die @_;
|
||
|
|
|
||
|
|
exit( 0 );
|
||
|
|
|
||
|
|
|