On 2/9/2014 10:48 AM, Bill McCormick wrote:
Trying to map the array list into a hash, but loose the double quotes
surrounding the key's value. This is close, but it's not removing the
quotes.
Solutions?
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my @array = qw(foo1="bar1" foo2="bar2");
print "Array:\n";
print Dumper(@array);
print "Hash:\n";
my %hash = map { split(/=/, $_, 2) } @array;
print Dumper(%hash);
Array:
$VAR1 = 'foo1="bar1"';
$VAR2 = 'foo2="bar2"';
Hash:
$VAR1 = 'foo2';
$VAR2 = '"bar2"';
$VAR3 = 'foo1';
$VAR4 = '"bar1"';
---
This email is free from viruses and malware because avast! Antivirus
protection is active.
http://www.avast.com
Thanks for all the great ideas. I ended up finding another way before I
saw other replies:
my %hash = map { split(/=/, tr/"//dr, 2) } @array;
Anyway, I like the pure regexp method. Thanks Uri.
-Bill
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
