Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

#1  2014-09-24 19:03:22

  sqrtek - Użytkownik

sqrtek
Użytkownik
Skąd: /bin/true
Zarejestrowany: 2012-06-14

[solved] Problem z 'mtime' w Perl

Napisałem taki skrypcik:

Kod:

#!/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); }

Dostaje taki błąd przy wykonaniu opcji numer dwa, zapisie do pliku..

Kod:

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

Skrypt wydaje mi się działa prawidłowo, dostaje zapis do pliku tylko co ma znaczyć ten błąd?

Ostatnio edytowany przez sqrtek (2014-09-25 15:11:08)


"Nie pozwól by zgiełk opinii innych ludzi, zagłuszył Twój wewnętrzny głos" ~ Steve Jobs

Offline

 

#2  2014-09-25 15:10:48

  sqrtek - Użytkownik

sqrtek
Użytkownik
Skąd: /bin/true
Zarejestrowany: 2012-06-14

Re: [solved] Problem z 'mtime' w Perl

Pomogła zamiana funkcji stat() na lstat().
Problem solved.


"Nie pozwól by zgiełk opinii innych ludzi, zagłuszył Twój wewnętrzny głos" ~ Steve Jobs

Offline

 

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
To nie jest tylko forum, to nasza mała ojczyzna ;-)