RE: Parsing Fixed Length data

[Toby Stuart]

> -----Original Message-----
> From: Kevin Old [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 30, 2003 12:18 PM
> To: [EMAIL PROTECTED]
> Subject: Parsing Fixed Length data
> 
> 
> Hello all,
> 
> I have run into a situation that I've never faced before.  I've always
> parsed delimited (comma, pipe, etc) data.  Now I'm faced with parsing
> fixed-width data.  That's fine and I understand how to do it and have
> even found a module for it (Parse::FixedLength).
> 
> Say I have the following string and the first 10 characters are the
> first name, the second 10 are the last name and the next 7 are the
> price.
> 
>      Kevin        Old001.000
> 
> I understand that with the name fields I can just strip off the \s
> characters and then I have my first name, but what about the price? 
> Some times it could be like 1000.00 or 0100.00....but with 
> the preceding
> zeros it makes it confusing.  Do I need to explicitly strip off the
> preceding zeros?  
> 
> Any help on dealing with fixed width data is appreciated,
> 
> Kevin
> -- 



perldoc -f unpack

<snip>
use strict;
use warnings;

my %records;

my $surname;
my $given_name;
my $price;

my @fields;

my $i=0;
while (<DATA>)
{
        @fields = unpack("A10A10A7", $_);
        
        $records{$i} = { 
                given_name => $fields[0],
                surname    => $fields[1],
                price      => $fields[2]
        };

        $i++;
}

print "$records{0}{surname}\n";
print "$records{0}{given_name}\n";
print "$records{0}{price}\n";

print "\n";

print "$records{1}{surname}\n";
print "$records{1}{given_name}\n";
print "$records{1}{price}\n";


__DATA__
Kevin     Old       001.000
Someone   Else        1.000
</snip>

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]