Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Possible unpack modification (or module)

by Juerd (Abbot)
on Sep 30, 2002 at 16:14 UTC ( #201753=note: print w/replies, xml ) Need Help??

in reply to Possible unpack modification (or module)

sub funpack { my ($template, $source) = @_; my @fields; push @fields, $2 while $template =~ s/(\D\d+)(\S+)/$1/; my $hash = {}; @$hash{@fields} = unpack $template, $source; return $hash } my $data = funpack 'A20name A1sex A3age A8salary A12sign', $foo;
Completely untested, but I just HAD to mention "fun"pack.

By the way, if you want a module that does this, just create it yourself and put it on CPAN. Make your world a better place, and possibly the worlds of others too.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Replies are listed 'Best First'.
Re^2: Possible unpack modification (or module)
by Aristotle (Chancellor) on Sep 30, 2002 at 16:30 UTC
    Or, assuming a less ambiguous template format:
    sub funpack { my ($template, $source) = @_; my %hash = map { reverse split /:/, $_, 2 } split " ", $template; local $" = ' '; @hash{keys %hash} = unpack "@{[ values %hash ]}", $source; return \%hash; } my $data = funpack 'A20:name A1:sex A3:age A8:salary A12:sign', $foo;

    (Field names may start with a digit with this data format. I also find it easier on the eye.)

    Update: D'oh. Always test before posting.. Of course the above code doesn't preserve the order of fields, which is crucial.

    sub funpack { my ($template, $source) = @_; my ($i, @field, @format) = 0; push @{ (\@format, \@field)[$i++ & 1] }, $_ for map /^([^:]+):(.*)/, split " ", $template; local $" = " "; return { map +(shift(@format) => $_), unpack "@format", $source }; } my $data = funpack 'A20:name A1:sex A3:age A8:salary A12:sign', $foo;

    Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://201753]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2023-05-28 12:36 GMT
Find Nodes?
    Voting Booth?

    No recent polls found