On Thu, 17 Oct 2002, Kevin Gurney wrote:
> "** TOTALS 5533.86 0.00 0.00 0.00 5533.86
> 0.00 5533.86 0.00 5533.86 5533.86"
>
> P.S If anyone feels so inclined, a better way of matching the numbers would
> be most appreciated as I'm simply picking
> everything in a 12 char range each time.
unpack is your friend here:
[simonw@morpheus perl]$ cat kevin.pl
my $test = "** TOTALS 5533.86 0.00 0.00 0.00
5533.86 0.00 5533.86 0.00 5533.86 5533.86";
my @bits = unpack "A9A12A12A12A12A12A12A12A12A12", $test;
foreach (@bits) {
print $_,"\n";
}
print @bits[1] + @bits[5], "\n";
[simonw@morpheus perl]$ perl kevin.pl
** TOTALS
5533.86
0.00
0.00
0.00
5533.86
0.00
5533.86
0.00
5533.86
11067.72
Perl even does the Right Thing [tm] when you try and add two of the
numbers together :)
Simon.
--
"We have normality. Anything you still can't cope with is therefore your
own problem"
