Aprender a programar en Perl

Hoy os traemos un artículo sobre Perl un lenguaje del que todavía no habíamos hablado en Somos Binarios.

¿Qué es Perl?

Perl es un lenguaje que puede llegar a servir para todo, en él se pueden hacer desde pequeños scripts para administrar servidores basados en Unix o GNU/Linux, hasta hacer páginas web, existen proyectos de webs y programas completos realizados en Perl.

¿Por qué Perl?

Perl se puede utilizar en varios entornos, como puede ser Windows, OS/2, Linux, entre muchos otros, sin realizar cambios de código, siendo únicamente necesario la introducción del interprete Perl correspondiente a cada sistema operativo, que casi por seguro, viene ya automática en todos ellos.

Perl es un lenguaje que facilita la programación rápida, pero también hay que decir que la programación es algo sucia, pero sirve sobretodo para poder hacer un programa rápido y sencillo para que funcione.

Existen muy pocas cosas que no se puedan hacer con éste lenguaje, por lo que se le puede considerar como un lenguaje que no tiene fronteras. Con Perl se puede programar cualquier necesidad que se tenga.

¿Cómo se ejecuta un programa/script en Perl?

Los programas o scripts de dicho lenguaje, los podemos ver con la extensión pl.

Para ejecutar un script en perl usaremos el siguiente comando:

perl nombre_script.pl.

Cómo en todo lenguaje, empezaremos creando un script en Perl de “Hola Mundo”, para ello crearemos el script con un:

nano mundo.pl, y en su interior escribiremos lo siguiente:

#!/bin/perl
print "Hola Mundo\n";

Si lo ejecutamos con un perl mundo.pl podremos observar como sí funciona.

Hagamos algo más complicado!

Haremos un script, que podremos ver todos los usuarios que tienen sesión iniciada, la fecha actual, su ID, y la terminal la cual están usando.

El código es el siguiente:

#! /usr/bin/perl
$usuari = qx(whoami);
print "Bienvenido $usuari\n";
$avui = qx(date);
print "Fecha de hoy: $avui\n";
$usuariS = qx(who -q);
print "Usuarios online: $usuariS\n";
$UID = qx(id);
print "ID: $UID\n";
$terminal = qx(tty);
print "Terminal: $terminal\n";
print "Adiós y gracias. \n";

Lo ejecutaremos con un Perl test.pl, y veremos el resultado:

Como podéis ver Perl es un lenguaje potente, que sirve tanto para los administradores de servidores como para la programación en general. Esperamos que os animéis a usarlo y si tenéis alguna duda, dejadnos un comentario.