Hackmelot!!!

Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page

Perl

Es importante mencionar que Perl es muy parecido al lenguaje C pero, una de sus diferencias radica, que no existe el concepto de una rutina principal como "main".

Perl es como un compilador y un interprete. Es lo primero, porque el programa es leído y analizado completamente, antes de ejecutarse. Es lo segundo, porque no hay código objeto que ocupe espacio, podriamos decir que es lo mejor de estos dos mundos.

Primer Programa

#!/usr/bin/perl
print " Hola, esto es divertido";

La primera línea nos indica en que lugar de la computadora esta almacenado el ejecutable de Perl (necesario para "correr" los programas).

La segunda línea es lo que va a realizar el programa, con la palabra "print" y entre comillas el mensaje que aparecerá en pantalla. Además con la combinación de un caracter de control "\n", que indica una nueva línea o retorno de carro. La oración se concluye con un punto y coma.

A continuación otros ejemplos simples; para que vayas adquiriendo experiencia en la creación de programas en Perl. Para documentarlos internamente deberás colocar el símbolo #, en cualquier parte del mismo, y a continuación los comentarios de la características que lo conforman.

Programa No. 2

En el siguiente ejemplo mostramos como leer una variable desde teclado. <STDIN> lee la cadena o el número junto con el cambio de línea (\n).

#!/usr/bin/perl
print "Cual es tu nombre: ";
#--- lee el nombre desde el teclado
chop($nombre=<STDIN>);
#--- Imprime el texto en pantalla
print "$nombre Bienvenido al Tutorial de Perl\n";

Programa No. 3

El programa siguiente realiza una suma de dos datos escalares dados por el usuario y después muestra el resultado en pantalla, también utilizamos el operador chop el cual elimina el último caracter de la cadena

#!/usr/bin/perl
print " Operacion Suma \n";
print " Dame el primer operando \n";
#--- Lee el primer operando
chop($a=<STDIN>);
print " Dame el segundo operando\n";
#--- Lee el segundo operando
chop($b=<STDIN>);
$c = $a+ $b;
print " El resultado es : $c \n";

Programa No.4

En el ejemplo se muestra como convertir una cadena en letras minúsculas a letras mayúsculas

#!/usr/bin/perl
print " Cual es tu nombre \n";
chop($nombre =<STDIN>);
$nombre=~ tr/a-z/A-Z/;
#--- convierte las letras minúscula a letras mayúsculas
print " Ahora en mayúsculas $nombre\n";

Programa No. 5

A continuación se utiliza la función rand() , esta genera un número aleatorio dentro del rango especificado por medio del argumento, además utilizamos la exponenciación que se indica con **, es decir, a**b se lee a elevado a la b.

Perl

Primer Programa

#!/usr/bin/perl print " Hola, esto es divertido";

Programa No. 2

#!/usr/bin/perl print "Cual es tu nombre: "; #--- lee el nombre desde el teclado chop($nombre=<STDIN>); #--- Imprime el texto en pantalla print "$nombre Bienvenido al Tutorial de Perl\n";

Programa No. 3

#!/usr/bin/perl print " Operacion Suma \n"; print " Dame el primer operando \n"; #--- Lee el primer operando chop($a=<STDIN>); print " Dame el segundo operando\n"; #--- Lee el segundo operando chop($b=<STDIN>); $c = $a+ $b; print " El resultado es : $c \n";

Programa No.4

#!/usr/bin/perl print " Cual es tu nombre \n"; chop($nombre =<STDIN>); $nombre=~ tr/a-z/A-Z/; #--- convierte las letras minúscula a letras mayúsculas print " Ahora en mayúsculas $nombre\n";

Programa No. 5

#!/usr/bin/perl srand; $a=rand(10); $b=$a**2; print "El cuadrado de $a=$b\n";

with(document) { write("Tu tienes el: ") write(navigator.appName) write(".") write(" Version ") write(navigator.appVersion) write("<BR>") write("Codename: ") write(navigator.appCodeName) write(".") write(" Agent: ") write(navigator.userAgent)} // -- End Hiding Here -->

#!/usr/bin/perl
print " Hola, esto es divertido";

#!/usr/bin/perl
print "Cual es tu nombre: ";
#--- lee el nombre desde el teclado
chop($nombre=<STDIN>);
#--- Imprime el texto en pantalla
print "$nombre Bienvenido al Tutorial de Perl\n";

#!/usr/bin/perl
print " Operacion Suma \n";
print " Dame el primer operando \n";
#--- Lee el primer operando
chop($a=<STDIN>);
print " Dame el segundo operando\n";
#--- Lee el segundo operando
chop($b=<STDIN>);
$c = $a+ $b;
print " El resultado es : $c \n";

#!/usr/bin/perl
print " Cual es tu nombre \n";
chop($nombre =<STDIN>);
$nombre=~ tr/a-z/A-Z/;
#--- convierte las letras minúscula a letras mayúsculas
print " Ahora en mayúsculas $nombre\n";

#!/usr/bin/perl
srand;
$a=rand(10);
$b=$a**2;
print "El cuadrado de $a=$b\n";