Re^2: 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.

Kaiti
Swiss Army Nerd

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

Replies are listed 'Best First'.
Re^3: Repeating Code - there has GOT to be a better way! by cleverett (Friar) on Mar 31, 2010 at 17:59 UTC
You might try something like: `my %Cmd; { no strict 'vars'; # you have a 'use strict;' line, right? %Cmd = do ("db/$name" . 'Cmd.pm'); }` [download]	[reply] [d/l]
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]


Your skill will accomplish what the force of many cannot
	PerlMonks