File::Find und move - #132446 (Fragen zu Perl-Modulen)

Gast Gast

2010-02-09 17:58

Hallo!

Habe ich alles richtig gemacht?
Bringen die Zeilen

Code (perl): (dl )

1
2

return if /^\./;
return if -d;

etwas?
Sollte ich "move file, file" mit "or die $!" testen oder bringt das nichts?

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use strict;
use File::Copy;
use File::Find;

my $dir = '/home/oo/bin';

find( \&wanted, $dir );

sub wanted {
    return if /^\./;
    return if -d;
    if ( -e and -f ) {
        my $file = $_;
        my $temp = 'temp_file';
        open my $out, '>', $temp or die $!;
        open my $in, '<', $file or die $!;
            while ( defined( my $row = <$in> ) ) {
                $row =~ s|^#!/usr/bin/perl|#!/usr/bin/env perl|;
                print $out $row;
            }
        close $in or die $!;
        close $out or die $!;
        move $temp, $file;
        chmod 0755, $file or die $!;
    }
}