30 October 2004
This post may be outdated due to it was written on 2004. The links may be broken. The code may be not working anymore. Leave comments if needed.

qw的解释

use Module qw(argu param);中qw的解释
qw中的内容在本语句执行后,便成为Module里的import函数的参数。例解如下:
#TEst.pm
package TEst;

sub import {
  print "@_";
}

1;

#test.pl
#!/usr/bin/perl
use TEst qw(argu param);

__OUTPUT__
TEst argu param
参考:Randal L. Schwartz's Hey, 'use' guys! Import this!

查找已安装模块

use ExtUtils::Installed;

my $inst = ExtUtils::Installed->new();
print join "\n", $inst->modules();

检查批量模块是否已安装


#!/usr/bin/perl
# Check the needed modules are installed in currect system
print "Content-Type: text/html\r\n\r\n";

while (<DATA>) {
    s/[^\w\:]*//g;
    next unless ($_);
    eval("use $_;");
    if ($@) {
        print "<font color=red>$_</font> failed to locate.<br>";
    } else {
        print "<font color=blue>$_</font> locate success!<br>";
    }
}

# add the module name you want to check
__DATA__
strict
CGI::Carp
CGI
Net::SMTP
TEM_P


blog comments powered by Disqus