comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Tutorial perl desde cero By: Black Poision & Painboy

  • 2 Respuestas
  • 3005 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:30:30 pm »
Tutorial Perl desde 0

By: Black Poision & Painboy


Perl (Practical Extraction and Report Language) es un lenguaje de programación desarrollado por Larry Wall (lwall at netlabs.com) inspirado en otras herramientas de UNIX como son: sed, grep, awk, c-shell, para la administración de tareas propias de sistemas UNIX.

No establece ninguna filosofía de programación concreta. No se puede decir que sea orientado a objetos, modular o estructurado aunque soporta directamente todos estos paradigmas; su punto fuerte son las labores de procesamiento de textos y archivos.

No es ni un compilador ni un intérprete, está en un punto intermedio, cuando mandamos a ejecutar un programa en Perl, se compila el código fuente a un código intermedio en memoria que se optimiza como si se fuera a elaborar un programa ejecutable pero es ejecutado por un motor, como si se tratase de un interprete.

Lenguaje de programación basado en scripts portable a casi cualquier plataforma. Es muy utilizado para escribir CGIs. Uno de sus elementos más potentes son las expresiones regulares, que a partir de su versión en Perl han sido adoptadas por otros lenguajes y plataformas como .NET o Javascript.


bueno pues el manual lo hago pensando que se usara windows  haci que necesitaremos el active perl

bajenlo de aca
You are not allowed to view links. Register or Login

Bueno cuando ya tengan instalado el active perl abriremos el block de notas hay es donde haremos todo nuestro code :P

como primera linea siempre pondremos

Código: Perl
  1. #!/usr/bin/perl

es lo que le indica al SO que trabajara con un script en perl como este lenguaje es de unix  "/usr/bin/perl" es la direccion donde se encuentra el interprete "#!" esto indica que se debe usar un interprete de comandos

bueno despues de esta linea ya va nuestro code

ejemplo

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. You are not allowed to view links. Register or Login "Hola Mundo\n";
  4.  
  5. You are not allowed to view links. Register or Login(10);
  6.  

print "Hola Mundo\n";
esta linea imprime hola mundo en pantalla

y

sleep(10);

hace que podamos ver hola mundo retrasando 10 segundos el programa antes de cerrarse

nota* despues de cada comando se debe poner ";"
la forma de guardarlo es
archivo> guardar como> loquequieras.pl

despues puedes ejecutarlo como cualquier otro programa

te saldra algo como esto



variables

ahora explicare las variables

Escalares

en este tipo podemos poner numeros o palabras

Código: Perl
  1. $nombredelavariable="palabra";
  2. $nombredelavariable=numero;
  3.  
ejemplo

Código: Perl
  1. $a="Black";
  2. $b=30;

podemos definir varias variables al mismo tiempo con parentecis por ejemplo

Código: Perl
  1. ($a,$b,$c,$d) = ("manual","by","Black", "Poison");

esto es lo mismo que poner

Código: Perl
  1. $a = "manual";
  2. $b = "by";
  3. $c = "Black";
  4. $d = "Poison";

la forma de inprimirlas en pantalla es haci

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. ($a,$b,$c,$d) = ("manual","by","Black", "Poison");
  4.  
  5. You are not allowed to view links. Register or Login "$a $b $c $d\n";
  6.  
  7. You are not allowed to view links. Register or Login(10);
  8.  

como ven solo debemos declararlas y despues solo poner el nombre de la variable

bueno pues continuo con el tutorial :P

Código: Perl
  1. <STDIN>

este comando sirve para almacenar un valor o cadena a una variable
ejemplo

Código: Perl
  1. $a = <STDIN>;

lo que se hace con <STDIN> es  leer lo que se escribe en pantalla y asignarlo a una variable

por ejemplo

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3.  
  4. You are not allowed to view links. Register or Login "Como te llamas?\n";
  5.  
  6. $nombre = <STDIN>;
  7.  
  8. You are not allowed to view links. Register or Login "Saludos $nombre \n";
  9.  
  10. You are not allowed to view links. Register or Login(10);
  11.  



Arreglos en perl

los arreglos son arreglos de escalares


ejemplo

Código: Perl
  1. @arreglo = ("Manual","By","Black","Poison","y","Painboy");

como ven los arreglos se ponen con @ al principio

y para imprimir algun escalar que este dentro de un arreglo seria haci

Código: Perl
  1. You are not allowed to view links. Register or Login "$arreglo[0]\n"


esto imprimiria manual como ven use $ en lugar de @ por que lo que quiero imprimir es un escalar

para imprimir un scalar de un arreglo

debemos poner $nombredelarreglo[numerodelscalar]

si hubiera querido poner Black seria $arreglo[2]

se empieza a contar desde cero en la pocision en la que estan los escalares dentro del arreglo

Funciones Push & Pop saca o crea elementos desde el final

Funciones Shift & Unshift Saca o crea elementos desde el principio

Bloques
Código: Perl
  1. {
  2. comandos
  3.  
  4. }
  5.  
  6.  

un bloque es un grupo de comandos dentro de un par de llaves

Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. #bloque1
  4. {
  5. You are not allowed to view links. Register or Login "Dentro del bloque 1\n";
  6. You are not allowed to view links. Register or Login(10);
  7. }
  8.  
  9.  
  10. #bloque2
  11.  
  12. {
  13. You are not allowed to view links. Register or Login "Dentro del Bloque2\n";
  14. You are not allowed to view links. Register or Login(10);
  15. }
  16.  

Sentencia IF

pongo esta sentencia por que se usan bloques con ella

ejemplo

Código: Perl
  1. if (condision){comado o comandos que se ejecutan si la condision se cumple}
  2.  
  3. if($a==20){You are not allowed to view links. Register or Login "tu numero es 20\n";}

si $a es igual a 20 imprimira "tu numero es 20 en pantalla"

de lo contrario saltara if y continuara con lo que este despues

ahora usando else en la sentencia

Código: Perl
  1. if($a==20){You are not allowed to view links. Register or Login "tu numero es 20\n";} else {You are not allowed to view links. Register or Login "el numero no es 20\n";}

si el numero es 20 mostrara "tu numero es 20" y si el numero es diferente a 20 mostrara "el numero no es 20"

Bucle for

Código: Perl
  1. for (expresion)
  2. {
  3. comando
  4. }

Bucle While/Until By:Painboy

while (condicion) {
        Instruccion para cuando la condicion sea cierta
    }

    until (condicion) {
        instruccion para cuando la condicion sea falsa
    }

Ejemplo:

Código: Perl
  1. #!/usr/bin/perl
  2. var1= "Painboy";
  3. var2 = "Blackpoision";
  4. while (var1 == var2)
  5. {
  6. You are not allowed to view links. Register or Login "Son lo mismo";
  7. }
  8. until
  9. {
  10. You are not allowed to view links. Register or Login " No son los mismos";
  11. }
  12.  

Extras By:Painboy

\n = Salto de linea (1)
\t = Espacios (Tabulador) (8 espacios)
\a = Pitido (Produce un pitido en el pc)

Ejemplo:
Código: Perl
  1. #!/usr/bin/perl
  2. #Salto de linea al inicio y 8 espacios para la derecha
  3. You are not allowed to view links. Register or Login "\n \t By: Painboy & Black Poision";
  4. #Un pitido y muestra mensaje para e-r00t
  5. You are not allowed to view links. Register or Login "\a Para e-r00t";
  6.  


Operadores logicos By: Painboy

== es igual
!= No es igual
<  menor que
<= Menor o igual que
>  Mayor que
=> mayor o igual que

Ejemplo:

Código: Perl
  1. #!/usr/bin/perl
  2. var1 = 3;
  3. var2 = 2;
  4. if (var1 == var2)
  5. {
  6. You are not allowed to view links. Register or Login "la variable 1 tiene el mismo valor que la variable 2";
  7. }
  8. else
  9. {
  10. You are not allowed to view links. Register or Login "No tienen un mismo valor las 2 variables
  11. }
  12. #Claramente el resultado seria No tienen un mismo valor las 2 variables.
  13.  

Tutorial by: Black Poision & Painboy
« Última modificación: Marzo 14, 2015, 10:33:54 am por Expermicid »

Desconectado Black Poison

  • *
  • Underc0der
  • Mensajes: 3
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Julio 05, 2010, 05:37:53 pm »
wow esto aun vive :D

Desconectado blozzter

  • *
  • Underc0der
  • Mensajes: 106
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • blozzter-blz
« Respuesta #2 en: Septiembre 02, 2011, 09:43:36 pm »
el ultimo ejemplo tiene un error y el ante-penúltimo también.

especifico el ultimo: olvidan ponerle $ a las variables y olvidan también cerrar las comillas del último print.
quedaría así:

Código: Perl
  1. #!/usr/bin/perl
  2. $var1 = 3;
  3. $var2 = 2;
  4. if ($var1 == $var2){
  5. You are not allowed to view links. Register or Login "la variable 1 tiene el mismo valor que la variable 2";
  6. }
  7. else {
  8. You are not allowed to view links. Register or Login "No tienen un mismo valor las 2 variables";
  9. }
  10. #Claramente el resultado seria No tienen un mismo valor las 2 variables.


es un post viejo y perdón por revivirlo, pero si es Perl desde 0 se debe tener más cuidado con esos detalles.

¡< blozzter >!

 

¿Te gustó el post? COMPARTILO!



[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1409
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1040
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1551
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX