Re: Importing Perl package variables into a Perl script with "require"

On Fri, Apr 25, 2008 at 8:46 PM, Doran, Michael D <[email protected]> wrote:
> Back-story:
>
>  I have a Perl CGI program.  The CGI program needs to utilize variables in one of several separate configuration files (packages).  The different packages all contain the same variables, but with different values for those variables.  Each package represents a different language for a multilingual interface for the CGI program.  e.g. English.pm, French.pm, Spanish.pm.
>
>  The CGI program can't determine which language package is needed until it parses the form input and does a test based on the value for a query string name/value pair.  Based on the test, I assign a value to a package load command (i.e. 'use English' or 'require English').  Because of that, I can't load the package with "use Package" since "use" runs at compile time, before I can assign a value to it.
>

You can use UNIVERSAL::require to do this:


use UNIVERSAL::require;
use CGI;

my $cgi = new CGI();
my $package = 'Language::' . $cgi->param('lang'); # say, 'English'
$package->use;

my $thing = $package->new();


Hope that helps. FWIW, we use U::r pretty heavily inside Evergreen.

-- 
Mike Rylander
 | VP, Research and Design
 | Equinox Software, Inc. / The Evergreen Experts
 | phone: 1-877-OPEN-ILS (673-6457)
 | email: [email protected]
 | web: http://www.esilibrary.com