Thank you Manav :)
That was a big help. I now have another problem however. I had assumed
that adding a line number preceding the prices would be a trivial
matter, however what i thought would work is not doing so. Here is the
code ive tried.
(open(INPUT, "record.txt")) or die("Error, can't find file\n");
my $line;
my $lnum = 1;
while(<INPUT>)
{
chomp;
print "$lnum: $line" . $1 ."\n" if (/^\?.*?<(.+?)>/);
}
close(INPUT);
What i would like is for the output to look like
1: 1002.00
2: 125.00
3: 61864.35
4: 890876.99
5: 9.99
but perl doesn't like my code. My apologies for not including this
originally, i wanted to make my original question as short as
possible.
Thanks
brettaw
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
