Thanks again everyone. Data::Dumper was the "key" to the whole thing.
The array was loaded from a file. All the keys (and data) had newlines on
the end. When I asked for a key without a newline -- it wasn't there -- and
I just assumed the statement was a little to cute -- but not for PERL :)
ms
At 09:12 PM 7/16/2006, Eric Edwards wrote:
>$Bill wrote:
>When you post code, post a small complete failing snippet with any input
>and output examples:
>use strict;
>use warnings;
>use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;
>my @array = (Key1 => 'Value1', Key2 => 'Value2', Key3 => 'Value3',
> Key4 => 'Value4');
>my %hash = @array;
>print Data::Dumper->Dump([\%hash], [qw(\%hash)]);
>
>__END__
>
>Result:
>
>$\%hash = {
> 'Key1' => 'Value1',
> 'Key2' => 'Value2',
> 'Key3' => 'Value3',
> 'Key4' => 'Value4'
>};
>
>Eric replied:
>Thanks for the feed back, but that is not what Michael is trying to do.
>The code snip he supplied was sufficient unto it self.
>He was trying to:
>%hash = @array;
>Thanks,
>Eric
>_______________________________________________
>Perl-Win32-Users mailing list
>Perl-Win32-Users@listserv.ActiveState.com
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>_______________________________________________
>Perl-Win32-Users mailing list
>Perl-Win32-Users@listserv.ActiveState.com
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
