Forum Debian Users Gang

#!/usr/bin/perl -w

use File::Find;
use File::stat;
use POSIX qw(strftime);

print "\nWybierz zadanie do wykonania: \n";
print "1. Wyswietlenie wyniku na ekran.\n";
print "2. Zapisanie wyniku do pliku. \n";
print "\nWybieram nr: ";
chomp ($zadanie = <STDIN>);

print "Szukac pliki nie starsze niz _ dni: ";
chomp ($czas = <STDIN> );

print "Podaj lokalizacje od ktorej ma szukac plikow: ";
chomp ($lokalizacja = <STDIN> );




sub output {

    $dir = shift;
    $czas_mtime = shift;
    $czas_mtime=$czas_mtime*86400;

    find(\&Funkcja1, $dir) ;

    sub Funkcja1 {
        $file = $_;
        $stat = stat($file);

        $mod_czas = time()-$stat->mtime;
        $rozmiar = $stat->size;
        my $now_string = strftime( "%b %e %Y", localtime( $stat->mtime ) );

        if ( $mod_czas < $czas_mtime ) { 
            print "$now_string :: $rozmiar :: $File::Find::name \n";
            }


    }

}

sub zapis_raportu {

    open(FH,">","raport.txt") or die "Problem z utworzeniem raportu \n";
    
    $dir = shift;
    $czas_mtime = shift;
    $czas_mtime = $czas_mtime*86400;

    find(\&Funkcja2, $dir);

    sub Funkcja2 {
        $file = $_;
        $stat = stat($file);
        $mod_czas= time()-$stat->mtime;
        $rozmiar = $stat->size;
        my $now_string = strftime( "%b %e %Y", localtime( $stat->mtime ) );

        if ( $mod_czas < $czas_mtime ) {  
            print FH "$now_string :: $rozmiar :: $File::Find::name \n";
            }

    }
    close (FH);

}



if ( $zadanie == 1 ) { output($lokalizacja,$czas); }
if ( $zadanie == 2 ) { zapis_raportu($lokalizacja,$czas); }

Can't call method "mtime" on an undefined value at ./find2.pl line 60, <STDIN> line 3.