pablitusss

La posición de manejo adoptada a la hora de subir al auto es trascendental para tener una conducción segura. Y dentro de esa postura, el modo en que se toma el volante con las manos es el aspecto más importante. Pero según estudios psicológicos, las zonas que se agarra, tanto del aro como los rayos del volante, pueden revelar características de personalidad. El perfeccionista. Esta es la forma correcta de tomar un volante, también indicado como "9 y 15", si tomamos de referencia las agujas de un reloj. Se trata de una persona que le gusta hacer las cosas en forma correcta y poner mucha atención en los detalles, dando especial importancia a las reglas de juego. Para esta persona no vale la pena hacer cosas si no se hacen bien. El éxito es un sinónimo de su personalidad. El inseguro. Tomar el aro con las dos manos en la parte superior (conocido en la jerga automovilística como "conejito", revela una personalidad ansiosa, que revisa una y otra vez sus proyectos y trabajos hasta estar completamente seguro de si mismo. Huye de las situaciones de riesgo. El pacificador. El conductor que pone sus manos sobre los rayos horizontales del volante por lo general suele ser mediador entre sus familiares y amigos. Escapa de las discuciones porque lo ponen incómodo. Sin embargo, muestra una gran habilidad y eficacia para resolver problemas. El jefe Muestra claramente a un líder, una persona que se hacer cargo de las situaciones de un modo claro y decisivo. Los demás lo ven como un consejero, una guía. En el trabajo es blanco de elogios por su liderazgo. Aunque por su naturaleza, le cuesta mucho encontrar una pareja que lo complemente. El payaso. Quien por momentos no toma el volante con las manos, es una persona que le pone humor a todo. Es divertirdo y tiene creatividad, por lo que es muy bueno para las artes. Los demás disfrutan mucho de su compañía. El aventurero. Aprovecha al máximo cada momento y le encanta vivir al límite. Le interesan los deportes extremos, por ejemplo. Y no le importa enamorarse todas las veces que sea necesarias: siempre juega todas las fichas. Por su mentalidad, se gana el respeto y la admiración de sus seres queridos. El bonachon Lo quieren todos y él se alegra por los demás cuando tienen éxito. Es el típico amigo perfecto. Disfruta de la vida desde un punto de vista amable y positivo. El cool. Es relajado. No suele tomarse la vida muy en serio. En momentos complicados suele demostrar indiferencia. Vive la vida como si estuviese todo el tiempo de vacaciones.

Que es Perl? Perl es un lenguaje pensado para la manipulación de cadenas de caracteres, archivos y procesos. Esta manipulación se va simplificada por el importante número de operadores a disposición del usuario. El lenguaje Perl no es precompilado, pero aún así es más rápido que la mayoria de lenguajes interpretados, en especial que el Bourne Shell. Esto se debe a que los programas en Perl son analizados, interpretados y compilados por el interprete perl antes de su ejecución. Perl (Practical Extraction and Report Languaje) es un lenguaje creado a principio de los noventa por Larry Wall y su distribucion es gratuita. Un lenguaje interpretado. Como sabemos Perl es un lenguaje interpretado, en consecuencia para ejecutar un script en Perl debemos indicarle al sistema en ese mismo instante el interprete que vamos a utilizar para ejecutar dicha script en Perl. Esto se puede realizar de dos formas: 1. Insertando en la primera línea del archivo la instrucción: #!/usr/local/bin/perl. Esta sentencia indica al sistema operativo que lo que sigue es un script de Perl y que perl es el programa con el que debe ejecutarse. Dicho programa está en /usr/local/bin. Por tanto la secuencia !# es reconocida por Unix no por Perl. 2. Especificando el intérprete desde la línea de comando: perl script.pl. Vemos como directamente se ejecuta el interprete de Perl pasando como primer paramétro el script a ejecutar. En el caso de haber más parámetros, éstos se tomarán como parámetros del programa. El primer programa en Perl. Un script en Perl es una sucesión de instrucciones. Éstas se delimitan por punto y coma ( ; ). Los comentarios en los scripts deben ir precedidos por el símbolo #. Los caracteres que siguen a este símbolo y que está contenidos en la misma línea se consideran comentarios y se ignoran. El siguiente script muestra la cadena de caracteres "¡Hola, mundo!". Este script se llamará hola.pl y contendrá las siguientes líneas. #!/usr/local/bin/perl print "¡Hola, mundo!" ; Una vez que hayamos verificado los permisos de dicho script estaremos listos para ejecutarlo simplemente tecleando en la línea de comandos: hola.pl. NOTA: la extension pl es una formalidad, no es necesario su uso. TIPOS DE DATOS. Los tipos numéricos (reales y enteros). Los valores numéricos espresados literalmente se presentan en forma de valores reales codificados en doble precisión. Este formato interno se utiliza para todas las operaciones aritméticas. Por ejemplo: $x = 0.897; # un real $y = 6.23e-24; # un real $n = 567; # un entero $i = -234; # un entero Los valores enteros no pueden empezar por cero porque esto permite especificar un entero mediante su codificación octal o hexadecimal. El código octal se antecede con en cero 0; el código hexadecimal se antecede con un 0x o 0X. Por ejemplo: $x = 0377; # equivale a 255 $y = 0xff; # equivale a 255 Las cadenas de caracteres. Las cadenas de caracteres se especifican literalmente por medio de un sucesión de caracteres delimitada por comillas ( ". ." ) o apóstrofes (' . . '). Estas dos representaciones se distinguen por la interpretación hecha por Perl de las cadenas de caracteres. Cuando van delimitadas por comillas ( " .. " ), toda variable referenciada en el interior de la cadena se evalúa y se reemplaza por su valor. Por ejemplo, las instruciones siguientes: $wld = "mundo"; $str = "¡Hola $wld!"; asignan al escalar la cadena de caracteres "¡Hola mundo!". Por el contrario, las cadenas de caracteres delimitadas por apóstrofes se dejan intactas. Por ejemplo: $str = '¡Hola $wld!'; asigna al escalar $str la cadena de caracteres "¡Hola $wld!". El tipo booleano. El tipo booleano existe, al igual que en C, de modo implícito, es decir, un número es falso si es igual a cero y verdadero en cualquier otro caso. Como el cero está asociado a la ristra vacía ( "" ), ésta también equivale al valor falso. Las representaciones de datos. El lenguaje Perl posee tres tipos de representaciones de datos: los escalares. los arrays. los arrays de indexación literal o listas asociadas. Estas tres representaciones permiten asociar a cada variable utilizada un tipo. Por otra parte, las variables Perl no tienen que declararse antes de su uso. Se asignan de manera dinámica y se les asigna un valor predeterminado en función del contexto. Los escalares. El escalar representa el tipo básico en Perl. Permite representar enteros, reales y cadenas de caracteres. Las variables de tipo escalar van precedidas por el símbolo $. A continuación veremos algunos ejemplos: $real = 4.53 ; $entero = -45 ; $ristra = "Hola" ; Las variables en Perl se asignan de manera dinámica y se les asigna un valor predeterminado en función del contexto. En un contexto numérico el valor predeterminado es 0, mientras que en un contexto de cadena de caracteres el valor predeterminado es la cadena vacía "". Como ya hemos dicho, cuando una cadena de caracteres se delimita por comillas, el contenido de esta cadena es analizado por Perl para el reemplazo eventual por su valor de las variables escalares identificadas por el símbolo $. Este análisis se denomina interopolación de variables y puede evitarse poniendo delante del símbolo $ una barra oblicua inversa \ o delimitando la cadena de caracteres con apóstrofes. He aquí un ejemplo: $adr = "www"; $msg = "El servidor web ${adr}.ulpgc.es"; print $msg, "\n" ; $msg = "El servidor web $adr.ulpgc.es"; print $msg, "\n" ; $msg = "El servidor web \$adr.ulpgc.es"; print $msg, "\n" ; $msg = 'El servidor web $adr.ulpgc.es'; print $msg, "\n" ; Los arrays. Un array es una lista de datos de tipo escalar. Cada elemento de la lista es una variable escalar a la que se le asocia un valor. Las variables de tipo array se identifican por el prefijo arroba @. Por ejemplo: @numeros = (2, 1, 667, 23, 2.2, 5, 6); @letras = ("perro", "gato", "león" ) ; @mezcla = ("hola", 23, "adios", 31.234); También se permite definir los elementos de un array a partir de sus valores extremos como se muestra a continuación: @alfabeto = (a..z); Los elementos de un array se referencian mediante índices. El primer elemento se referencia por el índice 0. Por ejemplo: $numero[4]; # vale 2.2 $letras[2]; # vale " león " $mezcla[0]; # vale "hola" También se puede acceder a un array mediante el operador que define una horquilla de índices. Por ejemplo: @num1 = @numeros[1..3]; # @num1 = (1, 667, 23) @str = @letras[0,2]; # @str = ("perro", "león" ) ($ristra, $num) = @mezcla; # $ristra = "hola", $num = 23 Esta última instrucción vemos que permite asignar los dos primeros valores del array @mezcla a las variables escalares $ristra y $num. Por otro lado, el acceso a un array fuera de rango devuelve un valor indefinido 0 o "" según el contexto. Por último, si vemos las siguientes líneas de código: @a=(1,2,3); @b=(5,6,7); @c=(@a,4,@b,8); Estas expresiones generan tres arrays, (1,2,3), (5,6,7) y (1,2,3,4,5,6,7,8), y no, como podría pensarse un array de arrays, cuando incluimos un array dentro de otro, Perl "aplana" el array insertado uno a uno todos sus elementos en la posición indicada del array que ha de contenerlos, para hacer array de arrays deberemos usar referencias a estos. Como veremos en el apartado 4 de este capítulo. Las listas asociativas (arrays de indexación literal). Una lista asociativa está indexada por cadenas en lugar de por números. Se utiliza % para definir el tipo de lista asociativa y un elemento está indexado por el anterior formando ambos parejas del tipo (clave, valor). %cuota = ("root", 1000, "pat", 256, "fiona", 4000); En este caso, para acceder a cualquiera de los elementos de %cuota debemos conocer su clave. Por ejemplo: $id = $cuota{"pat"}; # $id = 256 Esta lista puede completarse añadiendo nuevos valores y asociando a cada clave el valor correspondiente. Por ejemplo: $cuota{"dave"} = 250; donde la clave es "dave" y el valor asociado es 250. Proxima entrega: OPERADORES. Gracias a los que se tomaron el tiempo en leerlo, cualquier duda PM. FUENTE: UNLu

Esta es la continuación del post: http://www.taringa.net/posts/linux/5149062/Introduccion-a-Perl---Tipos-de-datos.html Los Operadores en Perl En Perl distinguiremos tres tipos de operadores dependiendo de la representación de datos sobre la que queremos trabajas. De este manera habrá tres tipos de operadores: los operadores asociados a los escalares, los asociados a los arrays y los vinculados a las listas asociativas. Operadores Aritméticos. Perl suministra los siguientes operadores aritméticos. Entre los operadores artiméticos también distinguimos los de autoincremento (++) y autodecremento (--). Estos operadores son unarios y se realiza el incremento o decremento de la variable que se le aplica. Además de la acción de modificar la variable devuelven el valor de la variable. El operador de incremento o decremento puede ir delante o detrás de la variable, teniendo diferente significado. Si el operador ++ se situa después de la variable se denomina postincremento, haciendo que primero se tome el valor y después se incremente la variable. Ejemplo: $n = $k++; # el valor de k se asigna a n y después se incrementa k Por otro lado, si el operador ++ se sitúa después de la variable se denomina preincremento y hace que primero se incremente la variable y después se tome el valor. Ejemplo: $n = ++$k; # primero se incrementa k y luego se asigna a n Operadores relacionales. Perl maneja 2 tipos de operadores relacionales: los propios de los valores numéricos y los de las cadenas de caracteres. Mas allá de los operadores q se muestran en la tabla hay algunos propios de este lenguaje, a saber: cmp. Este operador es utilizado para comparar caracteres, de manera que, retorna 0 si los caracteres comparados son iguales, 1 si la cadena de la derecha se encuentra al comienzo de la de la izquierda, y -1 en el caso contrario. Para aclarar el funcionamiento de este operador he aquí un ejemplo: 'one' cmp 'one' # devuelve 0 'one dog ' cmp 'one' # devuelve 1 'dog one' cmp 'one' # devuelve -1 'two' cmp 'one' # devuelve -1 <=>. Este operador se utiliza para comparar valores numéricos, retornando 0 cuando son iguales, 1 cuando el termino de la derecha es menor que el de la izquierda y -1 en el caso contrario. =~. Este operador es usado en las expresiones regulares para indicar la presencia de un patrón de compración dentro de una variable que contiene una cadena de caracteres. Por ejemplo if ($cadena =~ /str/) { print $cadena; } else { print "No se encuentra el patrón"; } # verifica si 'str' se está en $cadena * !~.Meditante este operador se verifica la no existencia del patrón de búsqueda en una cadena. He aquí un ejemplo: if ($cadena !~ /str/) { print "No se encuentra el patrón"; } else { print $cadena; } Operadores lógicos. Los operadores lógicos están relacionados con los relacionales ya que normalmente los operadores que se usan son resultado de expresiones relacionales. Los valores resultantes son cero o cadena vacía ( "" ) y distinto de cero o cadena vacía para falso o verdadero respectivamente. Operador de selección. Es un operador que requiere una condición y dos expresiones. Se utiliza para ejecutar una expresión u otra dependiendo de la condición. Su formato es el siguiente: i = (x<y? 6:k+1); # si x<y entonces i=6, si no i=k+1 Operadores de asignación. Una asignación también es un operador que devuelve la variable modificada Operadores a nivel de bits. Símbolos de puntuación. Además en Perl tenemos los símbolos de puntuación que a diferencia de otros lenguajes son considerados operadores en Perl. Básicamente tenemos cuatro símbolos: ' '. Especifica valores literales. No hace sustituciones. Ejemplo: $fecha = "14 de Julio"; print 'hoy es $fecha'; # imprime "hoy es $fecha" " ". Especifica valores literales. Realiza sustituciones. Ejemplo: $fecha = "14 de Julio"; print "hoy es $fecha"; # imprime "hoy es 14 de Julio" ` `. Ejecuta el comando contenido haciendo las sustituciones indicadas. Igual que muchos Shells de Unix. Por Ejemplo: print `date`; # ejecuta comando date / /. Delimita expresiones regulares. Ejemplo: if ($var =~/exe/) { print $var; } # Se imprime $var si contiene el patrón exe Precedencia de operadores. Normalmente las expresiones en Perl se evalúan de izquierda a derecha, aunque hay algunas excepciones que es necesario tener en cuenta. No se evalúan de izquierda a derecha los operadores de asignación y el operador de selección. De todos modos siempre se recomienda usar parentesis para no tener dudas en la evaluacion. Primitivas para el tratamiento de cadenas. Perl posee una serie de funciones predefinidas que nos facilitan el tratamiento de cadenas de caracteres length(cadena de caracteres). Esta función nos permite conocer la longitud de una cadena de caracteres. Por ejemplo $cadena = "hola"; lon = length($cadena); # lon = 2 chop(cadena de caracteres). Elimina el último carácter de la cadena y retorna dicho carácter. Esta función se suele usar para eliminar el carácter de nueva línea que contienen las cadenas que se introducen por teclado o se leen de un fichero. Ejemplo: print "Teclea algo y pulsa enter:n"; $input = <STDIN>; # $input contiene el "enter" chop($input); # $input no lo contiene Los operadores asociados a arrays. El operador $#. El operador $# permite delimitar el último índice válido de un array. Este valor norepresenta el tamaño del array, porque esto depende también del índice de base (es decir, el primer elemento del array). Esto se define por la variable $[ cuyo valor predeterminado es 0. Mediante estos dos elementos se puede delimitar el tamaño del array. Por ejemplo, si @A es un array, el código siguiente permite determinar su tamaño: $n = $#A - $[ + 1; print "La matriz tiene $n elementosn"; Los arrays se asignan de manera dinámica y su tamaño se modifica en función de la asignación de nuevos elementos. También es posible asignar el tamaño de memoria necesario antes de utilizar el array. Esto se hace asignado un valor requerido al operador $#. Por ejemplo: $mes = 11; # el array tiene 12 elemento de 0 a 11 Los operadores push y pop. Los operadores push y pop permiten respectivamente insertar y extraer el último elemento de un array. Por ejemplo: push(@ lista, $val); # equivale @ lista = (@ lista, $val) $oldval = pop(@ lista); # extrae el último elemento @ lista = (1,2,3); @ five = push(@ lista, (4,5)); # @ five = (1,2,3,4,5) $num = pop(@ lista); # $num = 5 Los operadores shift y unshift. Los operadores shift y unshift permiten respectivamente suprimir e insertar el primer elemento de un array. Por ejemplo: unshift(@ list, $val); # equivale a @ list = ($val, @ list) unshift(@ list, $a, $b, $c); # equivale a @ list = ($a, $b, $c, @ list) @ five = (3,4,5); unshift(@ five,1,2); # @ five = (1,2,3,4,5) $x = shift(@ five); # $x=1, @ five=(2,3,4,5) Los operadores reverse y sort. El operador reverse invierte los valores del array mientras que el operador sort los ordena en sentido creciente. Por ejemplo: @ five = (2,3,4,5,1); sort(@ five); # @ five = (1,2,3,4,5) reverse(@ five); # @ five = (5,4,3,2,1) Los operadores split y join. Los operadores split y join permiten transformar una cadena en una lista de caracteres. Por ejemplo, cuando un usuario envía un formulario a un servidor WWW, su contenido se transmite al concatenar pares nombre-valor separados por el símbolo &. Para acceder a la información transmitida, es necesario descomponer esta cadena de caracteres. La función split admite tres argumentos, aunque de éstos, el tercero es opcional. El primero de estos argumentos es una expresión regular y el segundo es una cadena de caracteres. La expresión regular define el modelo que deberá descomponer la cadena de caracteres. @ lista = split(/expresión/, cadena) El operador join realiza la tarea inversa. Así, a partir de un serparador de un lista de valores, concatena los elementos de la lista y la cadena de caracteres que representa el separador. La sintaxis del operador join es la siguiente: $cadena = join(separador, @ lista) Los operadores asociados a listas asociadas. El operador keys proporciona la lista de claves o índice de una lista asociativa. Por ejemplo: %cuotas = ("root", 10000, "pat", 256); @ list = keys(%cuotas); # @ list = ("root", "pat" ) El operador values devuelve los valores de una lista asociativa. Por ejemplo: %cuotas = ("root", 10000, "pat", 256); @ list = values(%cuotas); # @ list = (10000, 256) También se puede acceder a una lista asociativa por pares clave-valor, permitiendo el operador each recorrerla iterativamente. %cuotas = ("root", 10000, "pat", 256); while (($clave, $valor)=each(%cuotas)) { print "Login: $clave, Cuota: $valorn"; } Para suprimir elementos de una lista asociada se usa el operador delete. %cuotas = ("root", 10000, "pat", 256); delete $cuota{"pat"}; #%cuotas = ("root", 10000) Próxima entrega: Estructuras de Control Fuente: UNLu