On 04/06/2004 04:43:38 PM, "Goulet, Dick" wrote: > Jared, > > I won't comment on Language, Does perl count as a foreign language? After all, this must be an equivalent of swearing and cursing in perl: my $chunk; my ($OPEN,$HIGH,$LOW,$CLOSE,$SETTLE,$CHANGE,$TOTAL,$EFP,$INTEREST); my $te = new HTML::TableExtract(depth=>2,count=>1); $te->parse($http); foreach $ts ($te->table_states) { foreach $row ($ts->rows) { if ($$row[0] =~ /\([A-Z][a-z]{2} [0-9]{2}\)/) { $$row[0]=~/(^[A-Z1-9]+) ([A-Z][1-9]) \(([A-Z][a-z]{2}) ([0-9]{2})\)/; $chunk=$1; $EXP=$2; $MON=$3; $MON=~ tr/[a-z]/[A-Z]/; $YR="20$4"; $chunk=~/(.*)(..)/; $TICK=$1; $SUFF=$2; $OPEN=$$row[1]; $HIGH=$$row[2]; $LOW =$$row[3]; $CLOSE = $$row[4]; $SETTLE=$$row[5]; $CHANGE=$$row[6]; -- Mladen Gogala Oracle DBA ---------------------------------------------------------------- Please see the official ORACLE-L FAQ: http://www.orafaq.com ---------------------------------------------------------------- To unsubscribe send email to: oracle-l-request@xxxxxxxxxxxxx put 'unsubscribe' in the subject line. -- Archives are at //www.freelists.org/archives/oracle-l/ FAQ is at //www.freelists.org/help/fom-serve/cache/1.html -----------------------------------------------------------------