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
  • 3239 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
No tienes permisos para ver links. Registrate o Entra con tu cuenta

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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Hola Mundo\n";
  4.  
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta(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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$a $b $c $d\n";
  6.  
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta(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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Como te llamas?\n";
  5.  
  6. $nombre = <STDIN>;
  7.  
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Saludos $nombre \n";
  9.  
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta(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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Dentro del bloque 1\n";
  6. No tienes permisos para ver links. Registrate o Entra con tu cuenta(10);
  7. }
  8.  
  9.  
  10. #bloque2
  11.  
  12. {
  13. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Dentro del Bloque2\n";
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta(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){No tienes permisos para ver links. Registrate o Entra con tu cuenta "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){No tienes permisos para ver links. Registrate o Entra con tu cuenta "tu numero es 20\n";} else {No tienes permisos para ver links. Registrate o Entra con tu cuenta "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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Son lo mismo";
  7. }
  8. until
  9. {
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta " 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n \t By: Painboy & Black Poision";
  4. #Un pitido y muestra mensaje para e-r00t
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "la variable 1 tiene el mismo valor que la variable 2";
  7. }
  8. else
  9. {
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "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. No tienes permisos para ver links. Registrate o Entra con tu cuenta "la variable 1 tiene el mismo valor que la variable 2";
  6. }
  7. else {
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1667
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1170
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1400
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1316
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear