Adding multi-line support.

This commit is contained in:
mcafee%netscape.com 2001-11-03 02:10:05 +00:00
parent a716e7aa60
commit 2f96d2424d
2 changed files with 9 additions and 10 deletions

View File

@ -409,18 +409,15 @@ BEGIN {
# Scrape data
if (defined $td->{scrape}{$logfile}) {
my ($scrape_data)
my (@scrape_data)
= @{ $td->{scrape}{$logfile} };
# ex: Tp:5.45s
print sprintf "<br>$scrape_data";
my $i;
foreach $i (@scrape_data) {
print "<br>$i";
}
}
# Scrape data
#if (defined $td->{scrape}{$logfile}) {
# my @scrape_data = @{$td->{scrape}{$logfile}};
# print "<br>@scrape_data[0],@scrape_data[1]";
#}
# Warnings
if (defined $td->{warnings}{$logfile}) {
my ($warning_count) = $td->{warnings}{$logfile};

View File

@ -482,9 +482,11 @@ sub load_scrape {
open(BLOATLOG, "<$treedata->{name}/scrape.dat");
while (<BLOATLOG>) {
chomp;
my ($logfile, $scrape_data) = split /\|/;
my @list = split /\|/;
my $logfile = @list[0];
shift(@list);
$scrape->{$logfile} = [ $scrape_data ];
$scrape->{$logfile} = [ @list ];
}
return $scrape;
}