PPM::Repositories
Using perl Syntax Highlighting
# Imprime todos los repositorios para todas las arquitecturas
use PPM::Repositories qw(get list used_archs);
for my $arch (used_archs()) {
print "$arch\n";
for my $name (list($arch)) {
my %repo = get($name, $arch);
next unless $repo{packlist};
print " $name\n";
for my $field (sort keys %repo) {
printf " %-12s %s\n", $field, $repo{$field};
}
}
}
use PPM::Repositories qw(get list used_archs);
for my $arch (used_archs()) {
print "$arch\n";
for my $name (list($arch)) {
my %repo = get($name, $arch);
next unless $repo{packlist};
print " $name\n";
for my $field (sort keys %repo) {
printf " %-12s %s\n", $field, $repo{$field};
}
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4