#!/usr/bin/perl -w
open(T,"kitco") || die "Cannot open kitco";
while(
) {
chomp;
if( /\-{4,}/ ) {
chomp($line=);
if($line=~/London/) {
open (F,">london.ssi") || die "Cannot create london.html";
$lame=;$lame=;$lame=;
print F < | | | | |
| AM | PM | | AM | PM | AM | PM |
EOL
$found=1;
} elsif( $line=~/Change\s{2,}Low/ ) {
open (F,">newyork.ssi") || die "Cannot create newyork.html";
$lame=;
print F <
- |
|
|
|
min |
max |
EOL
$found=1;
} elsif( $line=~/NY/ ) {
open (F,">europe.ssi") || die "Cannot create europe.html";
$lame=;
print F <
|
|
|
NY |
EOL
$found=1;
} else { $found=0; }
if( $found ) {
while( ($line=) !~ /\-{4,}/ ) {
chomp($line);
@td=split /\s{2,}/,$line;
print F "";
for $td (@td) { next unless $td; print F "$td | "; }
print F "
\n";
}
print F "\n"; close F;
}
}
}
close T;