Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How to include a file that contains all the required Perl module names?

The perl scripts contain all the module names in the beginning of the script.

Ex:

use strict;
use XML::Parser;
use XML::Simple;
use DBI;
use DBD::DB2::Constants;
use POSIX qw( strftime );
use Storable qw(dclone);
use Data::Dumper;
use Carp;

How to keep all the module names in another file and include the file in main perl script ?

Thanks.

like image 608
Sourcecode Avatar asked Nov 15 '12 07:11

Sourcecode


3 Answers

You can use

BEGIN { do 'filename.pl' or die $@ }

See do. Be sure to include 1; at the bottom of the file.

like image 149
choroba Avatar answered Oct 07 '22 10:10

choroba


Create your own module. But, if if you make package in this module those strftime etc will be imported into another namespace. You can do litle hack to do this smiple:

MyModules.pm:

use strict;
use XML::Parser;
use XML::Simple;
use DBI;
use DBD::DB2::Constants;
use POSIX qw( strftime );
use Storable qw(dclone);
use Data::Dumper;
use Carp;

Note there was no package keyword in this .pm. Your script:

use MyModules;

Place this .pm into same dir with script or add modules search path at runtime:

use lib '/my_modules_dir/';
use MyModules;

Use of do and require commands is not recommended, since they do not check syntax on script start. Sure you can place them into BEGIN block but i think its tricky way and generally BEGIN{ require ..} is the same as use

UPD: ikegami noted problem its not working when you use this from many modules. Regardless question starter's information (he want to use this from main script), ill add info how to use this from many modules, so my friend can feel better. Add to end of MyModules.pm:

delete $INC{'MyModules.pm'};
1;
like image 28
PSIAlt Avatar answered Oct 07 '22 10:10

PSIAlt


You might look at the Toolkit module.

like image 39
Dave Cross Avatar answered Oct 07 '22 08:10

Dave Cross