Help for this page
sub funpack { my ($template, $source) = @_; my %hash = map { reverse split /:/, $_, 2 } split " ", $template; ... } my $data = funpack 'A20:name A1:sex A3:age A8:salary A12:sign', $foo;
sub funpack { my ($template, $source) = @_; ... } my $data = funpack 'A20:name A1:sex A3:age A8:salary A12:sign', $foo;