Calculate

Account	Date	Start	End	Description	Detail	Qty.	Actual	Rate	Amount
162456	7/1/03	18:27:35	18:37:35	FROM 1001	UNITED STATES 3217150214	10.00	10.00	0.10	$1.00
162456	7/2/03	02:54:56	02:57:38	FROM 1001	UNITED STATES 5217733259	3.00	2.70	0.10	$0.30
162456	7/2/03	03:02:57	03:05:21	FROM 1001	UNITED STATES 4633895267	3.00	2.40	0.10	$0.30
162456	7/2/03	03:13:24	03:14:24	FROM 1001	UNITED STATES 60958767236	1.00	1.00	0.10	$0.10
		Total		Calls: 4		209.00	182.30		$21.44
		Total		Credits: 0					$0.00

Return to Edit By Account

##

#!/usr/bin/perl
use strict;
my $row;
use HTML::TableExtract;
$/ = "";
print "Content-type: text/html\n\n";
open(RIGHT, "/usr/fweb/mydomain/html/test.html");
my $string = ;
close(RIGHT);

my $headers = ['Account','Detail','Amount'];

my $te = HTML::TableExtract->new(headers => $headers) ;
$te->parse($string);

foreach my $ts ($te->table_states) {

  print "Column1     Column2     Column3\
";
  foreach $row ($ts->rows) {
       print join('   ', @$row), "\
";
  }
}