On 26 Mar, Brett Williams wrote:
> 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.
#! /usr/bin/perl
use strict;
use warnings;
my $lnum = 1;
while (my $line = <DATA>) {
next unless $line =~ /\d+/;
chomp($line);
my ($value) = $line =~ /^\?.*?<(.+?)>$/;
print $lnum++, ": $value\n";
}
__DATA__
?<1002.00>
?<125.00>
?<61864.35>
?<890876.99>
?<9.99>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
