note
BrowserUk
<blockquote><i></i></blockquote>
<p>As others have said, use a hash rather than symbolic references. Here's how:
<code>
#! 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",
},
},
}
</code>
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div>
<div>"Science is about questioning the status quo. Questioning authority". </div>
<div>In the absence of evidence, opinion is indistinguishable from prejudice.</div>
<div>[http://www.theregister.co.uk/2009/12/03/exploding_donkey/|"I'd rather go naked than blow up my ass"]</div>
</font>
</div></div>
832090
832090