Assuming the format is the way you say it is, the following should work fine:
use strict;
use warnings;
my @keys = (
'Name',
'AlarmConsistencyMgr',
'AlarmForwarder',
'AlarmForwarderServer',
'alert_publisher',
'AnalogGatewayMain',
'AssetTracking',
'CallerPosition',
);
$_ = <DATA>; chomp;
my @vals = split /,/;
my %hash;
@hash{@keys} = @vals;
for (@keys) {
print "$_ -> $hash{$_}\n";
}
__DATA__
,,,X,X,,X,X,X,X,X,X,X,,,,,,,X,X,X,,,,X,,,,,,,,X,,,,,X,,,
Your problem was that hash keys are not stored in the order they're specified, so your initialization order had nothing to do with the order in which the values were assigned. You have to use an array to preserve order.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.