Instalando paquetes con script hecho con Perl

Hace un tiempo realicé un pequeño script con Perl para agilizar un poco la instalación de paquetes en sistemas Debian, es decir cuando por alguna razón debo instalar todo el sistema nuevamente formateando los discos, suena un poco tedioso instalar todos los paquetes que tenía instalado y que uso frecuentemente.

Para esto, realicé una lista de paquetes en un archivo de texto plano con un contenido parecido al siguiente ejemplo:

apache2
libapache2-mod-php5
php5
php5-mysql
php5-pgsql
php5-gd

Posteriormente, mantengo mi script respaldado si es para sistemas Debian con el siguiente contenido:

#!/usr/bin/perl -w

use strict;

my (@packages);

open (FL,$ARGV[0]);

@packages=(); 

while (){
 chomp;
 push(@packages,$_);
}

system ('LANG=C aptitude -yr install '."@packages");

Si es para sistemas RedHat como CentOS o Fedora, el script podría ir de la siguiente forma:

#!/usr/bin/perl -w

use strict;
my (@packages);
open (FL,$ARGV[0]);
@packages=();

while (){
 chomp;
 push(@packages,$_);
}

system ('LANG=C yum -y install '."@packages");

Hay que tener en cuenta revisar la lista de repositorios para descargar los respectivos paquetes. Finalmente para usarlo, debo otorgarle los privilegios necesarios al script para ejecutar, luego para ambos ambientes de sistemas se podría usar de la siguiente forma:

./script.pl  archivo_lista_paquetes

Espero le pueda ser útil a alguien.

Advertisements
This entry was posted in Perl. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s