Código de Perl - Script para descargar los paquetes RPM de Centos 7

Imágen de perfil
Val: 8
Ha mantenido su posición en Perl (en relación al último mes)
Gráfica de Perl

Script para descargar los paquetes RPM de Centos 7gráfica de visualizaciones


Perl

Publicado el 31 de Enero del 2019 por Info (85 códigos)
661 visualizaciones desde el 31 de Enero del 2019
Este script de Perl descarga el listado de paquetes rpm de la $Url indicada y posteriormente los va descargando uno a uno con yumdownloader.
ATENCIÓN: Los paquetes descargados serán las actualizaciones para la ultima versión mayor de CentOS publicada.

Requerimientos

CentOS
wget
yumdownloader

20070321

Publicado el 31 de Enero del 2019gráfica de visualizaciones de la versión: 20070321
662 visualizaciones desde el 31 de Enero del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Este código no es de mi propiedad, y no recuerdo donde lo descargue.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl -w
#
# Descarga ficheros de una determinada url. El objetivo de este script es
# descargar los paquetes publicados en los espejos de CentOS haciendo uso de los
# comandos yum, yumdownloader (paquete yum-utils) y wget.
#
# Para el correcto funcionamiento de este script es necesario que estos
# programas esten instalados y configurados correctamente en el sistema. Es
# necesario ademas que los repositorios de los cuales se descargaran los
# paquetes esten correctamente configurados y habilitados.
#
# ATENCION: Los paquetes descargados seran las actualizaciones para la ultima
# version mayor de CentOS publicada. Esto puede ser cambiado en la variable $Url.
#
# Esto es software libre, puedes cambiarlo y compartirlo con tus amigos sin
# ninguna limitante. Solo tu eres responsable del uso de este script. Deseo que
# te sea util pero no me hago responsable si en un momento deja de funcionar.
#
# Marzo 21 del 2007
# Laboratorio 4 de la Facultad de Ciencias Medicas de Cienfuegos, Cuba.
# Alain Reguera Delgado <alain.reguera@gmail.com>
# Especifica algunas varibles.
my $Url = "http://mirror.centos.org/centos/7/updates/x86_64/Packages/";
my $Sourcefile = "updates.html";
# Verifica el directorio donde se almacenaran los paquetes.
my $Rpmdir = "./RPMS";
if ( ! -d $Rpmdir ) {
    print "Creando directorio $Rpmdir ...\n";
    mkdir $Rpmdir;
}
# Recupera fichero con las urls de los paquetes a descargar.
print "Actualizando $Sourcefile ... \n";
system "/usr/bin/wget $Url -O $Sourcefile";
# Parsea el fichero $Sourcefile
# Limpia y deja solamente el nombre de los paquetes.
open FILE,$Sourcefile;
while (readline FILE ) {
    next if ! /\.rpm/;
    $_ =~ s/^<img.+\.rpm\">//;
    $_ =~ s/\.rpm<.*$//;
    $_ =~ s/\n$//;
    push @Paquetes,$_;
}
close FILE;
# Descarga paquetes
print "Descargando Paquetes ...\n";
foreach (@Paquetes) {
system "/usr/bin/yumdownloader --destdir=$Rpmdir $_";
}
__END__



Comentarios sobre la versión: 20070321 (0)


No hay comentarios
 

Comentar la versión: 20070321

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5049