| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> perl >> bi jiao perl mo kuai de ban ben

bi jiao perl mo kuai de ban ben

2008-05-18 22:29:12 编辑來源:互联网 评论
 
 
 
本文为【比较perl模块的版本】的拼音翻译版
  #!/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...

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

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

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
  #!/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");
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
清凉一夏_清纯美丽
纯白色小礼服
靓丽可人儿_嘉嘉
我的女神_靓丽女生
主题摄影
贵州,让我欢喜,让我神伤。
莫干山
天平秋色
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有