Curso de Perl

Nuetro primer programa sera el ya tipico, que imprime Hola, Mundo! :

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

Veamos como lo ejecutamos, suponiendo que lo grabamos en un archivo llamado miarchivo.algo

   [%] chmod 755 miarchivo.algo
   [%] miarchivo.algo
       Hola, Mundo!
   [%]

#!/usr/local/bin/perl
print ("Cual es tu nombre?");
$nombre=<STDIN>;
chop($nombre);
print "Hola, $nombre!\n";

Veamos un programa en el cual se eligen opciones :

#!/usr/local/bin/perl
print ("Cual es tu nombre?");
$nombre=<STDIN>;
chop($nombre); # saca el enter a la linea leida
if ( $name eq "Claudio")
   {
   print "Hola, Claudio! Como estas!\n";
   }
else
   {
   print "Hola, $nombre\n";
   }

Un ultimo programa, en el cual se introducen los ciclos:

#!/usr/local/bin/perl
print ("Cual es tu nombre?");
$nombre=<STDIN>;
chop($nombre);
$palabrasec="llama";
if ( $name eq "Claudio")
   {
   print "Hola, Claudio! Como estas!\n";
   }   
else
   {
   print "Hola, $nombre\n";
   print "Cual es la palabra secreta?";
   $palabra=<STDIN>;
   chop($opcion);
   while ( $palabra ne $palabrasec )
      {
      print "Error, intentalo de nuevo, cual es la palabra secreta?";
      $palabra=;
      chop($palabra);
      }
   }

En Perl existen dos tipos de datos, numeros y strings, pero entre los numeros estan los enteros y los reales.

Ej: 4,7.5,"hola"

Float : Ej: 1.25,4.25e45,-6.5e24,-1.2E-23

Integer : Ej: 12,15,-2004,3485
	      0377 # 377 octal <=> 255 decimal
              -0xff # ff negativo en hexadecimal <=> -255 decimal

Strings : Ej: "hola",'Como estas'

• Single quoted :

  Ej:'hola' # h,o,l,a
     'don\'t' # d,o,n,',t
     '' # string nulo
     'donde\\vas' # d,o,n,d,e,\,v,a,s
     'hola\n' # h,o,l,a,\,n
     'hola
      tu' # h,o,l,a,[enter],t,u ( 11 caracteres )
  

• Double quoted

  Ej:"hola mundo\n" # hola mundo[enter]
     "cola\tsprite" # cola[tab]sprite
  

Como vimos en estos ejemplos en los double quoted strings, se reconocen cosas como \n,\t,etc. mientras que con single quoted no, pero tiene la ventaja de poder escribirse literalmente lo que se pone entre ellos.

Operadores

• Numeros :

  Ej:2+3 # 5
     5.1-2.4 # 2.7
     3*12 # 36
     2**3 # 8
  

• Strings : a) Concatenacion(.):

  Ej:"Hola"."mundo" # "Holamundo"
     "juan"." "."pedro" # "juan pedro"
  

  b) Operador de repeticion de strings(x) :

  Ej:"juan"x3 # "juanjuanjuan"
     "pedro"x(4+1) # "pedropedropedropedropedro"
  

  c) Operadores de comparacion :

  Numeros	Strings
  ==	eq
  !=	ne
  <	lt
  >	gt
  <=	le
  >=	ge

Conversion entre numeros y strings

Ej: $a="3b";
    $b=$a+5; # $b=8

Ej: $a=5;
    "x".$a  # "x5"

Variables Escalares

Nombres de variables escalares
$[a-zA-Z]+[a-zA-Z0-9_]* $[1-9]+[0-9]* (variables de patern matching) $\,$/,$_,etc (variables especiales)

Ej:$a,$nombre

Operadores

Ej:$a=17;
   $b=$a+3;
   $b=$b*2;
   $a=4+($a=3); # $b=7,$a=3
   $d=$c=5; 

Interpolacion de variables escalares en strings

Ej:$a="juan";
   $b="hola $a"; # $b="hola juan"

Ej: $x="hola";
	$y='$x amigo'; # asigna '$x amigo' a $y

Ej: $mayjuan="\Ujuan"; # $mayjuan="JUAN" 
    $juan="juan"; $mayjuan="\U$juan"; # $mayjuan="JUAN"
    $capjuan="\u$juan"; # $capjuan=Juan
    $pedro="\LPEDRO"; # $pedro="pedro"
    $cappedro="\u\LPEDRO"; #cappedro="Pedro"
    $maypedro="PEDRO"; $cappedro="\u\L$maypedro"; # $cappedro="Pedro"

El valor undef

Ej: $a=3;
	$b=$a+$c; # $b=3
    $x="hola";
    $y=$x.$z; # $y="hola"

Capitulo III : Arreglos

Representacion literal

Ej:   (1,2,3)
      ("juan",4.5)

Ej: ($a,17)
    ($b+$c,$d+$e)

Variables

Ej: @a , @hola 

Operadores

Ej:@a=(1,2,3);
   @b=("yo","tu",2);
   @c=@a; # copia el arreglo @a en @c
   @d=($x,$y);

Ej:
@a=('b',3,"a");
$d=$a[$#a]; # $d='a'
$c=$#a+5;   # $c=7

Acceso a los elementos

Ej: @a=(7,8,9);
    $b=$a[0]; # asigna 7 a $b
    $a[1]=5; # ahora @a es (7,5,9)
    $a[2]++; # suma uno al tercer valor de @a siendo ahora (7,5,10)
    $c=$a[0]+$a[1];

Ej:@juan=(7,8,9);
   $a=2;
   $b=$juan[$a];
   $c=$juan[$a-1]; # $c=8
   $d=$a[$#a]; # $d=9

Ej: @a=(1,2,3);
    $b=$a[7]; # $b es 0 o "" , dependiendo del contexto

Ej: @a=(1,2,3);
    $a[3]="hola"; # @a es ahora (1,2,3,"hola")
    $a[6]="chao"; # @a es ahora (1,2,3,"hola",undef,undef,"chao")

Operaciones sobre arreglos

Push y Pop

Ej: @lista=(1,2,3);
    push(@lista,5); # @lista=(1,2,3,5)
    $a=pop(@lista); # $a=5, @a=(1,2,3)

Shift y Unshift()

Ej: @a=(1,2,3);
    unshift(@a,0); # @a=(0,1,2,3);
    $x=shift(@a); # $x=0 , @a=(1,2,3)  
    unshift(@a,5,6,7) # @a=(5,6,7,1,2,3)

El operador reverse

	
Ej: @a=(1,2,3);
    @b=reverse(@a); # @b=(3,2,1)   
    @c=reverse(1,2,3); # lo mismo

Sort

Ej: @a=sort("grande","pequeño","chico"); # @a=("chico","pequeño","grande");
    @b=(1,2,4,8,16,32,64);
    @c=sort(@b); # @c=(1,2,16,32,4,64,8)

Chop

Ej: @a=("hola","mundo\n","felices dias");
    chop(@a); # @a=("hol","mundo","felices dia")

Operaciones raras

@a=(1,2,3,4,5);
($b,$c,$d)=@a;    # b=1 c=2 d=3

@a=(1,'b',2,'c');
($b,@a)=@a;       # b=1 a=('b',2,'c')

@a=('hola','tu');
@b=(1,2,@a,7,8);  # b=(1,2,'hola','tu',7,8)

@a=(1,2,3,4,5);
@b=@a[1,3];       # b=(2,3,4)

@b=(1,2,3,4,6)[0,1];   # b=(1,2)

@a=(7,8,9);
@b=(1,2,0);
@c=@a[@b];        # c=(8,9,7)

Capitulo IV :Estructuras de control

if,elseif,else

if ( .... ) {
    ......;
    ......;
}
elsif ( .... ) {
    ......;
    ......;
}
elsif ( .... ) {
    ......;
    ......;
}
else ( .... ) {
    ......;
    ......;
}

if ( $a < 18 )
{
print "Tu eres menor de edad\n";
}
else
{
print "Eres un adulto\n";
}

if ( $a == 0 )
{
$ind++;
print "Incorrecto\n";
}

While y until

while ( condicion ) {
....;
....;
}

Ej: print "Cuantos años tienes?";
    $a=<STDIN>;
    chop($a);
    while ( $a > 0 )
       {
       print "El año pasado tenias $a años\n";
       $a--;
       }

until ( condicion ) {
...;
...;
}

For

for ( exp_inicial; exp_testeo; exp_increm){
...;
...;
}

Ej: for ( $x=0;$x<10;$x++)
       {
       print "Llevas $x puntos\n";
       }

Foreach

foreach $a ( @alguna_lista ) {
...;
...;
...;
}

Ej:@a=(3,5,7,9);
   foreach $x (@a) {
      $y=$x*3;
      print "$y\n";
      }
Imprime 9,15,21,27 .

If y unless

Ej:
print "Aqui es, Paulina" if ( $user eq 'Paulina' );

Ej:
$a=45 unless ($a < 12 ); # b valdra 45 si a>=12

Capitulo V : Archivos

Entrada estandard

Ej:$a=<STDIN>; # guarda en $a la linea leida 
   chop($a); # le sacamos el enter que tienen todas las lineas por su
			   ingreso

while ( $a=<STDIN> ) 
{
manejo de la linea leida ..... ;
}

Lectura de parametros pasados a un programa

Ej: %vi prog1.pl
    #!/usr/local/bin/perl
    print "Tu ingresaste las palabras:\n";
    for($x=0;$x<$#ARGV;$X++)
       {
       print "$ARGV[$x]\n";
       }
    %chmod 755 prog1.pl
    %prog1.pl hola mundo chao
      Tu ingresaste las palabras:
      hola
	  mundo
	  chao
    %

Procesamiento de archivos

Ej: open(FILE,"file1");
    while ( $a=<FILE> ){
    .....;
    }
    close(FILE);

Por supuesto tambien podemos escribir en un archivo.

Ej:
$file='hola.c';
open (A,">$file");
# Abrimos para solo escritura el archivo hola.c
print A "hola\n";
close(A);

Ej:
@l=('a',"\n",'b',"\n");
open(G,">>/user/jperez/d.txt");
# Abrimos para escritura pero append
print G @l;
close (G);

Ej:
open (A, "file") || die "No se puede abrir\n";
                      |
                      |
                    vale 1

$#ARGV != 2 || die "use a.pl origen destino";
open (A,"$ARGV[0]")||die("No se puede leer el origen");
open (B,">$ARGV[1]")||die("No se puede escribir en el destino");
while(  )
   {
   print B || die "No se pudo escribir";
   }

#!/usr/local/bin/perl

require "otroarchiv.pl";
# sirve para agregar 
# el codigo que esta en el archivo otroarchiv.pl 

$exp='$nombre="juan"; $apellido="perez"; $nombre.=$apellido; print "hola $name\n";';
eval $exp;
# imprimira 'hola juanperez'

$arch=`cat archivo`;
$eval $arch;

$l{'luis'}='lucho';
$l{'jose'}='pepe';
$a='francisco';
$b='pancho';
$l{$a}=$b;

Lo mismo del ejemplo anterior lo podriamos haber hecho asi:
%l={'luis'=>'lucho','jose'=>'pepe','francisco'=>'pancho'};

foreach $x (%l)
   {
   # Imprimimos el indice y el contenido
   print $x;
   }

%m={'uno'=>'1','dos'=>'2'};
print %m;

uno1dos2

foreach $k ( keys %m)
# keys retorna un arreglo con las llaves del
# arreglo asociativo pasado
   {
   print "llave:$k,contenido:$m{$k}\n";
   }

foreach $k ( sort keys %m)
# sort ordena (keys %m) que es un arreglo que
# contiene las llaves de %m
   {
   print "$k:$m{$k}\n";
   }

dos:2
uno:1

   .      ->  cualquier caracter
   [e.r]* -> 0 o mas veces e.r.
   [e.r]+ -> 1 0 mas veces e.r.
   ^      -> comienzo de linea
   $      -> fin de linea
   [^e.r] -> no e.r.

Ejemplos : $a="hola mundo";
           $e="chao";
           $b= ($a =~ /^he/); # $b vale true = 1                
           $c= ( "chao" =~ /ah/ ) ; # $c=0
           $d= ( "$e" =~ /ah/ ); # $d=0
           if ( $a=~ /o$/ )
               { print "Correcto\n"; } # imprime Correcto

Ej: $cual="este es un test";
	$cual =~ s/test/prueba/; # $cual ahora es "este es un prueba"

Ej: $linea="mvargas::117:10:Juan";
    @a=split(/:/,$line); # @a=("mvargas","","117","10","Juan")

Ej:@campos=(1,2,"hola");
   $salida=join(".",@campos); # $salida="1.2.hola"

Ej: #!/usr/local/bin/perl
	print "En el archivo listado dejaremos la lista de archivos\n";
    system("ls -l > listado");
Ej: #!/usr/local/bin/perl
    $num=`wc -c listado`; # en la var. $num deja el numero de caracteres que
							tiene el archivo listado

Ej:$a="direct1";
   @a=`ls -l -a $a`;

Ej:
open(FD,"ls |");
@archivos=;
close(FD);
# lo que hizo fue guardar todo lo que retorno el ls
# en el arreglo @archivos, un nombre de archivo en
# cada casilla del arreglo

Ej:
open(FE,"| sed 's/[,;:.]//g' > salida");
for($x=1;$x<=5;$x++)
  {
  print FE $lin[$x];
  }
close(FE>
# a 5 strings les aplicamos un sed, el cual les elimina
# la puntuacion; el resultado lo deja en el archivo salida

sub suma {
local($x,$y)=@_;
return($x+$y);
}
# En @_ se reciben los parametros (es por valor)
$f=8;
$c=&suma(4,$f);
# Si yo la hubiera llamado asi: $c=&suma(4,$f,'hola');
# igual funciona
# $c=12

sub duplica() {
$x*=2;
}
$x=8;
&duplicar();
# $x=16, ya que no lo declaramos como 
# local en la subrutina =>
# duplica a x 

for($x=0;$x<=n!;$x++)
# este for termina aprox. en n iteraciones,
# ya que se modifica en cada una de ellas
   {
   $y=&duplica($x);
   }
                                              
sub duplica {
$x*=2;
}

&inicializa(*arr);

sub inicializa {
local(*a)=@_;
$a[0]='cero';
$a[1]='cero';
$a[2]='cero';
}

$st='uno:1,dos:2,tres:3';
&crea($st,*a);
# ahora: $a{'uno'}=1, $a{'dos'}=2, $a{'tres'}=3


sub crea {
local($pal,*g)=@_;
local($x,$a,$b);
local(@aux);
@aux=split(/,/,$pal);
for($x=0;$x<=$#aux;$x++)
   {
   ($a,$b)=split(/:/,$aux[$x]);
   $g{$a}=$b;
   }
}                                                  

• Learning Perl - Randal L. Scahwartz
• Programming Perl - Larry Wall
• Perl 5.0 Overview