On Thu, 2009-02-12 at 15:35 -0800, John W. Krahn wrote:
> my %record;
> @record{ qw/reportStat shipStat auctionId transactionId
> invoiceNumber partNumber shipDate VIN froogleId paypalTran/ }
> = map { s/\s+//g; $_ } unpack 'x20 A A A30 A30 A9 A10 A6
> A17 A14 A50', $buffer;
Thanks! I much prefer this to my multi-line solution.
Interestingly, because of other circumstances, it looks like I'll be
coding this in PHP instead.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
