Question

我正在尝试使用this example创建CentOS kickstart安装文件，但它需要一些perl库。下面是文章建议在我的6.4 32位CentOS中安装这些的方式，但库是64位，命令不起作用。安装所需的32位perl库的最简单方法是什么，以便我可以运行下面的perl脚本？

来自链接的图书馆

sudo rpm -Uvh \
 perl-Compress-Raw-Zlib-2.023-119.el6.x86_64.rpm \
 perl-Compress-Zlib-2.020-119.el6.x86_64.rpm \
 perl-HTML-Parser-3.64-2.el6.x86_64.rpm \
 perl-HTML-Tagset-3.20-4.el6.noarch.rpm \
 perl-IO-Compress-Base-2.020-119.el6.x86_64.rpm \
 perl-IO-Compress-Zlib-2.020-119.el6.x86_64.rpm \
 perl-libwww-perl-5.833-2.el6.noarch.rpm \
 perl-URI-1.40-2.el6.noarch.rpm \
 perl-XML-Parser-2.36-7.el6.x86_64.rpm \
 perl-XML-Simple-2.18-6.el6.noarch.rpm

我想运行的Perl脚本：

#!/usr/bin/perl

use XML::Simple;

my ($comps_file, $rpm_path, $arch) = @ARGV;

if (!-e $comps_file)
{
    print_usage ("Can't find '$comps_file'");
}
if (!-e $rpm_path)
{
    print_usage ("RPM path '$comps_file' does not exist");
}
if (!$arch)
{
    print_usage ("Architecture not specified");
}

print "reading $comps_file...\n";
print "getting RPMs from $rpm_path...\n";

$xml = new XML::Simple;
$comps = $xml->XMLin($comps_file);

%copied_packages = {};

foreach $group (@{$comps->{group}})
{
    $id = $group->{id};
    if (!($id eq 'base' || $id eq 'core'))
    {
        next;
    }

    print "#### group \@$id\n";
    $packagelist = $group->{packagelist};
    foreach $pr (@{$packagelist->{packagereq}})
    {
        if ($pr->{type} eq 'optional')
        {
            next;
        }

        $cmd = "cp $rpm_path/" . $pr->{content} . "-[0-9]*.$arch.rpm"
                . " $rpm_path/" . $pr->{content} . "-[0-9]*.noarch.rpm .";
        print "$cmd\n";
        `$cmd 2>&1`;

        $copied_packages{$pr->{content}} = 1;
    }
}

sub print_usage
{
    my ($msg) = @_;

    ($msg) && print "$msg\n\n";

    print <<__TEXT__;
parse_comps.pl comps_file rpm_path arch
    comps_file   the full path to the comps.xml file (as provided in the
                 original distro
    rpm_path     the full path to the directory of all RPMs from the distro
    arch         the target system architecture (e.g. x86_64)


__TEXT__

    exit;
}

Answer 1

你总是可以尝试：

sudo yum install perl-XML-Simple

和yum将完成剩下的工作。

找到32位Linux Perl库来运行Perl Script

1 个答案: