Debe introducir al menos 3 caracteres en el buscador.
Inicio / Wikis / Tutoriales / Introducción al Lenguaje PERL - Sintaxis general

Introducción al Lenguaje PERL - Sintaxis general

 ----- 
Creative Commons Tutorial de Mononeurona - 27 de Octubre de 2005
Temas Relacionados: PERL
4. Sintaxis general
Como ya habrás podido observar todas las intrucciones de PERL deben terminar en ";".

Ejemplo

 $numero = 2; print $numero;

Además las únicas cosas que deben de ser declaradas en PERL son los formatos de salida o reports y las subrutinas. Todas las variables creadas y no inicializadas tienen como valor por defecto nulo o cero. Los comentarios deben ir precedidos del símbolo #. Ahora veremos de forma práctica el uso de las sentencias de control condicionales e iterativas que suministra el lenguaje PERL para alterar el flujo de un programa.

En primer lugar entenderemos como BLOQUE a todo conjunto de sentencias que se encuentren entre dos llaves, por ejemplo lo siguiente sería un bloque:

{
  $numero=2;
  print $numero;
}

Los bloques, además, pueden ser etiquetados anteponiendo a la llave de apertura el nombre de la etiqueta mas dos puntos.

En segundo lugar entenderemos como EXPRESION a toda expresión cuya evaluación resulte ser un valor booleano, es decir, verdadero o falso. Hay que tener en cuenta que en PERL se considera como verdadero todo valor no nulo luego se pueden presentar como expresiones el resultado de una asignación,de una búsqueda etc...

Una vez hechas estas consideraciones pasamos a ver la sintaxis de los distintos esquemas de control, que como ya hemos dicho antes pueden ser:

  • Esquemas condicionales.
  • Esquemas iterativos.

Dentro de los primeros tenemos los siguientes formatos:


  • if (EXPRESION) BLOQUE. Un ejemplo de uso podría ser:  print " PENSANDO UN NUMERO ....\n";

 $numero = rand(100);
 print "Introduce un numero del 1 al 100:";
 $entrada = <STDIN>;
 if($entrada
$numero) {print "Has acertado el numero\n";}  if($entrada > $numero) {print "El numero introducido es mayor que el pensado.\n";}
 if($entrada < $numero) {print "El numero introducido es menor que el pensado.\n";}
 print " EL NUMERO PENSADO ERA:",$numero;
if (EXP) BLOQUE else BLOQUE. Un ejemplo podria ser:  print " PENSANDO UN NUMERO ....\n";

 $numero = rand(100);
 print " Introduce un numero del 1 al 100:";

 $entrada = <STDIN>;
 if($entrada
$numero)    { 
     print "Has acertado el numero\n";
  }
 else
  { 
     if($entrada > $numero) 
      {
       print "El numero introducido es mayor que el pensado.\n";
      }
     else 
      {
       print "El numero introducido es menor que el pensado.\n";
      }
  }
  • if (EXP) BLOQUE elsif (EXP) BLOQUE .... else BLOQUE. Un ejemplo podria ser:  print " PENSANDO UN NUMERO ....\n";

 $numero = rand(100);
 print " Introduce un numero del 1 al 100:";

 $entrada = <STDIN>;
 if($entrada
$numero)    { 
    print "Has acertado el numero\n";
  }
 elsif($entrada > $numero)
  {
    print "El numero introducido es mayor que el pensado.\n";
  }
 else 
  {
    print "El numero introducido es menor que el pensado.\n";
  }En lugar de if podemos usar unless que tiene el significado contrario.
Dentro de los esquemas iterativos tenemos:
  • while (EXP) BLOQUE . Mientras se cumpla la condición EXP se ejecutará todo lo que haya en bloque. Un ejemplo podría ser:  print " PENSANDO UN NUMERO ....\n";

 $numero = rand(100);
 $entrada = $numero+1;

 while ($entrada > $numero)
 {
   print " Introduce un numero del 1 al 100, menor que el pensado:";

   $entrada = <STDIN>;

   if($entrada > $numero) 
    {
      print "El numero introducido es mayor que el pensado.\n"; 
    }
 }
 print " EL NUMERO PENSADO ERA:",$numero;
 print "\n";En lugar de while podemos usar until, que tiene el efecto contrario a éste. Si además queremos hacer la primera comparación después de la primera iteración, podemos usar un esquema iterativo do BLOQUE until o do BLOQUE while.
  • for (EXP;EXP;EXP), su uso es exactamente igual que en C; un ejemplo de uso sería:   print "IMPRIMIENDO DEL 1 al 100:\n";
  getc;
  for($i=1;$i<101;$i++) 
  {
    print $i."\n";
  }Y por último tenemos:
  • foreach VAR (ARRAY) BLOQUE, con este esquema vamos obteniendo cada uno de los valores que contiene ARRAY y los vamos depositando en la variable VAR. Un ejemplo podría ser: @frutas=("manzana","pera","naranja","fresa");
foreach $fruta (@frutas)
{

   print $fruta."\n";
 }
Autor y licencia de 'Introducción al Lenguaje PERL - Sintaxis general'
Mononeurona Extraído de: http://www.mononeurona.org/index.php?idp=442

Creative Commons License
Esta obra está bajo una licencia de Creative Commons.
Este trabajo está licenciado bajo la Creative Commons License. 1999-2005 © :: MonoNeurona.org ::
Este contenido ha sido recopilado por el equipo de Wikilearning. Todo el contenido recopilado se ha obtenido respetando y comunicando en nuestro site la licencia de cada fuente.
Wikilearning tiene permiso expreso por escrito de los autores para publicar los contenidos que ha extraído de otras webs, incluyendo su uso comercial.

Wikis relacionados con 'Introducción al Lenguaje PERL - Sintaxis general'

Tras no pocas polémicas, en 1639 aparece, en la ciudad de Barcelona, la Historia general... Más »
En los años setenta convergen en España una serie de discursos vinculados a conceptos de... Más »
Como es sabido, el concepto de función metalingüística y su ámbito de aplicación han quedado... Más »
XML es un metalenguaje, es decir, un lenguaje hecho para poder construir otros lenguajes con... Más »
XML es un metalenguaje, es decir, un lenguaje hecho para poder construir otros lenguajes con... Más »
¿Estás seguro de que deseas eliminar este capítulo?