Ver el código de «Perl»

== Introdución a Perl ==
Instalación de Perl en Windows:
* Baixar e instalar [http://www.activestate.com/activeperl/downloads Perl para Windows]

Para ver a versión de Perl instalada:
<source lang="perl">
C:\scripts> perl -v

This is perl, v5.10.1 built for MSWin32-x64-multi-thread
(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2009, Larry Wall

Binary build 1007 [291969] provided by ActiveState http://www.ActiveState.com
Built Jan 27 2010 14:12:21

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

</source>

O meu primeiro ''script'' en perl:

Creamos o arquivo '''proba.pl''' e o editamos có noso editor favorito, o contido do arquivo debe ser o seguinte:
<source lang="perl">
#!/usr/bin/perl
print "Ola Caracola!\n"
</source>
Logo para executalo:
- Se é dende Linux hai que configurar o arquivo como executable:
<source lang="bash">
# chmod 755 proba.pl
# ./proba.pl
</source>

E logo executalo:
<source lang="bash">
# ./proba.pl
</source>

- Se é dende Windows, acceder á liña de comandos e escribir:
<source lang="dos">
> perl proba.pl
</source>

- Un exemplo mais elaborado será o seguinte:
<source lang="perl">
print "Valor del inmueble? ";
chop( $valor = <STDIN> );
$comision = $valor * 0.25;
print "Comision = $comision\n";
</source>

- Para poñer unha línea de comentarios empregar o símbolo '''#'''.

== Variables e Tipos ==
: Perl emprega variables para representar cousas que poden ter diferentes valores. En Perl temos tres grandes grupos de variables: escalares ($), arrays (@) e ''hashes'' (%). Ter en conta que se distingue entre minúsculas e maiúsculas.

=== Escalares ===
:* Esta variable pode conter calquera tipo de información xa sexan números, letras, cadenas de texto, signos, código ASCII, etc.
:* Para definir unha variable escalar todo o que temos que facer é:
<syntaxhighlight lang="perl">
$variable
</syntaxhighlight>
:* Por escalares enténdense valores numéricos e alfanuméricos, no caso dos valores alfanuméricos (texto) este escríbese entre comiñas.
:* Ao final da asignación débese escribir ";".
:* As variables non poden comezar por un número.
: Exemplos:
<syntaxhighlight lang="perl">
# Número enteiro
$num1=127;
# Número decimal
$num2=2.5;
# Número Octal
$Octal1=044;
# Número Hexadecimal
$Hex1=0xFF;
# Interpolar variables dentro doutra
$Frase1="O usuario $nome $apelidos de $idade anos...";
</syntaxhighlight>
Pódese definir tamén o alcance (''scope'') da variable:
Se non se indica nada as variables son sempre globais.
:* '''my''' - Unha variable declarada con '''my''' non pertence a ningún paquete, pertence só ao seu bloque.
:* '''our''' - Para definir variables globais empregamos a palabra clave '''our'''.

<syntaxhighlight lang="perl">
...
my $age = 40;
our $count = 1;

...

</syntaxhighlight>

=== ''Arrays'' ===
:* Comezan có signo '''@'''.
:* Conteñen unha lista de valores escalares (números e textos).
Exemplos:
<source lang="perl">
# Definir un array
@provincia=("A Coruña","Lugo","Ourense","Pontevedra");
# Devolve "A Coruña"
$provincia[0]
# Devolve "Lugo"
$provincia[1]
# Cambiar o valor gardado
$provincia[0]="Oviedo";
# Agora @provincia=("Oviedo","Lugo","Ourense","Pontevedra")
</source>
:* Como vemos, para a asignación emprégase o carácter '''@''' e para acceder a un valor individual, tanto para ler como para escribir nel, emprégase o signo '''$'''.
:* Os ''arrays'' tamén aceptan interpolación con outros ''arrays''.
:* Existen algunhas funcións que axudan a poñer ou sacar elementos da lista:
<source lang="perl">
# Saber o índice do último elemento da lista:
$#provincia
# E mostrar por pantalla ese último elemento da lista:
print $provincia[$#provincia];
# Colocar novos elementos ao final da lista:
push(@provincia, 'Cadiz', 'Sevilla');
# Sacar o último elemento do ''array'' e asignarllo a unha variable:
$oultimoera=pop(@provincia);
# Remprazar o primeiro elemento do ''array'':
unshift(@provincia, 'Oviedo');
# Sacar o último elemento do ''array'' e asignarllo a unha variable: 
$oprimeiroera=shift(@provincia);
</source>

=== Hashes ===
:* Trátase de matrices que se referencian polo par clave/valor.
:* Comezan có signo '''%'''.
:* Os valores introdúcense mantendo unha relación a pares, o primeiro valor é a clave do seguinte.
<source lang="perl">
# Definir un hash:
%dia=(Lun,"Luns",Mar,"Martes",Mer,"Mércores",Xov,"Xoves",Ven,"Venres",Sab,"Sábado",Dom,"Domingo");
# Outro modo de definir o mesmo hash:
%dia=(
Lun=> "Luns",
Mar=> "Martes",
Mer=> "Mércoles",
Xov=> "Xoves",
Ven=> "Venres",
Sab=> "Sábado",
Dom=> "Domingo"
);
# Acceder a un dos elementos:
print $dia{Lun};
# Modificar o contido dun dos elementos do hash:
$dia{Lun}=LUNS;
</source>
:* Os ''hashes'' tamén teñen unha serie de funcións asociadas, que facilitan a súa utilización:
<source lang="perl">
# Para borrar un par clave/valor utilizamos a función delete:
delete($dia{Lun});
# A función values mostra todos os valores da matriz asociada pero sen manter un orden determinado:
print values(%dia);
# A función keys mostra todas as claves do hash sen manter un orden determinado:
print keys(%dia);
# Para mostrar os elementos dun xeito ordenado empregaremos a función sort:
print sort(values(%dia));
print sort(keys(%dia));
</source>

== Expresiones regulares en Perl ==
Las [[Exmpresions_Regulares_en_Linux|expresiones regulares]] en Perl son una parte importante del trabajo con los operadores ''m//'', ''s///''. ''qr//'' y ''split''.

Perl es ampliamente conocido por su excelente procesamiento de textos, y las expresiones regulares son uno de los factores que le dan esta fama.

A partir de ahora "expresión regular" será abreviado como "regexp".
 
* '''Coincidencias de una palabra simple: '''
: Para buscar la coincidencia de un ''string'' en una frase:
<source lang="perl">
#!/usr/bin/perl
if ("Hola mundo" =~ /mundo/) {
        print "Coincidencia!!!\n";
}
else {
        print "No hay coincidencias!!!\n";
}
</source>
:: En este caso sí hay coincidencia.

* '''NO coincidencia de una palabra simple: '''
: En este caso lo haríamos del siguiente modo:
<source lang="perl">
#!/usr/bin/perl
if ("Hola mundo" !~ /mundo/) {
        print "Coincidencia!!!\n";
}
else {
        print "No hay coincidencias!!!\n";
}
</source>
:: En este caso NO hay coincidencia.

== Aprender con exemplos ==
=== Pedir nombre, guardarlo en variable y luego imprimirlo. Ver también las diferencias entre utilizar las " " y las ' ' ===
<source lang="perl">
#!/usr/bin/perl
#Ejemplo sencillo
#
print"¿Cómo te llamas? ";
chop( $nombre = <STDIN> );

print "Tu nombre es $nombre\n";
print 'Tu nombre es $nombre\n';

#END
</source>

'''Salida:'''
: ¿Cómo te llamas? Manuel
: Tu nombre es Manuel
: Tu nombre es $nombre\n

'''Aclaraciones:'''
:* Función [http://perldoc.perl.org/functions/print.html print].
:* Función [http://perldoc.perl.org/functions/chop.html chop].

=== Trabajo con variables de entorno y variables de usuario ===
<source lang="perl">
#!/usr/bin/perl
#Ejemplo de variables
#
$saludo = "Bienvenido Sr. ";
$nombre = getlogin();
print $saludo . " " . $nombre . "\n";

# Función específica para obtener 
# toda la información de un usuario: getpwnam 
($name, $pass, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire) = getpwnam($nombre);
print "Su directorio home es $dir\n\n";

# Las variables $ también son muy útiles
# Y también el carácter de escape \
print "Está usted ejecutando el script \"$0\"\n";

# Argumentos:
$NumArg = @ARGV;
print "con $NumArg argumentos, que son: \n";
$i = 0;
while ($i < $NumArg) {
print "\t- Argumento Núm. ", $i, " ---> ", $ARGV[$i], "\n";
$i++;
}
print "\n";

# Para el PID de un proceso:
print "El PID de este proceso es " . getpgrp(0) . "\n\n";

# Ejecutar una función de shell bash desde el script perl:
$fecha=`/bin/date`;
print "Por último le indico la fecha actual: $fecha \n";

# Si la última sentencia se ejecutó con éxito devolverá un 0 
print "La función print se ejecutó: $?\n";

#END
</source>
'''Aclaraciones:'''
:* [http://www.cicei.com/ocon/gsi/tutorial_perl/cap9.htm Variables predefinidas]
:* [http://www.techrepublic.com/article/obtain-user-group-and-process-information-in-perl/5974002 Usuarios, Grupos y Procesos]

=== Trabajar con la función tr ===
<source lang="perl">
#!/usr/bin/perl
#Ejemplo con tr
#
while (<STDIN>){
        $texto = $_;
        $texto =~ tr/a-z/A-Z/;
        print "$texto\n";
}
</source>
'''Aclaraciones:'''
:* Función [http://www.misc-perl-info.com/perl-tr.html tr]
== Enlaces interesantes ==
- [http://perl-tutorial.org/ Manuales de Perl]