As others have said, use a hash rather than symbolic references. Here's how:
#! perl -slw
use strict;
use Data::Dump qw[ pp ];
my %cmds;
for my $fname ( <*Cmd.pm> ) {
print $fname;
my( $name ) = $fname =~ m[(^.+)Cmd.pm];
%{ $cmds{ $name } } = do $fname;
}
pp \%cmds;
__END__
C:\test>832090.pl
billCmd.pm
fredCmd.pm
{
bill => {
command_1 => {
Command_maps => [],
_discussion => "\n some text about command_1",
build_types => ["FLIGHT"],
cmd_id => 250033,
constraints => undef,
description => "\n shorter text about command_1
+",
fixed_pattern => 143,
safety_level => "SAFE",
target => "command_target",
},
command_2 => {
Command_maps => [],
_discussion => "\n some text about command_2",
build_types => ["FLIGHT"],
cmd_id => 250014,
constraints => undef,
description => "\n shorter text about command_2
+",
fixed_pattern => 144,
safety_level => "SAFE",
target => "command_target",
},
},
fred => {
command_1 => {
Command_maps => [],
_discussion => "\n some text about command_1",
build_types => ["FLIGHT"],
cmd_id => 250033,
constraints => undef,
description => "\n shorter text about command_1
+",
fixed_pattern => 143,
safety_level => "SAFE",
target => "command_target",
},
command_2 => {
Command_maps => [],
_discussion => "\n some text about command_2",
build_types => ["FLIGHT"],
cmd_id => 250014,
constraints => undef,
description => "\n shorter text about command_2
+",
fixed_pattern => 144,
safety_level => "SAFE",
target => "command_target",
},
},
}
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
-
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.