sub isModuleInstalled($) {
 my $module = shift;
 my $true = 1;
 my $false = not $true;
 eval( 'use ' . $module );
 if ($@) {
      print $module. " is not installed\n";
      return $false;
 } else {
      print $module. " is already installed\n";
      return $true;
 }
}
sub isModuleVersion($) {
 my $module = shift;
 my $true = 1;
 my $false = not $true;
 eval( 'use ' . $module );
 if ($@) {
      print $module. " is not installed\n";
      return $false;
 } else {
      print $module. " is already installed\n";
      eval "require $module";
      if($@) {
          return $false;
      } else {
          return $module->VERSION;
      }
 }
}




															
最後修改日期: 2014 年 01 月 16 日

作者

留言

作者

perl -MLWP::UserAgent -e ‘print LWP::UserAgent->VERSION;’

[Reply]

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。