Dear monks,
I wrote this piece of code to manage the modules dependencies. It works fine but I've a problem using the methods. Run the script I've this error:How can I fix it? How can I specify a module qw()? ie."Undefined subroutine &main::gettimeofday called at..."
? Thank you very much for your time.eval "require Time::HiRes qw(gettimeofday tv_interval)"
-------------------------------------------------------------------
#!/usr/bin/perl -w use strict; use Getopt::Std; use POSIX qw(strftime); my @perl_modules = ( "Encode", "HTML::SimpleLinkExtor", "HTTP::Cookies", "HTTP::Request::Common", "HTTP::Response", "LWP::UserAgent", "Net::Abuse::Utils", "Time::HiRes", ); foreach my $module (@perl_modules){ eval "require $module"; if ($@){ print " [!] Error : $module perl module seems is missing. Do y +ou want install it now via CPAN? (y/n) "; my $answer = <STDIN>; chomp $answer; if ($answer =~ m/y/i) { require CPAN; CPAN::install $module; } else { die " [!] Error : I can't install $module. It's required!\ +n"; } } else { if ($module =~ m/HTTP::Request::Common/){ eval "require HTTP::Request::Common qw(GET)"; } if ($module =~ m/Net::Abuse::Utils/){ eval 'Net::Abuse::Utils qw(:all)'; } if ($module =~ m/Time::HiRes/){ eval 'Time::HiRes qw(gettimeofday tv_interval)'; } } } .... .... .... my $start_time = gettimeofday(); .... .... ....
In reply to Manage the modules dependencies by edw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |