Help for this page
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 }
sub read_new_lines { my ($fn, $offset) = @_; ... chomp(my @lines = <$fh>); return (@lines); }
www.com | www.net | www.org
No recent polls found