Hi, I have the following string into a file:

LOG_INFO : cpcdos23.col.bsf.alcatel.fr: read request for /bootp/popo.txt: 
success.

And I have this code:

my ($f)=@_;
        $thistime=(stat($f))[9];
        return if ($thistime == $mtime);

        $mtime=$thistime;
        my $dummy;
        open (FILE, $f) || warn "Couldn't open file $f: $!";
        @lines=<FILE>;
        close (FILE);
        ($dummy, $IP_address, $read, $status)=split(":",$lines[$#lines-2]);
        $IP_address=~s/^\s*(.*)\s*$/$1/;
        ($client_name)=split(/\./,$IP_address);
        $read=~/.*bootp(.*)\s*/;
        $boot_file=$1;
        $install_file_path=~/\/(.+):/;
        
        
It works fine but only ythe last line doesn't work in fact i want to display
/bootp/popo.txt. 

Reply via email to