Re: Quick Perl Question

[Jack Lauman]

Got a combination that sort of works.  It returns all the required
fields but truncates any line where $usd_unit or $units_usd has more
than 1 digit before the decimal point.  There can be as many as (8)
digits before and (10) digits after the decimal point in both cases.

Here's the regex I'm using:

($cur_sym, $cur_desc, $usd_unit, $units_usd) =
/^([A-Z]{3})+\s+([A-Za-z\s]{28})+\s+(\d+\.\d+)+\s+(\d+\.\d+)/;

As before I'm open to suggestion.

Thanks again,

Jack