Question

我打算创建一个空的本地CPAN目录，然后使用正确的版本号注入我需要的模块。

所以，我用这样的CPAN :: Mini创建一个CPAN结构：

my $local = '/tmp/CPAN';

my $minicpan = CPAN::Mini->new(
remote => "http://mirrors4.kernel.org/cpan/",
  local  => $local,
  passive  => 'yes',
  dirmode => 0755,
  repository => $local,
  module_filters => [ sub { $_[0] !~ m/No::Giro/i } ], #Thus us just to fetch this module only
  trace => 1                               
);

mkdir($local."/authors") or die("Could not create authors folder");

mkdir($local."/modules") or die("Could not create modules folder");

my @files = ('authors/01mailrc.txt.gz', 'modules/02packages.details.txt.gz', 'modules/03modlist.data.gz');
foreach my $file (@files){
  print "Creating file $local/$file \n";
  open(FILE, "+> $local/$file") or die("Could not create $local/$file");;
  close (FILE);  
}

然后我尝试使用CPAN :: Mini :: Inject注入一个模块：

use strict;
use warnings;
use Getopt::Long;
use CPAN::Mini::Inject;


my $module    = undef;
my $authorid  = undef;
my $version   = undef;
my $file      = undef;

GetOptions(
  "module=s"      => \$module,
  "authorid=s"    => \$authorid,
  "version=s"     => \$version,
  "file=s"        => \$file,
);

die ("--module not provided") if(!defined($module) || $module eq '');
die ("--authorid not provided") if(!defined($authorid) || $authorid eq '');
die ("--version not provided") if(!defined($version) || $version eq '');
die ("--file not provided") if(!defined($file) || $file eq '');


die("File $file does not exists") unless ((-e $file) || (-f $file) );
my $mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg('/tmp/minicpan.conf');
$mcpi->parsecfg();
$mcpi->readlist();

$mcpi->add(
  module   => $module, 
  authorid => $authorid, 
  version  => $version, 
  file     => $file );
$mcpi->inject(1);
$mcpi->writelist();
exit(0);

但03modlist.data.gz文件没有得到更新（所以它是空的），所以当我尝试使用cpan与本地存储库时，我得到了与此文件相关的错误。有谁知道如何生成有效的modlist文件？或者如何让CPAN :: Mini或CPAN :: Mini :: Inject为你做这件事？

祝你好运

Answer 1

03modlist.data.gz是一个死文件。它曾经意味着某些东西，但即使某些工具试图使用它也不再存在。对于MyCPAN的东西，我只是创建一个空文件：

File:        03modlist.data
Modcount:    0
Date:        Fri, 01 Apr 2011 03:28:16 GMT

package CPAN::Modulelist;
sub data { my $result = {} }
$CPAN::Modulelist::cols = [];
$CPAN::Modulelist::data = [];

哪个命令给你一个问题，错误信息是什么，等等？

而且，每当您想知道如何制作其中一个CPAN索引文件时，只需查看完整CPAN上的同一文件即可。：）

CPAN :: Mini :: Inject不会更新03modlist.data.gz

1 个答案: