| 订阅 | 在线投稿
分享
 
 
 

比较perl模块的版本

2008-05-18 22:29:12 编辑來源:互联网 国际版 评论
 
 
  #!/usr/local/bin/perl -w

  ###########################################################################

  # Global definitions

  ###########################################################################

  use diagnostics;

  use strict;

  use Devel::ptkdb;

  ###########################################################################

  # Check required module

  ###########################################################################

  #

  # Here we check for --MODULES--

  #

  print "\nChecking perl modules ...\n";

  unless (eval "require 5.005") {

  die "Sorry, you need at least Perl 5.005\n";

  }

  sub vers_cmp {

  if (@_ < 2) { die "not enough parameters for vers_cmp" }

  if (@_ > 2) { die "too many parameters for vers_cmp" }

  my ($a, $b) = @_;

  my (@A) = ($a =~ /(\.|\d+|[^\.\d]+)/g);

  my (@B) = ($b =~ /(\.|\d+|[^\.\d]+)/g);

  my ($A,$B);

  while (@A and @B) {

  $A = shift @A;

  $B = shift @B;

  if ($A eq "." and $B eq ".") {

  next;

  } elsif ( $A eq "." ) {

  return -1;

  } elsif ( $B eq "." ) {

  return 1;

  } elsif ($A =~ /^\d+$/ and $B =~ /^\d+$/) {

  return $A <=> $B if $A <=> $B;

  } else {

  $A = uc $A;

  $B = uc $B;

  return $A cmp $B if $A cmp $B;

  }

  }

  @A <=> @B;

  }

  # This was originally clipped from the libnet Makefile.PL, adapted here to

  # use the above vers_cmp routine for accurate version checking.

  sub have_vers {

  my ($pkg, $wanted) = @_;

  my ($msg, $vnum, $vstr);

  no strict 'refs';

  printf("Checking for %15s %-9s ", $pkg, !$wanted?'(any)':"(v$wanted)");

  eval { my $p; ($p = $pkg . ".pm") =~ s!::!/!g; require $p; };

  $vnum = ${"${pkg}::VERSION"} || ${"${pkg}::Version"} || 0;

  $vnum = -1 if $@;

  if ($vnum eq "-1") { # string compare just in case it's non-numeric

  $vstr = "not found";

  }

  elsif (vers_cmp($vnum,"0") > -1) {

  $vstr = "found v$vnum";

  }

  else {

  $vstr = "found unknown version";

  }

  my $vok = (vers_cmp($vnum,$wanted) > -1);

  print ((($vok) ? "ok: " : " "), "$vstr\n");

  return $vok;

  }

  # Check versions of dependencies. 0 for version = any version acceptible

  my $modules = [

  {

  name => 'Getopt::Long',

  version => ''

  },

  {

  name => 'File::Find',

  version => ''

  },

  {

  name => 'File::Copy',

  version => ''

  },

  {

  name => 'FileHandle',

  version => ''

  },

  {

  name => 'mod_perl',

  version => ''

  }

  ];

  my %missing = ();

  foreach my $module (@{$modules}) {

  unless (have_vers($module->{name}, $module->{version})) {

  $missing{$module->{name}} = $module->{version};

  }

  }

  system("perl -v");

  system("cvs -v");
 
 
  #!/usr/local/bin/perl -w   ###########################################################################   # Global definitions   ###########################################################################   use diagnostics;   use strict;   use Devel::ptkdb;   ###########################################################################   # Check required module   ###########################################################################   #   # Here we check for --MODULES--   #   print "\nChecking perl modules ...\n";   unless (eval "require 5.005") {   die "Sorry, you need at least Perl 5.005\n";   }   sub vers_cmp {   if (@_ < 2) { die "not enough parameters for vers_cmp" }   if (@_ > 2) { die "too many parameters for vers_cmp" }   my ($a, $b) = @_;   my (@A) = ($a =~ /(\.|\d+|[^\.\d]+)/g);   my (@B) = ($b =~ /(\.|\d+|[^\.\d]+)/g);   my ($A,$B);   while (@A and @B) {   $A = shift @A;   $B = shift @B;   if ($A eq "." and $B eq ".") {   next;   } elsif ( $A eq "." ) {   return -1;   } elsif ( $B eq "." ) {   return 1;   } elsif ($A =~ /^\d+$/ and $B =~ /^\d+$/) {   return $A <=> $B if $A <=> $B;   } else {   $A = uc $A;   $B = uc $B;   return $A cmp $B if $A cmp $B;   }   }   @A <=> @B;   }   # This was originally clipped from the libnet Makefile.PL, adapted here to   # use the above vers_cmp routine for accurate version checking.   sub have_vers {   my ($pkg, $wanted) = @_;   my ($msg, $vnum, $vstr);   no strict 'refs';   printf("Checking for %15s %-9s ", $pkg, !$wanted?'(any)':"(v$wanted)");   eval { my $p; ($p = $pkg . ".pm") =~ s!::!/!g; require $p; };   $vnum = ${"${pkg}::VERSION"} || ${"${pkg}::Version"} || 0;   $vnum = -1 if $@;   if ($vnum eq "-1") { # string compare just in case it's non-numeric   $vstr = "not found";   }   elsif (vers_cmp($vnum,"0") > -1) {   $vstr = "found v$vnum";   }   else {   $vstr = "found unknown version";   }   my $vok = (vers_cmp($vnum,$wanted) > -1);   print ((($vok) ? "ok: " : " "), "$vstr\n");   return $vok;   }   # Check versions of dependencies. 0 for version = any version acceptible   my $modules = [   {   name => 'Getopt::Long',   version => ''   },   {   name => 'File::Find',   version => ''   },   {   name => 'File::Copy',   version => ''   },   {   name => 'FileHandle',   version => ''   },   {   name => 'mod_perl',   version => ''   }   ];   my %missing = ();   foreach my $module (@{$modules}) {   unless (have_vers($module->{name}, $module->{version})) {   $missing{$module->{name}} = $module->{version};   }   }   system("perl -v");   system("cvs -v");
󰈣󰈤
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

网络安全治理:国家安全保障的主要方向是打击犯罪,而不是处置和惩罚受害者

来源:中国青年报 新的攻击方法不断涌现,黑客几乎永远占据网络攻击的上风,我们不可能通过技术手段杜绝网络攻击。国家安全保障的主要方向是打击犯罪,而不是处置和惩罚...

 
 
 
>>返回首页<<
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 
 热帖排行
 
游乐场的可爱性感(3)
游乐场的可爱性感(2)
玛旁雍错之景
华亿农庄
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
©2005- 王朝网络 版权所有