07 de Septiembre de 2008, 06:05:52 *

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión
Búsqueda Avanzada  
Páginas: [1]   Ir Abajo
Imprimir
Autor Tema: Tutorial de Perl - Parte II - Por Bootsafe  (Leído 327 veces)
0 Usuarios y 1 Visitante están viendo este tema.
BootSafe
Moderadores
Usuario Destacado
*****

Balance: 9
Conectado Conectado

Mensajes: 257


« : 12 de Abril de 2008, 08:57:17 »

Bueno ahora vamos a otro punto.Es que las matrices asociadas tambien tienen "funciones"

la funcion delete sirve para borrar un valor de un hash y se usa de la siguiente forma

Código:
delete($matriz{clave});

Haber vamos a usarlo...
inmaginense que esto es asi

Código:
%foros(IHA,"Info hack argentina",GHET,"Great Hackers Elite Team");

delete($foros{IHA});

La funcion "values" muestra los valores.
Ejemplo:
Código:
values(hash);

Y la funcion "keys" muestra las claves
Código:
keys(Hash)

Bueno y hay mas de estas funciones pero los estaria mareando mucho y esa no es mi intencion, acuerdense que
despues de leer esto, lean un manual enserio esto solo es lo basico xD

 Operadores arimeticos

Ahora vamos a seguir con los calculos, para ser mas especifico vamos a ver los operadores arimeticos.
Este tema es bastante facil de aprender y util ... :-)

  print 2 + 2;              #esto va a dar el resultado de la Suma de 2 y 2.
  print 2 - 2;               #esto va a dar el resultado de la Resta de 2 y 2.
  print 2 * 2;               #esto va a dar el resultado de la Multiplicación de 2 por 2.
  print 2 / 2;               #esto va a dar el resultado de la División de 2 entre 2.
  print 2 ** 2;              #esto va a dar el resultado de la Elevación de 2 al cuadrado.
  print 2 % 3;              #esto va a dar el resultado del Módulo de 2.

Tambien se puede hacer con variables... por ejemplo
Código:
$num=2;
$numb=3;

print $num + $numb;         #esto daria el resultado de la suma de 2 + 3

Modificadores
Aca vamos con la entrada y salida, algunos de sus modificadores (los mas usados)

  \n    nuevo renglon
  \r     retorno de carro.
  \b    ir un espacio atras
  \f     ir a una hoja nueva
  \u    cambia a mayuscula la primer letra del texto siguiente

Para usar estos modificadores se teclean detras de lo que vamos a imprimir con el comando "print"
ya se que no me habran entendido nada. vamos con un ejemplo

Código:
print "hola soy bootsafe\n";

Ahora si me entendistes??? ves donde esta el "\n", bueno asi se escriben todos los modificadores
almenos que por ejemplo quieras cambiar a mayuscula la primer letra del texto

Código:
print "/uhola soy bootsafe";

Entrada de datos

Bueno esto es facil de entender.... vamos a ir con un ejemplo practico
yo quiero hacer un "programa" en el cual el usuario introduzca dos numeros, y luego esos dos numeros se sumen
Tendria qe hacer lo siguiente:
Código:
#!/usr/bin/perl

print "introduzca el primer numero\n";                 
$a=<STDIN>; chop($a);                                                     
print "introduzca el segundo numero\n";
$b=<STDIN>; chop($b);

print $a + $b

Fijense que <STDIN> se utiliza para que el usuario le ingrese el valor a esa variable, y usamos chop para el retorno del carro
Entonces llegamos a la conclusion  que para ponerle un valor desde el teclado a una variable, se usa en esa variable  <STDIN>
Y
chop(...) que saca el último caracter de lo que el usario asigno.(acordate que donde estan los puntos suspensivos adentro del parentesis tiene que ir la variable)


Estructuras de Control (if y else)

Bueno aca ya se empieza a complicar un poco mas,
como en casi todos los lenguajes, aca tambien existen las famosisimas estructuras de control
en este caso solo voy a explicar "if" y "else"

if se utiliza de la siguiente forma

Código:
if (condicion)
{
             instrucciones
}

else se utiliza de la siguiente forma:
Código:
else
{
             instrucciones
}

La comparacion altanumerica.

Para comprar caracteres o digitos se utiliza

- eq   Igual que
- ne   Distinto de
- lt     Menor que
- gt    Mayor que
- ge   Mayor o igual que
- le    Menor o igual que

voy a dar un ejemplo utilizando: la variable con <STDIN, if, else, y comparacion alfanumerica
Inmaginense que necesito hacer un programa que pida un password, aca va:

Código:
#!/usr/bin/perl

print "introduzca el password\n";                 
$a = <STDIN>; chop($a);

if ($a eq "BootSafe")
{
          print "el password es correcto";
}
else
{
           print "el password es incorrecto";
}

Este mini "programa" lo que hace es pedir un password, y si el password es BootSafe va a imprimir en pantalla que el password es correcto"
si se introduce otra cosa que no sea BootSafe, va a inprimir en patanlla que el password es incorrecto.

Para hacer una estructura condicional multiple se utiliza "elsif"
por ejemplo
Código:
if (condicion)
{
          instrucciones...
}
elsif (condicion)
{
          instruccion...
}

Bueno creo que me voi a quedar aca por hoy..

Saludos Att.
                     BootSafe

PD: Tengo pensado seguir extendiendo este manual, solo para IHA...
si lo van a poner en otro lado porfavor pongan el autor y para la comunidad qe lo hice(Info Hack Argentina) Sonrisa

PD2: La verdad no sabia si editar el otro o hacer tema aparte, pero me parecio qe iva a quedar mas ordenado en tema aparte ... cualquier cosa avisenme y lo borran, edito el anterior
En línea

Registrate aca y te regalo un super pancho
Devilboy
Visitante
« Respuesta #1 : 13 de Abril de 2008, 11:28:44 »

Excelente bro, muy wenos tutos

esperaré los siguientes
En línea
BootSafe
Moderadores
Usuario Destacado
*****

Balance: 9
Conectado Conectado

Mensajes: 257


« Respuesta #2 : 13 de Abril de 2008, 03:38:52 »

Qe bueno... re sexyy qe lo lea a alguien Sonrisa

Saludos Att.
                 BootSafe
En línea

Registrate aca y te regalo un super pancho
Páginas: [1]   Ir Arriba
Imprimir
Ir a:  

 Theme Por C r i p  Modificado Por Neri Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC MySQL | PHP | XHTML | CSS   

Página creada en 0.059 segundos con 20 consultas.