2

空のローカル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を取得する方法はありますか？

よろしくお願いします

4

1 に答える 1

3

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インデックスファイルの1つを作成する方法を知りたい場合は、例として、完全なCPAN上の同じファイルを参照してください。:)

于 2011-04-06T20:14:07.177 に答える