请教：perl测试

xuanhua

我现在用aix,但我编译一个软件的时候老出错，出错的原因，大概就是perl的一些库找不到，还是怎么回事。有没有一个程序，可以专门测试一下的。

apile

$ perl -e "use DDD;";
Can't locate DDD.pm in @INC (@INC contains: /home/apile/perl/network /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

這裡我用了一個不存在的DDD module..他會告訴你找不到...DDD.pm
這時後，就去http://search.cpan.org找那個module..下來安裝就好了..
如果你可以直接上internet..ppm也可以...

xuanhua

程序的代码是这样的：
my $sources = Grid::GPT:kgMngmt::ExpandSource:pen_bundle(file =>; "$t",
                                                     builddir =>; $builddir);

在Grid/GPT/PkgMngmt/Expandsource:

xuanhua

sub open_bundle {
  my (%arg) = @_;
  my $startdir = cwd();

  my $builddir = defined $arg{'builddir'} ? $arg{'builddir'} : $startdir;
  if ($arg{'file'} =~ m!bundle!) {
    my $file = Grid::GPT::FilelistFunctions::abspath($arg{'file'});

    chdir $builddir;
    my @list = untar($file);

    my @pl = grep {m!packaging_list!} @list;

    if (! @pl){

      if (grep {m!packagelist!} @list) {
        print STDERR
          "ERROR: $arg{'file'} is a binary bundle.  Use gpt-install\n";
        return undef;
      }

      print STDERR
        "ERROR: packaging list not found for bundle $arg{'file'}\n";
      return undef;
    }
    my $result = open(PL, "$pl[0]";

      if (! $result) {
      print STDERR "ERROR: $pl[0] could not be accessed for bundle $arg{'file'}\n";
      return undef;
      };

xuanhua

sub untar {
  my($file, $log) = @_;
  my $cmd;
  if ($file =~ m!\.gz$!) {
    $cmd = Grid::GPT:kgMngmt::BuildEnv::gunzip
                () . " < $file | " .
        Grid::GPT:kgMngmt::BuildEnv::tar() . " xvf -";
  }
  else
  {
    $cmd = Grid::GPT:kgMngmt::BuildEnv::tar() . " xvf $file";
  }
  my @list = `$cmd 2>;&1`;
  if ($?) {
    if (defined $log) {
      $log->;error("$file could not be untarred?";
      die;
    } else {
      die "$file could not be untarred?\n";
    }
  }
  for (@list) {
    next if /^blocksize = /;
    s!^cmd-\d+ .*tar: x !!;
    s!^(?\s+)?(?:\./)?!!;
    s!,.+$!!;
    chomp;
  }
  return @list;
}

xuanhua

sub tar { return "/bin/gtar" };
sub gunzip {return "/usr/bin/gunzip"};
sub gzip {return "/usr/bin/gzip"};
sub mypackage {return "gpt"};
sub default_rpm_license {return "GPL"};

xuanhua

出错信息：        "ERROR: packaging list not found for bundle $arg{'file'}\n";

xuanhua

找到原因了。是因为，系统的一个变量变量的取值出了问题。