Re: RE: how good is oracle tech support?

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_at_freelists.org
put 'unsubscribe' in the subject line.
--
Archives are at http://www.freelists.org/archives/oracle-l/
FAQ is at http://www.freelists.org/help/fom-serve/cache/1.html
-----------------------------------------------------------------