Re^3: Repeating Code - there has GOT to be a better way!

You might try something like:

my %Cmd;
{
   no strict 'vars';  # you have a 'use strict;' line, right?
   %Cmd = do ("db/$name" . 'Cmd.pm');
}
[download]

Comment on Re^3: Repeating Code - there has GOT to be a better way! Download Code

Replies are listed 'Best First'.
Re^4: Repeating Code - there has GOT to be a better way! by almut (Canon) on Apr 01, 2010 at 07:01 UTC
Or even `#!/usr/bin/perl my %cmds = map { (/(.)Cmd/) => { do $_ } } <Cmd.pm>; use Data::Dumper; print Dumper \%cmds;` [download] `$ cat *Cmd.pm ; ./832111.pl %barCmd = ( # barCmd.pm BAR => 99, # ... ); %fooCmd = ( # fooCmd.pm FOO => 42, # ... ); $VAR1 = { 'bar' => { 'BAR' => 99 }, 'foo' => { 'FOO' => 42 } };` [download]	[reply] [d/l] [select]
Re^4: Repeating Code - there has GOT to be a better way! by Jenda (Abbot) on Apr 01, 2010 at 06:36 UTC
`%Cmd = do ("db/${name}Cmd.pm");` [download] Jenda Enoch was right! Enjoy the last years of Rome.	[reply] [d/l]