On Fri, Jun 20, 2008 at 7:43 AM, Chris Henry <[EMAIL PROTECTED]> wrote:
> #/usr/bin/perl
>
> var result = 0;
> open(FILE, '...') || die 'Can't open file';
>
> while ( <FILE> ) {
> chomp;
> if ($_ =~ /(t=\d+\s)(\d+)/) {
> $result += $2;
> print $1, $result;
Sorry, this line should be print $1, $result, "\n";
> } else {
> die 'File format is wrong.';
> }
> }
>
--
Chris
[EMAIL PROTECTED]
[EMAIL PROTECTED]
_______________________________________________
Slugnet mailing list
[email protected]
http://wiki.lugs.org.sg/LugsMailingListFaq
http://www.lugs.org.sg/mailman/listinfo/slugnet
