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

[jedikaiti]

in reply to Re: Repeating Code - there has GOT to be a better way!
in thread Repeating Code - there has GOT to be a better way!

I wish I could. Alas, at this point, I have no say in how the data is pulled from the DB and stored. Although I might get to re-write that code later, in which case I will keep this in mind! But for now, this is what I am stuck with.

[cleverett]

You might try something like:

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

[Jenda]

%Cmd = do ("db/${name}Cmd.pm");

[almut]

Or even

#!/usr/bin/perl

my %cmds = map { (/(.*)Cmd/) => { do $_ } } <*Cmd.pm>;

use Data::Dumper;
print Dumper \%cmds;

$ cat *Cmd.pm ; ./832111.pl 
%barCmd = (     # barCmd.pm
    BAR => 99,
    # ...       
);
%fooCmd = (     # fooCmd.pm
    FOO => 42,
    # ...
);
$VAR1 = {
          'bar' => {
                     'BAR' => 99
                   },
          'foo' => {
                     'FOO' => 42
                   }
        };