[Chicago-talk] Regular expression
Andrew Rodland
arodland at comcast.net
Wed Feb 6 20:04:38 PST 2008
On Wednesday 06 February 2008 01:19:42 pm Andy Lester wrote:
>
> my @dashes = split( /\s+/, $dashes ); # Make an array of each line of
> dashes
> my @widths = map { length } @dashes; # And get the length of each one
> my $mask_for_unpack = sprintf( 'A%d A1 A%d A1 A%d', @widths );
I've used this very trick in the past, and it works beautifully. You can
actually use 'x1' in place of 'A1' in the unpack template to throw away the
space between columns instead of returning them.
Andrew
More information about the Chicago-talk
mailing list