* if (EXPR) BLOQUE * if (EXPR) BLOQUE else BLOQUE * if (EXPR) BLOQUE elsif (EXPR) BLOQUE else BLOQUE * SENTENCIA if (EXPR); * unless (EXPR) BLOQUE * unless (EXPR) BLOQUE else BLOQUE * unless (EXPR) BLOQUE elsif (EXPR) BLOQUE else BLOQUE * SENTENCIA unless (EXPR); * while (EXPR) BLOQUE * SENTENCIA while (EXPR); * until (EXPR) BLOQUE * SENTENCIA until (EXPR); * do BLOQUE while (EXPR); * do BLOQUE until (EXPR); * for (EXPR;EXPR;EXPR) BLOQUE * foreach $var (Array) BLOQUE
#!/usr/bin/perlfor ($i=0; $i < 20; $i++) #Con el bucle for, asignamos 20 valores a la array de nombre matriz. { $matriz[$i]="Elemento $i"; # A medida que $i incrementa su valor se le asigna el mismo a esa misma posicion en el array. }print "El último es $matriz[$#matriz]\n" if ($#matriz==19);# Contamos cuantos elementos tiene la matriz y si es = 19 imprimimosprint "El último: $matriz[$#matriz]\n" unless ($#matriz!=19);#unless (hacer a menos que...). Se usa cuando queremos que se ejecute una instrucción o grupo de instruciones en el caso de que una variable no esté definida o que la condición no sea verdad, es decir, equivaldría a Si no existe... o Si no es...$i=0; #inicio la variable $i en 0while ($matriz[$i] ne "Elemento 5") #la condicion es que sea distinto de Elemento 5 { print "Buscando \"Elemento 5\" y encontrado $matriz[$i]\n"; # imprimo que elemento busco y cual es el elemento encontrado $i++; #incremento $i en 1 } if ($i==5) { print 'La variable $i es 5'."\n"; } else { print 'La variable $i no es 5'."\n"; }#Vamos a mostrar los elementos del arrayforeach $elemento (@matriz)#foreach...(para cada...): Esta instrucción se usa para recorrer los valores de las matrices. La expresión dentro del paréntesis (matriz) es evaluada para producir una lista con sus valores, que actúan como contadores del bucle, ejecutandose el bucle una vez por cada uno de estos elementos. { print "$elemento\n"; }#Creamos una tabla hash%dias=("lunes",L,"martes",M,"miercoles",X,"jueves",J,"viernes",V,"sabado",S,"domingo",D);#Y mostramos sus clavesforeach $clave (keys(%dias)) { print "\%dias{".$clave."}=".$dias{$clave}."\n"; }
#!/usr/bin/perl $uno=1;$dos=2;#Llamamos a la función suma$sum=suma($uno,$dos);print "La suma de $uno + $dos es $sum\n";#Función sumasub suma { #tomamos los parámetros my ($primero,$segundo)=@_; #También se podría hacer con my $primero=shift(@_); my $segundo shift(@_)]; #Devolvemos el resultado return ($primero+$segundo); }