RPM与DEB转换

#将rpm转换为deb

my $prefix = "wanpor";
my $suffix = "4.0.20090913.rpm";
@rpms = ();
foreach (0..3){
    push @rpms,$prefix . $_ . $suffix;
}

@debians = @rpms;

map {s/rpm/deb/g} @debians;

#转换rpm与deb包

foreach (0..3){
    `alien -d $rpms[$_]`
}