Polskie Forum Użytkowników Debiana

Kod: Zaznacz cały

#!/usr/bin/perl

$path="/path/to/file"; #sciezka do obserwowanego pliku
$time=3; #czas co jaki ma sprawdzac plik

$rozmiar=&proc_rozmiar($path); #inicjacja zmiennej

while (1)
{
        $rozmiar_new=&proc_rozmiar($path);
        if ($rozmiar_new>$rozmiar)
        {
                print "Nastapila zmiana, plik ma teraz $rozmiar_new linii\n";
                $ost=`tail -n 1 $path`;
                print "Ostatnia linia to : $ost\n";
                &proc_podzial($ost);
                print "Mail :: $mail, User :: $user; Pass :: $pass\n";
                $rozmiar=$rozmiar_new;
                ############################################
                #tu mozna wstawic polecenie wysylajace maila
                ############################################
        }
        else
        {
        print "Bez zmian, plik ma wciaz $rozmiar linii\n";
        }
sleep $time;
}

sub proc_rozmiar
{
        #procedura sprawdza ilosc linii w pliku
        $rozm=`wc -l $path`;
        @rozm=split(' ', $rozm);
        $rozm=@rozm[0];
}

sub proc_podzial
{
        #procedura dzieli linie na poszczegolne pola
        @pola=split('#',$ost);
        $mail=$pola[0];
        $user=$pola[1];
        $pass=$pola[2];
}