Help for this page

Select Code to Download


  1. or download this
        my $len = (-s "file.txt") || 0;
        system ("perl eck.pl $var > file.txt &");
    ...
            my @newlines = read_new_lines("file.txt", $len);
            $len = $newlen;  # Adjust length to new end of file
        }
    
  2. or download this
        sub read_new_lines {
            my ($fn, $offset) = @_;
    ...
            chomp(my @lines = <$fh>);
            return (@lines);
        }