Re: RE: how good is oracle tech support?
- From: Mladen Gogala <mladen@xxxxxxxxxxxxxxx>
- To: oracle-l@xxxxxxxxxxxxx
- Date: Tue, 6 Apr 2004 16:51:38 -0400
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
-----------------------------------------------------------------
Other related posts:
