if ($cur_sym) {
printf OUTFILE "%s\,%s\,%s\,%s\,%s\,%s\,%s\n",$date, $time, $tz,
$cur_sym, $cur_desc, $usd_unit, $units_usd;
}
-----Original Message-----
From: Jack Lauman [mailto:[EMAIL PROTECTED]]
Sent: 21 June 2001 17:15
To: [EMAIL PROTECTED]
Subject: Regex Problem
I get the following results when running the perl script below. For
some reason I get (3) lines that don't match the regex criteria before
it reaches the first line that has data, and one additional line after
the script completes. Is there a way to not write the line if the
varaiable $cur_sym is empty?
Thanks in advance,
Jack
Output from script:
<-------->
2000-12-29,16:16:19,PST,,,,
2000-12-29,16:16:19,PST,,,,
2000-12-29,16:16:19,PST,,,,
2000-12-29,16:16:19,PST,USD,United States Dollars ,1.00000,1.00000
2000-12-29,16:16:19,PST,EUR,Euro
,0.941604,1.06202
2000-12-29,16:16:19,PST,GBP,United Kingdom Pounds
,1.49242,0.670052
2000-12-29,16:16:19,PST,CAD,Canada Dollars
,0.666790,1.49972
2000-12-29,16:16:19,PST,DEM,Germany Deutsche Marks
,0.481435,2.07712
2000-12-29,16:16:19,PST,FRF,France Francs
,0.143547,6.96638
2000-12-29,16:16:19,PST,JPY,Japan Yen
,0.00872554,114.606
2000-12-29,16:16:19,PST,,,,
<-------->
#!/usr/bin/perl
#
# cur2csv.pl
#
use strict;
use vars qw($started);
use vars qw($cur_sym $cur_desc $usd_unit $units_usd);
use vars qw($year $month $mday $hour $minute $second $timezone);
use vars qw($conv_date $date $time $tz);
use Date::Manip;
use String::Strip;
use DBI;
use DBD::Pg;
open (OUTFILE, ">", "currency.csv") || die "Can not open currency.csv
for writing";
printf STDERR "Reading currency file...";
open (INFILE, "currency") || die "Can not open /var/spool/mail/currency
for reading";
while (<INFILE>) {
# Extract date and time of Currency Rate Quotation
($year, $month, $mday, $hour, $minute, $second, $timezone) =
/^Rates as of (\d+).(\d+).(\d+) (\d+):(\d+):(\d+) (\w+) (.*)$/;
# Convert date from UTC (GMT) to PST8PDT and adjust date and time
accordingly.
$tz = &Date_TimeZone;
$conv_date = "$year-$month-$mday $hour:$minute:$second";
$conv_date = &ParseDate($conv_date);
$conv_date = &Date_ConvTZ($conv_date, $timezone, $tz);
$date = &UnixDate($conv_date,"%Y-%m-%d");
$time = &UnixDate($conv_date,"%H:%M:%S");
$tz = &UnixDate($conv_date,"%Z");
$year and last; # If we've matched the data line, then bail out.
eof and print STDERR "Didn't find the date line";
}
# Extract the ISO 4217 Code for Currencies and Funds (1995)
# Extract the Currency Description, and trim the trailing spaces
# Extract US Dollars to Units rate, and trim the leading/trailing
spaces
# Extract Units to US Dollars rate, and trim the leading/trailing
spaces
while (<INFILE>) {
($cur_sym, $cur_desc, $usd_unit, $units_usd) =
/^([A-Z]{3})\s+([A-Za-z()\s]{28})\s+(\d+\.\d+)\s+(\d+\.\d+)/;
# Strip the trailing spaces from $cur_desc
StripTSpace($cur_desc);
$cur_sym and $started++;
printf OUTFILE "%s\,%s\,%s\,%s\,%s\,%s\,%s\n",
$date, $time, $tz, $cur_sym, $cur_desc, $usd_unit,
$units_usd;
not $cur_sym and ($started and last) or next;
$started or print STDERR "Didn't find a currency line";
}
close(INFILE);
close(OUTFILE);
print STDERR "\n";
1;
--------------------------Confidentiality--------------------------.
This E-mail is confidential. It should not be read, copied, disclosed or
used by any person other than the intended recipient. Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful. If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.
