Empezaré contando que mi camino de la programación fue un mes con Python, y luego mis colegas me convencieron para manejar vb6... la verdad es que me gustaba más la forma visual de hacerlo, con tus botones y todo... pero nada que ver con Python, super simplón que era... Así que buscando (tras varios meses de trastear con estos lenguajes), vi que Python nació de Perl, y miré unas preciosas gráficas en las que mostraba, la velocidad de ejecución, compilación y de bytes que ocupaba Perl, respecto a Ruby, PHP y Python. Y sin duda alguna Perl era el mejor, solo que era el que más líneas tenía la aplicación... pero pensé, vamos a por Perl (C me cae mal).
Asé que estoy haciendo mis pinitos, pero no quiero perder el tiempo con cosas que no me sirven, por lo que busco programación respecto a instalaciones, cliente/servidor, programarle tareas a hacer en el sistema, etc.
Alguno ya pillará mi concepto de por dónde voy, pero si me cambié de Python y vb6, es por que parece ser que quitando C, Perl es el siguiente lenguaje que tiene menos problemas para actuar en Linux y Windows.
Bueno, espero que me echéis un cable por ahí, estoy haciendo un mini manual de lo que estoy aprendiendo; por ahora llevo esto, que no es gran cosa, pero son las 5 AM ¡y me voy a acostar ya!:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- # INTRODUCCIÓN PRACTICA AL Perl
- # BY
- # BL4CKC00K1E
- #Hola mundo, la \n para hacer salto de línea y toda línea termina con ";" #
- print "HOLA MUNDO\n";
- print "--------1--------\n";
- #Damos el valor con $ y ponemos letras y números; al sumarle 1 al valor, coge los 3 primeros #números, ya que "y" no es un número dando 124 de resultado, si #v2 es 12.16 daría 13.16
- #Y ponemos última la \n para que no nos salga seguido en la consola y la primera para que no salga
- #seguida de los nº#
- #el primer print los puse entre comillas ya que quería meterle el valor /n al 2º no me hace falta #aunque podríamos abreviarlo las 2 últimas líneas a:
- #print "$v2 + 1"\n-------2-------\n; <img src="http://perlenespanol.com/foro/images/smilies/icon_razz.gif" alt=":P" title="Razz" />
- $v1="123y321";
- $v2="12.16";
- print "$v1 + 1\n";
- print $v2 + 1;
- print "\n-----------------------2-----------------------\n";
- #Podemos dar valores de uno en uno o seguidos, pero OJO: si metes pones "loksea" con 2 comillas, #reconoce las funciones que le metas al texto (en este caso \n) pero si pones 'loksea' con 1 #comilla, no te lo reconoce y sale como cadena de texto#
- $palabra1="charmander\n";
- $palabra2='charmeleon\n';
- $palabra3="charizard\n";
- ($palabra4,$palabra5,$palabra6) = ("Pikachu\n","Espinete","\n-------------------3-----------------------\n");
- print $palabra1,$palabra2,$palabra3,$palabra4,$palabra5,$palabra6;
- #Damos con @ varios valores a frutas (vector escalar creo que es) la 1º letras, tiene la posición #0 y la última al 3, es decir, se empieza desde el 0 (como Python <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":)" title="Smile" />), al 1º print le decimos, #píllame el 1 y el 2. Al 2º print le decimos, píllame desde el 1º hasta el último#
- @frutas = ("manzana ","pera ","naranja ","fresa ");
- print @frutas[1,2];
- print "\n";
- print @frutas[0..3];
- print "\n";
- #Para hacer que salgan en líneas diferentes, ponemos el valor entre " y sustituimos @ por $, de #esa forma podemos introducir \n
- print "$frutas[0]\n$frutas[1]\n$frutas[2]\n$frutas[3]\n";
- print "\n---------------------------------------------------------4--------------------------------------------\n";
- #Novedades: <STDIN> Perl define al "archivo" STDIN como su entrada estándar, y el operador <> #que indica la lectura de una línea de un archivo de texto
- #Chop coge el valor eliminando el último carácter, así que aunque pongáis \n, no sos lo va a coger #ya que tiene valor constante
- #No sé por qué, pero no hace falta poner \n en estos casos xD
- #ahora el toque maestro de Perl: si os fijáis podemos meter cadenas convencionales, concatenadas ( con el ".") con funciones aritméticas (100-$edad).
- print "Identifícate Invasor!!:";
- $nombre=<STDIN>;
- chop($nombre);
- print "$nombre!, vaya mierda de nombre, ¿cuantos años tienes?:";
- $edad=<STDIN>;
- print "sabías que te faltan ".(100-$edad)." años para palmar?\nAdiós Invasor!\n\n\n ---------------------------------------5----------------------------\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
P.D. En los foros de hack casi nadie usa Perl; es casi imposible encontrar gente que sepa.