Help for this page

Select Code to Download


  1. or download this
    my $seek_loc = (-s FILE) - $bytes;
    $seek_loc = 0 if $seek_loc < 0;
    seek(FILE, $seek_loc, 0);
    
  2. or download this
    open(my $fh, '<', $file_name)
       or die("Unable to read log file \"$file_name\": $!\n");