Esta es la parte 2 de estos tutoriales de perl para aprender el funcionamiento de este lenguaje de programación interpretado,bueno los tutoriales los voy a hacer sencillos como los de bash solo un tema por tutorial y al final un map de todos los tutoriales, scripts o programas que realice en el transcurso del tiempo escritos en el mismo y los ejemplos que coloque.
Bueno como dice el titulo en esta ocasión veremos variables,en el capitulo anterior vimos las variables pero fue muy sencillo y le voy a dedicar una a cada una,en esta ocasión escalares.luego,hashes,arrays,etc.
Pero que es una variable,las variables son una función o parte fundamental en cualquier lenguaje de programación en algunos los definimos como strings en otros simplemente les damos un valor a un texto y ese es el caso de perl,una variable varia y podemos cambiar su valor,ya sea desde el momento que la escribimos o en el momento que queramos interactuar con ella desde la entrada del teclado,bueno comencemos con los ejemplos:
1. Definición de variables
La sintaxis de las variables en perl son así:
$variable="cadena,entero,flotante"
De igual forma que en otros lenguajes tenemos los valores cadena,entero,flotante los cuales son
cadena # Todo lo que vaya encerrado en "aquí"
entero # números por ejemplo 775
flotante # Números flotantes por ejemplo 7.55
Volviendo a las variables existen varios tipos de variables y la que acabo de mostrar se llama escalar,escalar,las escalares son las variables en las cuales definimos un valor fácilmente,solamente hacemos esto para definiría
$cadena="Hola Mundo!!!";
$entero=775;
$flotante=7.55;
Y para llamarlos se usa el comando print
print "Esto es una cadena : $cadena\n";
print "Esto es un flotante : $flotante\n";
print "Esto es un entero : $entero\n";
De igual forma es bueno y usar my antes de definir la variable,por ejemplo
my $cadena="Hola Mundo!!!";
Ejercicio 1
Copia y ejecuta este script
#!/usr/bin/perl
#-Ejemplo 1-#
my $cadena="Hola Mundo!!!";
my $entero=775;
my $flotante=7.55;
print "Esto es una cadena : $cadena\n";
print "Esto es un flotante : $flotante\n";
print "Esto es un entero : $entero\n";
Pregunta uno
Que pasa si ejecutamos esto en vez:
#!/usr/bin/perl
#-Ejemplo 2-#
$cadena="Hola Mundo!!!";
$entero=775;
$flotante=7.55;
print "Esto es una cadena : $cadena\n";
print "Esto es un flotante : $flotante\n";
print "Esto es un entero : $entero\n";
2.Cambiar el valor de las variables
Bien,en perl se puede pasar el valor de una variable a otra:
Por ejemplo
my $uno="Uno";
my $dos="dos";
my $tres;
$tres=$uno;
print "$tres\n";
print "$dos\n";
Cabe resaltar en este ejemplo que también se pueden definir las variables después de escribirlas,por ejemplo
my $variable;
$variable="Uno";
print "$variable\n";
Ahora explico el código pasado con #
my $uno="Uno"; # Definimos variable uno
my $dos="dos"; # Definimos variable dos
my $tres; # casi definimos variable tres
$tres=$uno; # Le pasamos el valor de variable uno a esta variable
print "$tres\n"; # Llamamos la variable tres (y se imprimira su valor)
print "$dos\n"; # Llamamos la variable dos
Ejercicio 2
Copia y ejecuta este script
#!/usr/bin/perl
my $uno="Uno";
my $dos="dos";
my $tres;
$tres=$uno;
$dos=$tres;
print "$dos\n";
Ahora otro ejercicio
Dale el valor de la variable tres a la dos y solo llama la variable dos
Pregunta ¿que se imprime?
Vamos bien,bueno ahora vamos ahora vamos a pasar a algo mas interesante,la definición de variables desde la entrada del teclado,para ello usaremos el comando <STDIN>,este comando se usa para obtener información desde un dispositivo de entrada,
3.Definir una variable desde la entrada del teclado
La definición de una variable es la siguiente,para que se pueda definir desde el teclado
my $obtencion = <STDIN>;
Ejercicio 4
Copia y ejecuta este script
#!/usr/bin/perl
print "\nTeclea algo\n\n";
my $obtencion = <STDIN>;
print "\nTu entrada por el teclado fue : $obtencion\n";
Ejercicio 5
Comenta lo que hace el script pasado con #
Ahora,veremos un poco de operaciones aritméticas en el futuro haré una entrada dedicada a esto pero de momento checken este script
#!/usr/bin/ perl
print "Teclea un numero entero: ";
my $num1 = <STDIN>;
chop $num1;
print "Teclea otro numero entero:";
my $num2 = <STDIN>;
chop $num2;
$resultado=$num1+$num2;
print "El resultado de la suma de $num1 y $num2 es: $resultado\n" ;
Como pueden ver hay mucho que explicar,lo que es algo para repasar es el comando chop,este comando quita el último carácter de la línea que se introdujimos, que regularmente es el símbolo de retorno de carro, al momento de teclear [enter].
Ya que vean que pasa si ejecutamos sin chop
Ejemplo
Las operaciones aritméticas las veremos mas adelante con sus debidas cosas pero ese era un ejemplo de lo que se puede hacer con <STDIN>
Eso es todo por ahora
