24.Variables argumentativa

Las variables argumentativasson las que se consiguen escribiendo como si fuera un metodo get, por ejemplo:

#!/usr/bin/perl
print "Te llamas $ARGV[0]";

Pero claro, para conseguir el resultado de esa variable argumentativa, necesitamos escribir al ejecutar el archivo.pl esto:

nombre.pl Erik

En este caso seria eso.
Pueden a?adirles tantas argumentativas como quieran.
Si no ha quedado claro, crean un nuevo tema y preguntais all

23.Localtime

Al principio del curso vimos que usabamos la funcion localtime, actualmente, vamos a ense?aros a representarla con las definiciones que querrais, la sintaxis seria algo as?:

#!/usr/bin/perl
($sec,$min,$hor,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time);
print "$sec,";
print " $min, ";
print "$hour, ";
print "$isdst, ";
print "$year, ";
print "$mon, ";
print "$wday, ";
print "$yday, ";
print "$mday.";
 

Como veis, ya indica cada cosa que es, imaginaos que ahora queremos hacer una aplicacion que muestro, hora:minuto:segundo.

#!/usr/bin/perl
($sec,$min,$hor)=localtime(time);
print "$hor: $min: $sec";

?t voila!

22.Funciones numericas

Como veis en el titulo, vamos a hablar de este tipo de funciones numericas:
- Rand
- Rand transformado
- Sumas
- Restas
- Divisiones
- Multiplicaciones
- Potencias
- Raices cuadradas
- Valores absolutos
- Restos

1.Rand:
Lo que la  funci?n numerica rand hace es elegir un numero flotante del 0 al numero que quieras.

#!/usr/bin/perl
print rand(80);

2.Rand transformado:
Es lo mismo que antes solo que puedes elegir numeros octales, caracteres ASCII, colocando su referente delante de todo:

#!/usr/bin/perl
print oct(rand(80));

3.Sumas:
Las sumas se efectuan usando el caracter +:

#!/usr/bin/perl
$suma = 9+9;
print $suma;

4.Restas:
Las restas se efectuan usando el caracter -:

#!/usr/bin/perl
$resta = 9-9;
print $resta;

5.Divisiones:
Las divisiones se efectuan usando el caracter /:

#!/usr/bin/perl
$division = 81/9;
print $division;

6.Multiplicaciones:
Las multiplicaciones se efectuan usando el caracter *:

#!/usr/bin/perl
$multi = 9*9;
$multi;

7.Potencias:
Hay dos tipos de efectuar potencias, usando el sistema exp para conseguir la potencia a cualquier numero:

#!/usr/bin/perl
$pot = exp 8;
print $pot;

Y luego, elevar un numero a una potencia, aqui vemos como se hace:

#!/usr/bin/perl
$pot = 5 ** 2;
print $pot;

Esto se llamaria 5 a la 2 o 5 al cuadrado.

8.Raices cuadradas:
La raiz cuadrada al igual que C se utiliza sqrt, pero en perl no necesitamos la libreria math.h:

#!/usr/bin/perl
$raizcuadrada= sqrt 81;
print $raizcuadrada;
 

9.Valor absoluto:
El valor absoluto se obtiene usando la funcion abs por ejemplo:

#!/usr/bin/perl
print abs(-90);

10.Como sacar el resto:
El resto se obtiene usando el caracter %:

#!/usr/bin/perl
$resto = 14 % 51;
print $resto;

22.Conversiones de bases numericas

De hexadecimal a decimal:

#!/usr/bin/perl
print hex ("contenido");
 

De octal a decimal:

#!/usr/bin/perl
print oct ("cifra");
 

De decimal a ASCII:

#!/usr/bin/perl
print chr("cifra");

Y como pusimos en una lección anterior de hexadecimal a binario:

#!/usr/bin/perl
print "join('', unpack('B*', "\x191"));

EDIT: Ahora me acorde de otra funcion de conversión era ord, para pasar de ASCII a octal y otros...

#!/usr/bin/perl
print ord("cifra o caracteres");
 

Proxima lección, funciones numericas como RAND, restas, multiplicaciones...

21.Die

Se que una lecci?n para una sola funci?n es poco, pero ami esta funci?n me parece muy interesante por el solo hecho de avisarte formalmente de un error.

Cuando una subrutina o una configuraci?n de modulos, conexi?n etc... no te sale bien, usamos la funci?n die.
Die lo que hace es que si la conexi?n no salio bien, salta un mensaje y se acaba el programa.

Aqui un ejemplo de die en nuestro programa el mail bomber:

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('error',
Hello => 'error',
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";

Como veis, die declara que no se efectuo la conexion y se acaba el programa.

20.Encriptaci?n en B64

Primero de todo, tenemos que activar el modulo MIME::Base64:

#!/usr/bin/perl
use MIME::Base64;

Una vez activado este modulo, podemos ver 2 opciones diferentes, codificar, descodificar.
Vamos con la codifiaci?n:
Activamos el modulo B64.

#!/usr/bin/perl
use MIME::Base64;
$encoded = encoded_base64('El texto');
print $encoded;

Ya hemos cifrado la primera b64, ahora veremos como descodificar:

#!/usr/bin/perl
use MIME::Base64;
$decoded = decoded_base64('El texto');
print $decoded;

Ya esta, recibimos el resultado, ahora, vamos a ver un ejemplo de un sistema que codifique y descodifique, aqui lo vemos:

#!/usr/bin/perl
use MIME::Base64;
print "Que texto desea codificar?:";
$cod = <STDIN>;
print "Que texto desea descodificar?:";
$descod = <STDIN>;
$encoded = encode_base64($cod);
$decoded = decode_base64($descod);
print "$encoded\n";
print "$decoded";

Fin de la lecci?n del modulo B64.

19.Sleep, Ignore & Alarm

Estas tres funciones pertenecen a las funciones denominadas "timer" (denominado por mi  ).
Sleep, lo que hace es parar el proceso el tiempo que desees, por ejemplo:

#!/usr/bin/perl
print "De aqui 10 segundos te dire la contraseña";
sleep 10;
print "Despues de estos 10 segundos la contraseña a sido codificada: 10010010100101101010010101001010010101

Luego esta ignore, lo que hace es ignorar las alarmas o alguna función, nosotros la pondremos con alarm:

#!/usr/bin/perl
eval
{
$war{ALRM} = sub  { die "Fallaste"};
print "Escribe la contraseña antes de 5 segungos:\n";
$war{ALRM} = 'IGNORE';
alarm 5;
print "Como hemos usado ignore, puedes tomarte el tiempo que necesites\n";
$pass = <STDIN>;
};
if ($@ =~ /Fallaste/){
print "Has fallado";
}

y ahora alarm, lo que hace es que si en ese "x" tiempo no haces la funcion te salta.

#!/usr/bin/perl
eval
{
$war{ALRM} = sub  { die "Fallaste"};
print "Escribe la contraseña antes de 5 segungos:\n";
alarm 5;
$pass = <STDIN>;
};
if ($@ =~ /Fallaste/){
print "Has fallado";
}
else {
print "Contraseña correcta";

18.Begin End & Goto

Podemos hacer que se ejecute algo al principio de todo teniendo  prioridad
ante los demas, y  todo gracias a  BEGIN y con END podemos tener  el mismo
resultado pero en este caso se ejecutara al final.

Por ejemplo:

#!/usr/bin/perl
print "2\n";
BEGIN {print "1\n"}
END {print "4\n"}
print "3\n";
 

Esto si no tubieras el begin y el end mostraria: 2 1 4 3
Pero gracias al begin y end muestra: 1 2 3 4

Y luego GOTO, que es una sentencia que lo que hace es ir hacia una parte del código que ya ha sido repetida o que esta en el final, o donde queramos, sintaxis:

#!/usr/bin/perl
Inicio:
print "Volvemos al inicio";
goto Inicio;

Esto imprimiria Volvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicioVolvemos al inicio

Infinitas de veces hasta que el PCLI se petara (Perl Command Line Interpreter).

17.Switch

Switch es muy utilizado para crear men?s y poder hacer elecciones:

#!/usr/bin/perl
use Switch;
$variable = <valor>;
switch ($variable) {
case 1	{ print "<menu>" }
case 2	{ print "<menu>" }
case 3	{ print "<menu>" }
case 4	{ print "<menu>" }
else { print "ERROR" }
}
 

16.Variables locales y globales

Definici?n de perl.org:
Por defecto  todas las variables estan definidas de forma global, es decir
se puede acceder a ellas desde cualquier punto de un programa, pero es po-
sible que queramos que solo afecte a un trozo de codigo,  para ello usare-
mos la clave "local" que localiza una variable dentro de un trozo de codi-
go y "my" que se suele usar mas  y es mas recomendable, sirve  para decla-
rar variables en un trozo de codigo como puede ser una subrutina

#!/usr/bin/perl
sub erik
{
my $nombre = "erik";
print "Admin: $nombre\n";
}
my $admin = "Admin";
print "$admin: erik\n";
&erik;