time() y localtime()

En Perl podemos saber la hora del día usando la función time(), esta función regresa un número que si lo vemos es similar al siguiente:

1192320763

Este número representa la cantidad de segundos que han transcurrido desde una fecha en específico, en la mayoría de los sistemas esta fecha es el 1º de Enero de 1970 a las 0 horas GMT, una excepción de estos sistemas es la Mac, que cuenta los segundos desde el 1º de Enero de 1904 en la zona horaria del sistema.

A menos que tengamos la habilidad para hacer las fórmulas matemáticas en nuestro cerebro para convertir esos segundos en días, meses y años, realmente no nos ayuda de mucho, y para ello debemos de usar otra función de Perl que es localtime().

La función localtime recibe un número de tiempo similar al regresado por la función time() de Perl y convierte el número en una lista de 9 elementos.

#   0,    1,   2,   3,    4,    5,   6,    7,     8
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$sec(segundos), $min(minutos), y $hour(horas), representan la hora de la fecha especificada por time.

$mday es el día del mes y $mon es un número del 0 al 11 que representa el mes, donde 0 es Enero y 11 es Diciembre.

$year es la cantidad de años desde 1900 a la fecha. Así que para 2007 este elemento tendrá un valor de 107.

$wday es el día de la semana, representado con un número del 0 al 6, donde 0 es Domingo y 6 es Sábado.

$yday es el número del día del año, este número está en el rango del 0 al 364 y hasta 365 en años bisiestos.

Finalmente $isdst es verdadero en el caso de que la fecha esté dentro del horario de verano, también conocido como Daylight Saving Time, será falso de lo contrario.

Ya teniendo nuestros elementos entonces es simplemente cuestión de imprimirlos como nosotros querramos para sacar la fecha y hora actual:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$year += 1900;
$mon++;

print "$mday/$mon/$year $hour:$min:$sec\n";

Primer recibimos nuestros 9 elementos de la fecha usando localtime().

Después sumamos 1900 al número que tenemos en $year, debido a que localtime() nos regresa la cantidad de años desde 1900.

En la cuarta línea sumamos uno al mes, pues recuerda que los meses los empieza a contar desde 0 y no de 1 como nosotros queremos.

Finalmente en la última línea imprimos la fecha y hora para que se vea de la siguiente manera:

13/10/2007 18:33:11

POSIX

Ya sabemos como imprimir la fecha, pero como todo en Perl, hay más de una manera de hacer las cosas, y de hecho hay una manera que es mucho más sencilla.

Todas las distribuciones de Perl vienen con módulos base, entre ellos POSIX. Este módulo contiene una función llamada strftime que nos permite darle formato a alguna fecha de manera sencilla.

Por ejemplo, para imprimir la fecha en el formato anterior, haríamos lo siguiente:

use POSIX qw/ strftime /;

print strftime( "%d/%m/%Y %H:%M:%S", localtime(time) );

En la primera línea cargamos el módulo POSIX con la función strftime para poder usarla en nuestro código.

Después, en la siguiente línea hacemos la llamada a la función e imprimimos el resultado.

Debemos enviar 10 argumento en total a strftime(), el primero es el formato en que queremos imprimir la fecha, y los otros nueve son todos aquellos elementos que nos regresa la función localtime. En este caso, simplemente hacemos una llamada a localtime que envía la lista a la función strftime.

Como ves es cuestión de un par de líneas desplegar la fecha como nosotros queremos, pero incluso podemos formatear la fecha de diversas maneras. Si ves, la cadena de formato está compuesta de varios símbolos de porcentaje seguidos de letras, estas expresiones serán sustiuidas por valores específicos por medio del POSIX, las posibles expresiones que podemos usar son:

El camino que tomes para desplegar la fecha en tu código depende de ti, pero mi recomendación es que uses POSIX pues te simplificará la vida.

En el siguiente tutorial veremos maneras más completas de desplegar la fecha en otros idiomas como el Español, usando unos módulos bastante sencillos.

Existen en la web muchas utilerías para crear blogs en línea, pero sin duda la más popular es la de Google. Hace algunos años Google compró el famoso Blogger.com, un sitio que te permite crear de manera sencilla blogs.

Una de las grandes ventajas que tiene Blogger.com es su versatilidad, es fácil de usar para los usuarios novatos que apenas dan sus primeros pasos en la experiencia de publicar su contenido web, sin dejar de dar grandes ventajas y poder de customización para quienes ya tienen experiencia en diseño web.

Pero quizá lo que es aún más atractivo es que es totalmente gratuito.

Selecciona un tópico para tu Blog

Antes de crear tu cuenta debes de escoger el tópico sobre el cual se va a basar tu blog. Piensa en lo que quisieras escribir, pero ten cuidado en escoger un tema del cual puedas escribir sin problema, pues de esto depende el éxito de tu blog.

Tu blog va a ser más exitoso si tu contenido es interesante para tus usuarios, te recomiendo que escojas un tema que te apasione y del cual crees puedas hacer aportaciones interesantes.

Crea tu Blog

Ya que tienes un tópico seleccionado, crear tu cuenta es sumamente sencillo. Desde la página de inicio de Blogger cliquea en donde dice "CREAR TU BLOG AHORA" y sigue los sencillos pasos que se te van a mostrar.

Cuando Blogger te pida seleccionar un URL para tu blog, procura que el URL que selecciones contenga las palabras referentes a tu tópico. Por ejemplo si vas a poner un blog donde hablas acerca de carros de carrera, podrías seleccionar un URL como "carrocarrera.blogspot.com" o "carros-carrera.blogspot.com". El que tu URL contenga las palabras clave de tu código es importante para que la gente te encuentre al buscar sobre el tópico en los buscadores.

Configuración

Una vez creado tu blog ya puedes configurarlo, aquí están algunos de los puntos que puedes configurar.

Basic

En la pestaña de "Basic", configuras el título de tu blog así como las palabras claves que quieres que se muestren a los buscadores lo que cual te ayudará a tener un mejor ranking.

Responde que si a la pregunta de agregar tu blog a los listados de Blogger.com (Add your Blog to our listings?). Esto hará que tu blog aparezca en la página principal de Blogger.com cuando pongas una nueva entrada, y permite que los usuarios hagan búsquedas usando el mecanismo de Blogger.

Publishing

Pon la opción de notificar weblogs (Notify Weblogs) a "Sí". Así Blogger enviará una notificación a Weblogs cada vez que pongas un nuevo post. Weblogs es un sitio que le permite a los usuarios y a lo navegadores saber cuando hay nuevo contenido en los blogs.

Comments

Es importante que selecciones la configuración de los comentarios de acuerdo al contenido que vas a agregar. Si piensas escribir acerca de temas controversiales y del cual puedes esperar posturas bastante radicales, por ejemplo, acerca de política, entonces lo más seguro es que recibas muchos comentarios basura que realmente no aportan nada y que hace que lo mejor sea que no permitas comentarios.

Si estás escribiendo de tópicos bastante neutrales, por ejemplo, hobbies, entonces ponlos abiertos que cualquier pueda escribir, de esa manera permites que tus usuarios aporten más a los temas que tratas.

Si no estás seguro, entonces puedes poner los comentarios en modo de moderación, en donde puedes publicar los comentarios como te parezca. El problema de los comentarios moderados, es que si tu sitio crece demasiado y recibes muchos comentarios, el moderarlos puede terminar siendo un trabajo de varias horas diarias.

Archiving

Selecciona el método de archivo diario si piensas poner posts todos los días, semanal si vas a poner posts cada dos o tres días.

Aunque hagas un archivo de tu post aún así selecciona que Blogger haga una página por cada post, así cada entrada que pongas tendrá su propia página que terminará traduciéndose en contenido para los buscadores y visitas.

Site Feed

Esto es algo que realmente necesitas. Habilita el feed de tu sitio y selecciona que ponga descripciones cortas, cuida que tus descripciones sean lo suficientemente atractivas como para hacer que los usuarios tengan la necesidad de cliquea para ver la entrada completa.

Templates

Selecciona uno de los templates que Blogger proporciona y que creas que se adaptan a tu sitio de la mejor manera. Aunque hayas seleccionado un template al crear tu cuenta, checa de nuevo pues por alguna razón Blogger no te muestra todos los templates disponibles en la creación del blog.

Todo listo y a comenzar

Ya tienes tu blog listo, ahora todo lo que necesitas es empezar a escribir tus artículos, si tienes artículos interesantes a la gente le va a gustar y tu blog se hará popular rapidamente. ]]> http://perlenespanol.baboonsoftware.com/articulos/archivo/000180.html mod_rewrite es un módulo de Apache que nos permite convertir URLs dinámicos a estáticos haciendo una redirección interna por lo que nuestros usuarios nunca se enteran. Esto permitirá mejorar la posición en los buscadores así como la capacidad de brindar... Uriel Lizama 2007-02-10T13:26:09-06:00 mod_rewrite es un módulo de Apache que nos permite convertir URLs dinámicos a estáticos haciendo una redirección interna por lo que nuestros usuarios nunca se enteran. Esto permitirá mejorar la posición en los buscadores así como la capacidad de brindar links más amigables y sencillos para nuestros usuarios. Por ejemplo, mi foro de Perl en Español está en PHP por lo que los urls para navegar el foro son parecidos a esto:

Y aunque los bots de los buscadores lo pueden leer e indexar en su base de datos, si ponen un penalti por ser un url dinámico. Para solucionar esto, si eres un visitante o un robot, el url que verás será:

Si pruebas ambos urls verás que muestra el mismo contenido. Podrás pensar que son dos páginas distintas, pero no es así, el segundo url, el que simula una página estática, es convertido detrás de las cortinas para llamar a la página real. Así es, en mi servidor no existe un archivo forum-3.html.

En este artículo les voy a mostrar como lograr esto.

Una solución elegante

Quizá estarán pensando que todo esto es un producto de magia, pero realmente es bastante sencillo lograrlo y los resultados serán muy buenos, pues no solamente podrán dar urls estáticos a los buscadores mejorando su posición, sino que también podrán dar urls amigables a sus usuarios.

Para poder lograr esto es necesario tener lo siguiente:

• Un servidor Apache versión 1.2 o mejor.
• Acceso para editar los archivos de configuración .htaccess, y quizá de ser necesario el http.conf.

Para poder usar este módulo primero lo tenemos que activar. En caso de que no tengas el módulo activado tendrás que editar tu archivo http.conf y quitar el comentario de la línea que carga el módulo para que quede de la siguiente manera:

#LoadModule rewrite_module
modules/mod_rewrite.so 
#AddModule mod_rewrite.c

Comprendiendo mod_rewrite

Es importante comprender lo que hace exactamente este módulo.

El mod_rewrite se ejecuta después de hacer un request en tu servidor y antes de ejecutar cualquier script. Lo que hace es que aplica un "filtro" configurado por uno sobres los urls y los rescribe detrás de las cortinas.

Por ejemplo, podrías tener un url inexistente como el siguiente:

Y entonces el mod_rewrite lo podría convertir a:

La conversión del url se hace por detrás por lo que el usuario no podrá ver nada de esto, sin embargo si verá el resultado que viene de la ejecución del url "real".

Es importante comprender que mod_rewrite NO puede ser usado para cambiar el URL que el usuario ve es la barra de Dirección de su navegador a menos que una redirección externa es invocada. Sin embargo una dirección externa expone finalmente el url dinámico, así que mod_rewrite hace una redirección interna.

También es importante comprender que mod_rewrite cambia la dirección del archivo y las variables del url pedido pero NO cambia en ningún momento el despliegue de las mismas.

Poniendo mod_rewrite en práctica

Muy bien, empecemos con lo bueno, para esto vamos a hacer un ejemplo práctico.

Digamos que tienes una tienda de ropa y que tus clientes pueden ver la ropa que tienes navegando por categoría y talla de la misma. Para esto tienes una aplicación que se llama de la siguiente manera:

No es para nada bonito el url, por lo que queremos que nuestros clientes puedan acceder de la siguiente manera:

Como ves es más intuitivo y amigable.

Usando mod_rewrite no es necesario hacer ningún cambio en tu aplicación, ni siquiera es necesario que crees los directorios 'playeras/' ni 'playeras/femenino', tampoco es necesario que hagas un archivo que se llame chica.htm.

Lo que vamos a hacer es que cuando algún usuario haga un request de 'http://tusitio.com/playeras/femenino/chica.htm' usaremos el mod_rewrite para filtrar y convertir el url a 'http://tusitio.com/cgi-bin/aplicacion_ropa.cgi?tipo=playeras&sexo=femenino&talla=chica', pero todo esto detrás de las cortinas, usando la redirección interna como habíamos dicho.

Ya que estemos seguros que tenemos el mod_rewrite instalado y activo, vamos a crear un nuevo archivo de configuración .htaccess.

Dentro de nuestro .htaccess vamos a inicializar el módulo mod_rewrite:

    RewriteEngine On

Entonces vamos a crear nuestro filtro que ser verá así:

    RewriteRule ^playeras/femenino/chica.htm cgi-bin/aplicacion_ropa.cgi?tipo=playeras&sexo=femenino&talla=chica [L,NC]

El primer elemento es:

    RewriteRule

    ^playeras/femenino/chica.htm

La tercera parte es el nuevo url al cual queremos redirigir, también la dirección debe de estar relativa, mod_rewrite pondrá por nosotros el dominio de nuestro sitio.

    cgi-bin/aplicacion_ropa.cgi?tipo=playeras&sexo=femenino&talla=chica

La última parte es opcional y son flags que regulan el comportamiento del mod_rewrite.

    [L,NC]

Más poder a nuestro mod_rewrite

El ejemplo anterior es de gran ayuda, vimos como podemos convertir un url dinámico en estático en cuestión de minutos, pero hay un pequeño problema.

Lo más seguro es que nuestra tienda de ropa no venda puras playeras chicas, ni tampoco puras de mujer, y lo más seguro es que venda más productos que puras playeras, debe de haber pantalones, chamarras, shorts, camisas, vestidos, etc, etc.

Hacer una nueva regla por cada producto y por cada tamaño será un verdadero dolor de cabeza, y aparte cada ves que queramos poner una nueva línea de productos en la tienda tendremos que modificar nuestro .htaccess.

Pues bueno, con mod_rewrite podemos evitar eso, pues aún no hemos visto la parte más poderosa.

En el último ejemplo hicimos un filtro bastante sencillo:

    RewriteEngine On
    RewriteRule ^playeras/femenino/chica.htm cgi-bin/aplicacion_ropa.cgi?tipo=playeras&sexo=femenino&talla=chica [L,NC]

Si vemos, todos los urls tiene una misma sintaxis, el primer directorio sería la línea de ropa (pantalones,vestidos,shorts,etc), el subdirectorio sería el departamento (masculino,femenino,infantil,etc) y el archivo html sería la talla (32.htm,mediano.html,12.htm).

mod_rewrite nos permite usar expresiones regulares dentro de nuestros filtros, de esta manera podemos realizar filtros más poderosos.

Las expresiones regulares nos brindan un set de reglas que podemos usar para comprobar valores arbitrarios como en este caso. Sabemos que el url vendrá en una misma sintaxis pero tendrá diferentes valores, usando las expresiones regulares podemos capturar y comprobar esos valores.

Veamos la expresión regular que usaríamos en este caso para hacer lo que queremos:

    ^([a-zA-Z]+)/([a-zA-Z]+)/([a-zA-Z0-9]+).htm$

El ^ incial denota inicio de línea, significa que solamente será válida la regla si se cumple iniciando la línea.

Los paréntesis ( ) los usamos para capturar el valor, en este caso así lo queremos pues después tendremos que usarlos para enviárselos a nuestro CGI de la aplicación.

Los [ ] los usamos para asignar un campo de caracteres. Los campos de caracteres los podemos usar cuando queremos checar que ciertos caracteres estén o no estén. En la primera parte que será de la línea de ropa, sabemos que solamente vendrán letras del alfabeto, por lo que solamente queremos de la a-z y de la A-Z, en minúsculas y mayúsculas. Lo mismo en la segunda parte, pero ya en la tercera parte si puede haber números por ejemplo en 32.htm, por lo que tenemos que poner también el 0-9.

El signo de + después del cierre del campo de carácter, significa que debe de haber por lo menos uno o más de los caracteres que queremos.

Luego tenemos la separación con las diagonales '/' que están fuera de los paréntesis pues queremos capturar solamente 'pantalones' y no 'pantalones/'.

Al final también dejamos el .htm fuera de los paréntesis pues no lo queremos usar, y terminamos con $ que simboliza final de línea.

Así ya tenemos nuestros valores capturados que ahora podremos usar en el url para llamar al CGI de nuestra aplicación:

    cgi-bin/aplicacion_ropa.cgi?tipo=$1&sexo=$2&talla=$3

Cada paréntesis captura en una nueva variable y lo hacen en orden, así que van tomando $1, $2, $3, $4.. así hasta lo que se necesite.

Así que finalmente nuestra regla se verá de la siguiente manera:

    RewriteEngine On
    RewriteRule ^([a-zA-Z]+)/([a-zA-Z]+)/([a-zA-Z0-9]+).htm$ cgi-bin/aplicacion_ropa.cgi?tipo=$1&sexo=$2&talla=$3 [L,NC]

Serán redireccionados internamente a:

Así de la nada, tenemos una lista infinita de páginas estáticas fáciles de navegar por nuestros usuarios.

Tomándole la medida a mod_rewrite

Usar mod_rewrite es sumamente sencillo, quizá lo más difícil podría ser aprender a usar las expresiones regulares y los flags que podemos usar para controlar el comportamiento del módulo.

Sin embargo ambas son muy intuitivas y con un poco de uso y de estar jugando y probando con ellas, les tomarás la práctica inmediatamente.

Dave Child hizo un PDF con un "acordeón" que enlista las expresiones regulares y flags que podemos usar en el mod_rewrite. Les recomiendo que descarguen el PDF con la lista y lo tengan a la mano en el momento de crear sus filtros:
http://www.ilovejackdaniels.com/mod_rewrite_cheat_sheet.pdf

Últimas Palabras

Cuando hagas tus primeras pruebas con el mod_rewrite, ten cuidado y si puedes has las pruebas con un servidor Apache que no esté en vivo, pues si tienes algún error de sintaxis al momento de crear tus filtros, verás un error 500 en todo tu sitio, evitando que tus usuarios puedan acceder a él.

En caso de que quieras convertir tu sitio de estático a dinámico pero no te atreves a hacerlo tu sólo, puedes usar nuestros Servicios de Perl en Español y nosotros lo haremos por ti:
http://perlenespanol.baboonsoftware.com/servicios/

Otros Recursos

Documentación de mod_rewrite
http://httpd.apache.org/docs/2.0/mod/mod_rewrite.html

Introducción a las Expresiones Regulares
http://perlenespanol.baboonsoftware.com/tutoriales/expresiones_regulares/index.html

mod_rewrite Cheat Sheet
http://www.ilovejackdaniels.com/apache/mod_rewrite-cheat-sheet/

]]> http://perlenespanol.baboonsoftware.com/articulos/archivo/000179.html Escoger un buen servicio de hosting es crucial para el futuro de tu sitio web. Aquí te muestro 7 tips que te harán realizar la selección de tu nuevo servicio de hosting o alojamiento lo más acertada y segura posible.... Uriel Lizama 2007-02-07T19:16:54-06:00 Escoger un buen servicio de hosting es crucial para el futuro de tu sitio web. Aquí te muestro 7 tips que te harán realizar la selección de tu nuevo servicio de hosting o alojamiento lo más acertada y segura posible. 1. Checa que tu compañía de hosting ofrezca múltiples opciones de soporte

Muchas compañías de hosting solamente ofrecen soporte por email, esto no es suficiente. Puedes tener momentos críticos donde cada minuto cuenta, y por medio de email no puedes tener la certeza de que del otro lado te están escuchando. Checa si la compañía de hosting que seleccionaste tiene soporte por teléfono, muchos hoy en día cuentan con chat en vivo, y otros más tienen avanzados sistemas de "tickets", el cual es como un chat en vivo pero como menos dinámica.

Lo importante es que tengas la seguridad de que te responderán en el momento que necesitas sin importar la hora que sea. Checa los horarios de soporte, lo mejor es que encuentres uno que te garantice soporte las 24 horas del día en los 365 días del año.

Te recomiendo que pruebes lo efectivo que es su soporte contactándolos para preguntar por algo, si no recibes respuesta en menos de 24 horas, piensa dos veces el contratar su servicio.

Es importante que te alejes totalmente de aquellas compañías que ofrecen solamente soporte por email. Muchas veces ponen la excusa de que hacen eso para bajar los costos, la verdad es que una buena compañía debe de contar con un excelente soporte.

2. Balancea servicio con precio

Cierto que todos queremos ahorrarnos dinero, pero hay un viejo dicho que dice: "Luego lo barato sale caro". Muchas compañías ofrecen servicios de hosting o alojamiento tan bajo como $1usd, pero si pagas casi nada por el servicio, puedes esperar que el servicio sea casi nada.

3. Garantía

Muchas veces tienes que probar el servicio de hosting para saber si va a cumplir con tus necesidades. Busca que la compañía que contrates tenga garantía y que te regrese tu dinero si no te gusta su servicio. El estándar hoy en día es por lo menos 30 días de garantía. Normalmente esta garantía te muestra lo segura que está la compañía de hosting de su servicio.

4. Busca un servicio de hosting que te dé las herramientas para tener un sitio web exitoso

Es importante que siempre tengas en mente tus necesidades actuales de tu sitio web así como las futuras al momento de escoger tu compañía de hosting. Si tienes un sitio web al cual en el futuro quieres agregar un foro, checa si el servicio de hosting te da las posibilidades para ello.

¿Tienes la capacidad de crear la cantidad de cuentas de email que necesitas? ¿Te dan scripts gratuitos? ¿Son fáciles de instalar?

Busca una compañía que te dé más herramientas de la que necesitas y a un precio competitivo.

5. Obtén espacio en tu disco duro para tus necesidades

Uno de los principales problemas que te puedes encontrar en el caso de que tu sitio web crezca demasiado es el espacio en disco. Si piensas tener solamente 10 ó 15 páginas web en tu sitio, 50mb podrían ser más que suficientes, sin embargo, si piensas alojar fotos, mp3s, videos o algún otro tipo de archivo te convendría tener por lo menos 500mb de espacio.

6. El ancho de banda necesario

Junto con el espacio en disco duro, el ancho de banda es igual de importante. El ancho de banda es la cantidad de datos que puedes transferir de tu sitio a tus usuarios. Si piensas ofrecer descargas de archivos necesitarás más ancho de banda a si solamente mostrarás paginas html. Saca tu calculadora y haz tus cálculos en cuanto la cantidad de ancho de banda promedio que necesitarías al mes y ve que tu servicio de hosting de lo proporcione.

Es también importante que cheques el precio que el servicio de hosting cobra por ancho de banda excedido, muchas veces tu presupuesto mensual se puede ir por la tubería debido a esto.

7. Toma ventaja de los descuentos que el servicio de hosting ofrece

Muchos servicios de hosting ofrecen descuentos si prepagas por un año o dos años, intenta aprovechar estas ofertas. De igual manera si eres webmaster y piensas alojar muchos sitios, busca servicios de hosting que te den descuentos por múltiples contrataciones, muchas veces podrás ahorrarte hasta el 20% del costo.

Uriel Lizama te recomienda:
]]> http://perlenespanol.baboonsoftware.com/tutoriales/cgi/creando_aplicaciones_web_con_c.html En este tutorial vamos a aprender a crear aplicaciones web usando el módulo CGI::Application. Este módulo nos dará la capacidad de crear aplicaciones CGI portables y fáciles de mantener, sin duda una gran herramienta para el programador web. CGI Uriel Lizama 2007-02-05T13:59:55-06:00 En este tutorial vamos a aprender a crear aplicaciones web usando el módulo CGI::Application. Este módulo nos dará la capacidad de crear aplicaciones CGI portables y fáciles de mantener, sin duda una gran herramienta para el programador web. En este tutorial vamos a aprender a usar el módulo CGI::Application.

El módulo CGI::Application nos brinda una estructura que nos permite escribir aplicaciones web rehúsables. Sencillamente CGI::Application proporiciona una estructura que usa todo lo que funciona de CGI y quita todo lo negativo que hoy en día se pueden encontrar en aplicaciones CGI creadas con Perl.

A través del siguiente tutorial verás que este módulo permite crear aplicaciones web que funcionan en todos lados siempre y cuando se tenga la capacidad de ejecutar Perl y CGI. Incluso, permite crear aplicaciones funcionales que podrían ser distribuidas por medio de CPAN.

Entendiendo CGI::Application

Todas las aplicaciones web consisten de diferente modos de ejecución, por ejemplo, si tuviéramos una aplicación que hace búsquedas en una base de datos, tendría un modo que desplegaría el formulario de búsqueda, otro modo donde se despliegan los resultados, otro modo donde se podrían ver los detalles de una entrada, etc. Todos estos modos de ejecución en su conjunto arman lo que sería nuestra aplicación.

Cada programador tiene una manera distinta de administrar o manejar los modos de ejecución de la aplicación. Lo más común es usar bloques de IF-ELSE para decidir que parte de la aplicación ejecutar.

Por ejemplo, para una aplicación que muestra los resultados de una base de datos, se podría seleccionar que parte ejecutar dependiendo de los parámetros enviados:

   my $query = CGI->new();

   print $query->header();

   if ( my $busqueda = $query->param('busqueda') ) {
       #Hacemos la búsqueda y la desplegamos
   }
   else{
       #Mostramos el formulario de búsqueda
   }

CGI::Application nos brinda una excelente solución para administrar y manejar los modos de ejecución de nuestra aplicación.

Creando las facetas de nuestra aplicación

Lenguajes como ASP, Cold Fusion y JSP intentan administrar estos modos de ejecución teniendo un archivo distinto por cada modo de la aplicación. Esto crea la desventaja de que terminas teniendo tantos archivos en tu aplicación como modos de ejecución. Al hacer esto, sacas de contexto los modos al independizar cada parte, pues al final de todo, estos modos de ejecución son parte de la misma aplicación.

CGI::Application ataca el problema desde otro punto de vista al brindar dos funciones básicas.

En primer lugar, CGI::Application designa un único campo de HTML como el "Mode Parameter" (parámetro de Modo). Este Mode Parameter es usado para almacenar el modo de ejecución actual de tu aplicación, cuyo valor es una simple cadena de texto. El Mode Parameter funciona como un policía de tráfico, dirigiendo la ejecución de la aplicación correctamente.

La segunda función, es que CGI::Application asocia cada modo de ejecución como una subrutina de Perl. Cada subrutina, llamada como "Método de Ejecución", contiene la manera en que la aplicación se comporta en cada modo de ejecución. Todos los Métodos de Ejecución se encuentran en un mismo módulo de Perl, al que llamaremos Módulo de la Aplicación.

Tu Módulo de la Aplicación es una subclase de CGI::Application. De hecho, CGI::Application no fue creado para usarse directamente.

Nuestra primera aplicación

Vamos a crear una pequeña aplicación que va a constar de tres modos de ejecución, en el primero mostraremos el formulario de búsqueda, en el segundo mostrará los resultados y en la tercera mostraremos los detalles de cada elemento.

Empecemos creando un nuevo archivo .pm para crear nuestro Módulo de la Aplicación al que llamaremos: "MiPrimeraAplicacion".

En al primera línea vamos a identificar a nuestro módulo:

    package MiPrimeraAplicacion;

    use base qw( CGI::Application );

Piensa en este mapa como la lista definitiva de cosas que tu aplicación puede hacer. Si más adelante quieres agregar más funcionalidades, todo lo que tendrías que hacer es meter una nueva entrada en tu mapa.

Para hacer la inicialización tenemos que crear una función setup():

    sub setup {

    }

    sub setup {

        my $self = shift;

        $self->run_modes(
            'modo_1' => 'mostrar_formulario',
            'modo_2' => 'mostrar_resultados',
            'modo_3' => 'mostrar_detalles'
        ); 

        $self->start_mode('modo_1');

        $self->mode_param('accion');

    }

Después debemos de asignar nuestro modo de ejecución default, en nuestro caso será el "modo_1" pues queremos mostrar de entrada el formulario de búsqueda.

Finalmente con el método mode_param() asignamos el nombre del Mode Parameter, es decir, ese campo del formulario HTML que nos dice que modo de ejecución es la que se debe de ejecutar. En este caso la llamaremos 'accion'.

Los modos de ejecución

Ahora debemos de crear las subrutinas de los modos de ejecución. Recuerda que cada modo de ejecución está asignado a su subrutina la cual identificamos al crear el mapa.

Las subrutinas de cada modo de ejecución se crean igual que cualquier otra subrutina. Al ser llamada se le envía como primer parámetro una referencia al objeto de la aplicación, y las subrutinas deben de regresar el "output" que queremos desplegar.

Es muy importante que nunca imprimas nada en el STDOUT en tus subrutinas, pues el módulo CGI::Application se encarga de hacer esto con los encabezados adecuados.

En tu aplicación siempre será necesario tener interacción entre los datos enviados por medio de GET o POST a tu CGI. CGI::Application no intenta hacer esto, en su lugar, usa el gran módulo CGI.pm para toda interacción con los querys de tu CGI.

Al llamar el método query() de CGI::Application el módulo te regresará un objeto de tipo CGI.pm que podrás ya usar con normalidad.

Ahora vamos a crear nuestra primer subrutina para el método de ejecución "modo_1. La subrutina la vamos a llamar mostrar_formulario().

    sub mostrar_formulario {

          my $self = shift;

          # Obtener el objeto CGI.pm
          my $q = $self->query();

          $output .= $q->start_html(-title => "Formulario de Búsqueda");
          $output .= $q->start_form();


          $output .= "Buscar en el database: ";
          $output .= $q->textfield(-name => 'database');
          $output .= $q->submit();

          # Ponemos la llamada al siguiente modo de ejecución
          $output .= $q->hidden(-name => 'accion', -value => 'modo_2');
          $output .= $q->end_form();
          $output .= $q->end_html();

          return $output;


    }

En este caso, usamos el mismo objeto de CGI.pm para crear el formulario, pero básicamente lo puedes hacer como quieras, siempre y cuando regreses el resultado usando return(). Recuerda que NO debes de imprimir nada al STDOUT.

Como ves todo es bastante sencillo, quizá lo más "complicado" es que siempre debemos recordar poner un campo "accion" (en este caso es así porque así decidimos llamar a nuestro Mode Parameter) cuyo valor será el modo de ejecución que queremos ejecutar. En este caso como el responsable de mostrar los resultados de la búsqueda es el "modo_2", entonces tenemos que poner ese valor para que se llame a la función mostrar_resultados().

Veamos ahora un ejemplo de como sería nuestra subrutina mostrar_resultados().

    sub mostrar_resultados {

          my $self = shift;

          # Obtener el objeto CGI.pm
          my $q = $self->query();

          # Creamos un hash con todos los parámetros recibidos
          my %Input = $q->Vars;


          my $output = "";
          # Hacemos la búsqueda
          # por ejemplo seleccionar de un database todas las
          # entradas que tengan la palabra puesta por
          # el usuario en $Input{'busqueda'}


          return $output;

    }

Así el usuario podrá ver más detalles de cada entrada, recuerda que el modo_3 llama a la función mostrar_detalles() que se encargará de desplegar los detalles de la entrada, quizá buscando por el id enviado en el parámetro 'id_entrada':

    sub mostrar_detalles {

          my $self = shift;

          # Obtener el objeto CGI.pm
          my $q = $self->query();

          # Creamos un hash con todos los parámetros recibidos
          my %Input = $q->Vars;


          my $output = "";
          # Buscamos los detalles de la entrada con id $Input{'id_entrada'}


          return $output;

    }

Los encabezados de HTTP

Por default el módulo CGI::Application imprimirá todo el contenido con el MIME-Type "text/html". Si deseas usar otro MIME-Type, manipular algún cookie, o crear alguna redirección de HTTP, entonces deberás de cambiar los encabezados de HTTP.

Esto lo puedes hacer usando el método heredado header_type() y header_props(). Checa la documentación de CGI::Application para sus detalles.

Nuestro Script CGI

Listo, ya tenemos nuestro Módulo de la Aplicación listo, pero ahora tenemos que hacer el script CGI. Nuestro script CGI será el encargado de ejecutar nuestra aplicación.

En la programación tradicional de CGI, tendríamos un archivo llamado por ejemplo, miaplicacion.cgi que será ejecutado por nuestro servidor y mostrado el resultado. Normalmente este script sería muy grande pues contendría todo el código necesario para ejecutar la aplicación, pero usando CGI::Application todo el código está en nuestro Módulo de la Aplicación.

De esta manera nuestro script CGI estaría realmente vacío, pues de lo único que se encargaría es de cargar un nuevo objeto de MiPrimeraAplicación y listo. Así que vamos a crear un archivo CGI al que vamos a llamar miaplicacion.cgi:

    #!/usr/bin/perl -w

    use strict;
    use MiPrimeraAplicacion;


    my $app = MiPrimeraAplicacion->new();
       $app->run();

En nuestra aplicación de prototipo MiPrimeraAplicacion vimos todos los elementos esenciales de una aplicación hecha con CGI::Application.

Nuestro Módulo de la Aplicación lo podemos poner en cualquier lugar de nuestro servidor, siempre y cuando pueda ser accesado por perl y nuestro CGI. Lo más recomendado es que lo pongas en un directorio que no pueda ser accesado por el servidor web.

Conclusiones y Conceptos Avanzados

En este tutorial vimos las bases para que puedas empezar a crear tus aplicaciones usando el excelente módulo CGI::Application. Sin embargo, el módulo nos ofrecer características más avanzadas que podrás aprovechar.

Reutilización del código

Uno de los puntos fuertes que tiene el crear tus aplicaciones cgi con CGI::Application, es que toda la funcionalidad de tu aplicación lo pones dentro de un módulo, siguiendo su estructura y sy lógica. Esto te permite rehusar código de manera sencilla.

En este tutorial no vimos el método cgiapp_init() que te permite inicializar el objeto de tu aplicación con unos parámetros iniciales, así podrías por ejemplo, permitir que ciertas partes de tu aplicación sean accesadas, o que otras se comporten de diferente manera dependiendo de como cargues el objeto desde tu script CGI.

En fin, las posibilidades son tantas como se te ocurran, lo importante es que sigas los linamientos de CGI::Application, y te encontrarás haciendo aplicaciones CGI fáciles de mantener y con excelente portabilidad.

Usando HTML::Template

En todo tipo de aplicación la separación entre lo que cambia y lo que nunca cambia es totalmente importante. Usando templates tenemos la capacidad de separar el diseño del código.

El módulo CGI::Application viene con una sencilla manera de integrar el módulo HTML::Template a nuestra aplicación por medio de los métodos tmpl_path() y load_tmpl(). Para más detalles acerca de ellas, checa la documentación de CGI::Application.

Otros Recursos

El tutorial lo basé en el artículo 'Using CGI::Application' de Jesse Erlbaum que lo puedes encontrar en:
http://www.perl.com/pub/a/2001/06/05/cgi.html

Documentación de CGI::Application
http://search.cpan.org/search?query=CGI%3A%3AApplication&mode=all

Documentación de CGI.pm
http://search.cpan.org/search?query=CGI&mode=all

Como usar el módulo HTML::Template
Usando HTML::Template ]]> http://perlenespanol.baboonsoftware.com/tutoriales/misc/mecanica_cuanti.html La ciencia avanza, y junto con ella, Perl. Vamos a ver en este tutorial como podemos aplicar un poco de mecánica cuántica en Perl, y los usos prácticos que le podemos dar a este nuevo conocimiento. Misc Uriel Lizama 2006-10-16T13:15:40-06:00 La ciencia avanza, y junto con ella, Perl. Vamos a ver en este tutorial como podemos aplicar un poco de mecánica cuántica en Perl, y los usos prácticos que le podemos dar a este nuevo conocimiento. La ciencia avanza, y junto con ella, Perl. Vamos a ver en este tutorial como podemos aplicar un poco de mecánica cuántica en Perl, y los usos prácticos que le podemos dar a este nuevo conocimiento.

Un poco acerca de la materia

La interpretación básica de la mecánica cuántica, o física cuántica para algunos, dice que todas las partículas existen como un discontinuo infinito de probabilidades hasta el momento en que son observadas.

Por ejemplo, una partícula que es observada en un estado A, B ó C, puede considerarse que tiene un estado inicial en cual simultáneamente tiene A, B y C. De ésta manera podemos decir que tiene una superposición de todos los estados, y hasta el momento en que es observada es que elige alguno de ellos.

En este momento se está haciendo un desarrollo que se encuentra muy avanzado, en donde se busca la creación de qubits. Los qubits serán bits de información que contienen tanto el 1 como 0.

¿Mecánica Cuántica en Perl?

Damian Conway desarrolló un módulo al que llamó Quantum::Superpositions. Éste módulo simula partículas cuánticas en superposición.

El módulo agrega dos nuevos operadores a Perl: any() y all(). Estos dos operadores nos ayudarán a crear nuestras variables cuánticas.

Por ejemplo, vamos a crear una variable cuántica con 3 números distintos:

use Quantum::Superpositions;

my $i_cuantica = any(2,4,6);

Entonces podemos hacer lo siguiente:

if($i_cuantica == 6){
    print "Seis";
}

Pero que tal si hacemos lo siguiente:

if($i_cuantica == 2*2){
    print "Verdadero";
}

Pero que pasa si hacemos nuestra variable cuántica con all:

my $all_cuantica = all(2,4,6);

if($all_cuantica == any(2,4,6)){
    print "Verdadero";
}

¿Tu mente no logra comprender esto? Ummm... la magia de la mecánica cuántica.

Ejemplo Práctico

Podemos usar nuestras variables cuánticas para muchas cosas. A continuación pongo un ejemplo básico de lo que podrías lograr usando las variables cuánticas.

Digamos que tienes un listado de personas como el siguiente:

my %Personas = (
                'Uriel' => { Nacionalidad => 'Mexicana', Edad => 21 },
                'Esteban' => { Nacionalidad => 'Argentina', Edad => 23 },
                'Pepe' => { Nacionalidad => 'Mexicana', Edad => 16 },
                'Julio' => { Nacionalidad => 'Española', Edad => 25 }
               );

Entonces podemos hacer nuestra variable cuántica de la siguiente manera:

my $admitidos = all(Nacionalidad=>any('Mexicana','Española'),Edad=>any(21,25));

while(my ($key,$val) = each %Personas ){

    if($admitidos eq any(%{$val})){
        print $key,"\n";
    }
}

Julio
Uriel

En este ejemplo puedes modificar la variable cuántica dependiendo del filtro que deseas poner.

Últimas Palabras

En el tutorial echamos un vistazo rápido al módulo Quantum::Superpositions, para más detalles acerca de lo que puedes lograr con el módulo, te recomiendo que leas su documentación:
http://search.cpan.org/search?query=Quantum%3A%3ASuperpositions&mode=all

Si no sabes que es la mecánica cuántica, te recomiendo que veas la película What the Bleep Do we Know?. Un excelente documental que te muestra las bases de la mecánica cuántica y algunas sorpresas más:
What the Bleep Do We Know!? ]]> http://perlenespanol.baboonsoftware.com/tutoriales/fireworks/creando_sellos_dorados_con_fir.html Crea sellos dorados que se vean profesionales de manera sencilla usando solamente algunas figuras, textos, gradientes y unas sombras. Al final tendrás un sello que podrás usar en tus diseños. Fireworks Uriel Lizama 2006-10-15T12:58:51-06:00 Crea sellos dorados que se vean profesionales de manera sencilla usando solamente algunas figuras, textos, gradientes y unas sombras. Al final tendrás un sello que podrás usar en tus diseños.

Ya sea para simbolizar mérito o señalar nuevo contenido, un sello dorado casi siempre es la mejor opción. Usando dos herramientas de Fireworks: Auto Shapes y Text On a Path, estarás creando sellos dorados en minutos.

Notas Iniciales

Éste tutorial fue creado con Adobe Fireworks 8 y requiere conocimiento de uso de figuras automaticas y trazados.

Al final del tutorial tendrás imagenes que se ven totalmente realisticas:

Creando una Estrella

Empezamos creando una figura base, la estrella. Selecciona la Herramienta Estrella y dibuja una estrella de unos 150px de ancho. Arrastra el cuadro de Puntos(Points Handle) para incrementar la cantidad de puntas a unas 22, haz lo mismo con el radio interior Radio 2(Inner Radius Handler) para producir puntas más cortas y más triangulares.

A continuación vamos a agregar un poco de color. Dale a tu nueva figura un relleno gradientado hacia arriba, de #DDA600 a #FFEB77. Eso le dará un buen tono dorado. Ajusta los colores de acuerdo a tu gusto y necesidades; puedes usar un azul rey, rojo, o algún verde.

Ahora vamos a agregarle a nuestro sello una sombra sutil. Agrégale a la figura un Filtro de Sombra, con 2 de Distancia, 55% de Opacidad, 2 de Suavidad y 270º de Ángulo.

Mini Tutorial de Faux Invertido

Usa la Herramienta Texto e introduce tu texto principal encima y centrado en tu figura del sello. Para el ejemplo usé la fuente Georgia negrita-itálica, pero puedes usar cualquier fuente que sea de tu agrado (las fuentes serif tradicionales se ven bien en los sellos). Dale un color similar en hue, pero un poco más oscuro al color de tu figura del sello, en este caso vamos a usar #DDA600.

Copia el texto (Ctrl+C) y pégalo (Ctrl+V) y muévelo una capa hacia abajo (Ctrl+?). Usando las flechas de tu teclado, sube el nuevo texto dos píxeles, dale un relleno negro, y pon su opacidad en 50%.

Repite los pasos anteriores pero ahora mueve el texto dos píxeles abajo y ponle un relleno color blanco, igual con la opacidad en 50%.

Palabras que dan la Vuelta

Para la pièce de résistance, vamos a poner un texto acompañando a nuestro sello siguiendo una guía circular, muy similar a los sellos dorados que vemos en certificados o documentos legales.

Usa la Herramienta Elipse para crear un círculo exterior, centrado sobre la figura del sello. Después, usando la Herramienta Texto crea un par de textos centrados y justificados que formarán las partes del texto que rodeara el sello. Céntralos horizontalmente sobre el círculo que acabas de crear, alinea la parte superior del primer texto con la parte superior del círculo, y alinea la parte inferior del segundo texto, con la parte inferior del círculo.

Después de esto, crea un nuevo círculo más pequeño que el anterior, con su parte superior tocando el inferior del primer texto y su parte inferior tocando por arriba al segundo texto. Esto hará que tus textos estén perfectamente alineados a los trazados concéntricos una vez que los unamos a los círculos.

Una vez que tengas todo alineado, selecciona la primera parte del texto y el círculo interior, y únelos al trazado (Texto > Unir al Trazado; Ctrl+Shift+Y). Una vez que el texto esté unido al trazado del círculo, ajusta el Desplazamiento de Texto o la Posición del Texto sobre el Trazado hasta que esté bien centrado. Repite lo mismo con la segunda parte del texto, pero ahora lo harás con el círculo exterior, y aparte invertirás la dirección del texto (Texto > Invertir dirección) para que el texto se mueva dentro del círculo.

Para terminar, ajusta la distancia de las letras en tus textos para que ocupen la cantidad de espacio suficiente. Dale a tus textos un color similar a la de tu figura del sello, con la suficiente oscuridad o brillantez para generar un contraste con el fondo.

Tips para su Uso

Cuando hayas terminado, selecciona todos los objetos de tu lienzo (Ctrl+A) y crea un símbolo con ellos (F8). Debido a algunos detalles con el Fireworks cuando escalas o rotas figuras con gradientes y textos sobre trazados, te convendrá allanar todas las capas de tu nuevo símbolo (Ctrl+Shift+Alt+Z) antes de aplicar cualquier transformación. También, dependiendo de la situación, te convendría ajustar la intensidad de la sombra para hacer que tu sello destaque más.

Éste tutorial es una traducción de Rapid Fire #2: Golden Seal. Creado por:

Itunes funciona muy bien, siempre y cuando sea cuestión de pasar datos al Ipod, el problema viene cuando quieres leer tu Ipod. Pero como siempre, viene Perl al rescate.

Perl al Rescate

Es increíble la cantidad de cosas para la que podemos usar Perl, basta con entrar a CPAN y realizar búsquedas de temas extraños, y de seguro vas a encontrar por lo menos un módulo para ello.

En CPAN podremos encontrar varios módulos que nos sirven para leer nuestro Ipod y realizar operaciones con él. Me puse a checar todos hasta que encontré el módulo Mac::Ipod::GNUpod. Éste módulo es el más completo de todos, y te permite leer Ipods formateados ya sea con Itunes o con GNUpod.

El módulo tiene un sin fin de opciones que te permite hacer básicamente de todo con tu Ipod, puedes formatearlo, inicializarlo, leerlo, transferir archivos, etc.

Leyendo nuestro Ipod

Para este tutorial vamos a aprender a leer nuestro Ipod, y vamos a desplegar nuestras canciones en un sencillo formato XML.

Lo primero que vamos a hacer es crear un nuevo objeto 'Mac::Ipod::GNUpod':

my $ipod = Mac::iPod::GNUpod->new(mountpoint => 'I:');

Es muy importante el 'mountpoint' pues eso le indica a nuestro módulo en que lugar está montado nuestro Ipod. En Windows será una letra de disco (D:,E:,F:,etc.) y en Unix será algo así como '/mnt/ipod'.

Si alguna vez has navegado a través de los archivos de tu Ipod, verás que no simplemente son copiados los archivos, sino que el Ipod los distribuye a través de carpetas con nombres raros. Lo que hace el Ipod es crear un database con todas las canciones, entonces, ya que tenemos nuestro objeto creado, ahora hay que leer el database de nuestro Ipod.

Como mi Ipod yo lo inicialicé con Itunes, entonces el database estará en tipo Itunes por lo que para cargarlo tengo que usar la siguiente línea:

$ipod->read_itunes;

En caso de que estés en UNIX con GNUpod entonces deberás de hacerlo con:

$ipod->read_gnupod;

Dependiendo del tamaño de tu database y de la velocidad de conexión con tu Ipod será el tiempo que le tomará a tu script cargar el database completo.

Una vez que lo hemos cargado entonces ya podemos empezar a hacer cosas con él. Por ejemplo, vamos a tomar un listado de todas las canciones en nuestro Ipod:

my @songs = $ipod->all_songs;

Nuestro array @songs tendrá la lista completa de los IDs de cada una de las canciones en nuestro Ipod, pero tener una lista de números no es para nada útil, sin embargo los podemos usar para cargar los datos de cada uno de los mp3 del Ipod, para hacerlo usamos la función get_song():

my $mp3 = $ipod->get_song([ID_CANCION]);

El valor [ID_CANCION] es el id de la canción de la cual queremos los detalles. Al final tendremos en nuestra variable $mp3 una referencia a un hash con todos los detalles de nuestra canción, por ejemplo, para imprimir el título podríamos hacer:

print $mp3->{title};

Ahora, tenemos un detalle muy importante y que debemos de tener en cuenta porque después podría ocasionar resultados no deseados. Todos los campos del hash con los detalles de nuestra canción no son cadenas, sino son objetos de tipo Unicode::String, y aunque tiene los métodos necesarios para varias operaciones, podría no estar en la codificación que quieres, por eso es mejor hacer lo siguiente:

my $title = $mp3->{title}->as_string;

Así $title tendrá la cadena del título, de lo contrario se haría una copia del objeto Unicode::String.

Los valores posibles que nos regresará la canción son los siguientes:

id
artist
album
title
songnum
songs
cdnum
cds
composer
year
genre
fdesc
filesize
bitrate
time
srate
playcount
path
orig_path

En caso de que no exista algún valor retornará nulo.

Creando nuestro XML

Ya sabemos como leer nuestro Ipod, ahora vamos a crear nuestro sencillo XML. Para ello vamos a usar el módulo XML::Simple, éste módulo nos permite leer y escribir archivos de tipo XML de manera sencilla.

Para que el módulo haga el dump en XML debemos de pasarle una referencia a nuestro hash, para ello vamos a hacer un nuevo hash:

my %Song;

Vamos a crear una llave MP3 con una referencia a un array anónimo:

$Song{'MP3'} = [];

El array lo iremos llenando con los detalle de cada canción. De ésta manera nos quedará una estructura bien definida.

Ahora haremos el loop a través de los ids de nuestras canciones:

for my $id(@songs){

}

Vamos a tomar los detalles de cada una de las canciones o MP3:

my $mp3 = $ipod->get_song($id);

Y ya con eso podemos agregar un nuevo elemento a nuestro hash:

        push(@{$Song{'MP3'}},
                     {
                      ID      => $id,
                      Titulo  => $mp3->{title}->as_string,
                      Artista => $mp3->{artist}->as_string,
                      Album   => $mp3->{album}->as_string
                     }  );

Agregamos un nuevo elemento a nuestro array anónimo definido en la llave MP3 de nuestro hash MP3. El nuevo elemento será una referencia a un hash anónimo con las llaves que queremos mostrar.

Tu podrás editar las llaves que quieres pasar de acuerdo a los detalles que quieres mostrar en tu archivo XML.

Finalmente le pedimos al módulo XML::Simple que haga el dump de nuestra variable en un archivo de tipo XML:

my $xsimple = XML::Simple->new();

open my $XML, '>:encoding(iso-8859-1)', 'mi_ipod.xml' or die "No se pudo abrir archivo: $!";

print {$XML}
$xsimple->XMLout(
           $Song,
           noattr     => 1,
           AttrIndent => 1,
           RootName   => "Ipod",
           KeyAttr    => { 'MP3' => 'ID' },
           xmldecl    => '<?xml version="1.0" encoding="iso-8859-1" ?>'
          );

close $XML;

La Salida de XML

Si todo te funciona bien, entonces tendrás un archivo XML llamado "mi_ipod.xml" con entradas que se van a ver algo así:

<Ipod>
  <MP3>
    <ID>4228</ID>
    <Album>High Hopes</Album>
    <Artista>Pink Floyd</Artista>
    <Titulo>A Great Day for Freedom</Titulo>
  </MP3>
</Ipod>

Código Final

ipod2xml.pl

#!/usr/bin/perl

use strict;

use XML::Simple;
use Mac::Ipod::GNUpod;


my $ipod = Mac::iPod::GNUpod->new(mountpoint => 'I:');

   $ipod->read_itunes;

   my @songs = $ipod->all_songs;

    my %Song;
       $Song{'MP3'} = [];

    for my $id(@songs){

        my $mp3 = $ipod->get_song($id);

        push(@{$Song{'MP3'}},
                     {
                      ID      => $id,
                      Titulo  => $mp3->{title}->as_string,
                      Artista => $mp3->{artist}->as_string,
                      Album   => $mp3->{album}->as_string
                     }  );
    }


my $xsimple = XML::Simple->new();

open my $XML, '>:encoding(iso-8859-1)', 'mi_ipod.xml' or die "No se pudo abrir archivo: $!";

print {$XML}
$xsimple->XMLout(
           $Song,
           noattr     => 1,
           AttrIndent => 1,
           RootName   => "Ipod",
           KeyAttr    => { 'MP3' => 'ID' },
           xmldecl    => '<?xml version="1.0" encoding="iso-8859-1" ?>'
          );

close $XML;

]]> http://perlenespanol.baboonsoftware.com/tutoriales/fireworks/fotografias_rea.html Haz tus fotografías digitales más realistas y convincentes con algunos gradientes y unas sombras customizadas. Una vez que hayas finalizado, tus fotografías se verán como fotos reales, y se verán como si salieran de tu pantalla. Fireworks SixThings 2006-09-19T11:38:18-06:00 Haz tus fotografías digitales más realistas y convincentes con algunos gradientes y unas sombras customizadas. Una vez que hayas finalizado, tus fotografías se verán como fotos reales, y se verán como si salieran de tu pantalla.

Haz tus fotografías digitales más realistas y convincentes con algunos gradientes y unas sombras customizadas. Una vez que hayas finalizado, tus fotografías se verán como fotos reales, y se verán como si salieran de tu pantalla.

Notas Iniciales

Éste tutorial fue creado con Adobe Fireworks 8 y requiere conocimiento de rellenos gradientados y del uso de la Herramienta Pluma.

Al final del tutorial tendrás imagenes que se ven totalmente realisticas:

Preparando la Foto

Primero vamos a crear la base de la fotografía. Usa la Herramienta Rectángulo para dibujar un rectángulo con más o menos las proporciones de una impresión 4R. Después usa un relleno gradientado que cruce diagonalmente, de blanco puro a un blanco sucio. Esto será el rectángulo de base.

Ahora crea otro rectángulo, ésta vez con un color sólido, un poco más pequeño que el anterior y céntralo encima de nuestro rectángulo base. Éste nuevo rectángulo nos servirá como la máscara de nuestra imagen y para crearle un buen borde.

Como siguiente paso vamos a importar nuestra imagen (Ctrl+R) al documento actual, y ponerle una opacidad de 30%. Al hacer esto será mucho más fácil acomodar la imagen sobre el rectángulo que vamos a usar para la máscara. Ten cuidado en que ninguna parte del rectángulo que vamos a usar como máscara sobresalga a la imagen.

Una vez que estés satisfecho con los ajustes, regresa su opacidad a 100% a corta la imagen (Ctrl+X). Selecciona el rectángulo que vamos a usar como máscara y pega tu imagen dentro de él (Ctrl+Shift+V). ¡Ahora ya tenemos completa nuestra base de fotografía!

Luces y Sombras

Ahora vamos a empezar con el realismo. Selecciona y copia tu rectángulo base (Ctrl+C) en el layer más alto. Cambia su gradiente para que vaya de negro (100%) a negro (0%), y pon la opacidad en 50%. Ajusta el gradiente para que cubra solamente la esquina superior del rectángulo base. Baja el tamaño del ancho y alto del nuevo rectángulo en 2px, y céntralo en el rectángulo base; esto dará la sensación de una orilla iluminada contra una sombra gradientada.

Clona el rectángulo que acabas de crear (Ctrl+Shift+D) y rota el nuevo rectángulo 180º (Modificar > Transformar > Rotar 180º). Ahora, cambia su gradiente, que vaya de blanco (100%) a blanco (0%) y pon su opacidad en 100%; esto produce el efecto de una iluminación gradientada y una orilla con sombra.

Nada como una buena sombra

Selecciona todos los objetos en tu documento y rótalos (Ctrl+Shift+T, Girar) 12 ó 15º a la derecha. Esto le dará a tu imagen una posición más natural y espontánea. Además, esto pone los efectos que hicimos antes uno arriba del otro, como si estuvieran alineados con una fuente de luz.

Ahora para el elemento final: vamos a agregar nuestra sombra. Pero en vez de usar el efecto de Sombra que viene con el programa, haremos uso de una técnica mucho más flexible.

Mini-Tutorial: Sombra Natural

Empezaremos por clonar nuestro rectángulo base y moviendo la copia al layer más bajo (Ctrl+Abajo). Vamos a darles algunas características de sombra con un relleno sólido color negro, 60% de opacidad, un efecto Desenfoque gaussiano (Radio de desenfoque: 4). Ponlo unos 10 píxeles abajo para que la sombra coincida con la posición de nuestra fuente de luz.

Desagrupa el "rectángulo de sombra" (Ctrl+Shift+G) para convertirlo en un trazado editable. Usa la Herramienta Pluma para agregar unos puntos Bézier en él, uno en cada lado. Esto ayudará a quitar un poco la dureza que las imágenes digitales normalmente tienen, y permitirte crear sombras más naturales.

Ahora, acomoda los puntos de las sombras para que los puntos Bézier estén alineados con las orillas del rectángulo base. Jala cada punto de las esquinas un poco más abajo para enfátizar el levantado de las esquinas de la fotografía.

Selecciona todo lo del documento y Agrúpalo (Ctrl+G). Ahora tu imagen está lista para ser usada.

Toques Finales

Después de seleccionar un fondo para tu fotografía, necesitarás hacer unos pequeños ajustes en la opacidad de tus sombras y luces. También, si cambias de parecer en cuanto a la posición de la fuente de luz, tendrás que hacer que la dirección de tus gradientes y la forma de la sombra customizada se conforme a ella. En el ejemplo que vimos, le dí al rectángulo base un poco de redondez en las esquinas para que parezca más percudido.

Éste tutorial es una traducción de Rapid Fire #1: Photo-Realistic. Creado por:

¿Qué es un CMS?

CMS significa "Content Management System" lo que en español significa Sistema de Administración de Sistema. Un CMS permite la creación, publicación y administración de contenido, su principal uso es en las páginas web.

Normalmente los CMS consisten en una base de datos en donde se encuentra todo el contenido, y por medio de plantillas el contenido es desplegado de la manera en que nosotros queremos.

Existen hoy en día diferente tipos de CMS, hay para foros, blogs, wikis, etc.

Movable Type un CMS hecho en Perl

Hace varios años cuando decidí empezar con el sitio de Perl en Español, estuve buscando y probando los diferentes CMS que había en ese entonces en el mercado, cabe destacar que cada vez salen más de éste tipo de sistemas. Para mi suerte mo topé con Movable Type.

Movable Type es una aplicación creada por Six Apart, una compañía fundada por una pareja de programadores. De entrada, lo primero que me llamó la atención, es que la aplicación estaba hecha en un 100% con Perl. No es un secreto que hoy en día la mayoría de los CMS y los más populares son creados con PHP.

Así que bajé la aplicación la instalé para nunca volverla a dejar, a continuación explico mis razones.

1. Puro Perl

El Movable Type es creado en puro Perl. Si ves el código fuente de la aplicación, podrás apreciar una aplicación bien desarrollada y con un diseño de código impecable. Usaron de los mejores atributos de Perl haciendo que la aplicación sea sumamente robusta.

2. Opción de crear contenido dinámico o estático

La mayoría de los CMS que existen, generan el contenido de manera dinámica, es decir, la página solamente existe hasta que algún usuario la quiere visualizar. Para mi esto es algo útil para páginas que cambian de contenido todo el tiempo, como las páginas de un foro, pero si la intención es crear un artículos y publicarlos, no veo la necesidad de crear esa página una y otra vez.

La nueva versión del Movable Type te permite escoger entre una publicación dinámica y una estática.

Cuando selecciones la publicación estática se generan los archivos html necesarios, y solamente se vuelve a regenerar si hay un cambio global o alguna edición de tu artículo. Esto baja considerablemente la carga a tu servidor, en especial si recibes miles de visitas diarias en tu sitio.

Pero eso no es todo, a los buscadores no les gustan mucho las páginas dinámicas y prefieren las estáticas, por lo que tendrás más oportunidad de aparecer en los primeros lugares.

3. Excelente administración de plantillas

La manera en que Movable Type decidió manejar las plantillas me parece muy buena, y es que a diferencia de muchos CMS que hay por ahí, el Movable Type te dá total libertad en cuanto al diseño de tus plantillas.

La aplicación te permite crear plantillas de índice, crear plantillas de archivos de tipo, individuales, por fecha (diarias, semanales o mensuales), por categoría o por autor. Tu puedes decidir cuales usas.

Por ejemplo para mis tutoriales de Perl en Español uso las plantillas de tipo individuales para cada tutorial, y para archivarlas uso por categorías.

Debido a que el módulo de plantillas de la aplicación emana del módulo HTML::Template, te dá espacio para muchas cosas.

Por ejemplo, si quisieramos desplegar los títulos de las últimas diez entradas, podríamos poner en nuestra plantilla algo así:

    <MTEntries lastn="10">
        <$MTEntryTitle$><br>
    </MTEntries>

Y es que la etiqueta <MtEntries> es una etiqueta que genera un loop o bucle y las etiquetas dentro de éste bucle van tomando el valor de la entrada actual.

Para el sitio de "Perl en Español" hice una plantilla especial para mostrar el feed en RSS de los últimos tutoriales:
http://perlenespanol.baboonsoftware.com/tutoriales/tutoriales.rss

Esto se puede lograr debido a que el Movable Type te permite crear el tipo de plantillas que quieras, y como no te obliga a usar un forma predeterminado es realmente una chulada acomodarlo a tus necesidades.

4. Plugins para el Movable Type

La arquitectura de la aplicación permite que programadores puedan desarrollar plugins. El Movable Type viene con un importador de plugins, lo que hace la creación de los mismos una cosa sencilla.

Para el sitio de Perl en Español hice un plugin que muestra de manera automática una lectura recomendada por mi, esto lo pueden ver del lado izquierdo en cada tutorial.

La ventaja es que ya ahora existen muchos plugins que puedes usar con tu Movable Type, algunos ejemplos de estos son:

• Un plugin que te permite importar por medio de RSS contenido de otro sitio para publicarlo en el tuyo.
• La integración de la búsqueda de Google en tu sitio.
• Creación de galerías.

¿Cuánto cuesta Movable Type?

Así que te enamoraste de éste íncreible CMS así como yo lo hice. Pues bueno, el Movable Type es un CMS comercial, sin embargo cuentan con una versión gratuita para sitios de no lucro. Se consideran sitios de no lucro aquellos sitios que no tienen fines comerciales, la publicidad y los afiliados NO son consideradas como actividades comerciales.

Si tienes un sitio comercial la licencia del Movable Type es sumamente baja y está entre los $60 y $99usd, dependiendo de tus necesidades. Pero la licencia incluye soporte gratuito.

¿Es Movable Type lo correcto para mi?

Movable Type no es sencillo al inicio, su instalación es muy sencilla, pero el aprender a manejar sus plantillas puede llevarte varias horas. Sin embargo, una vez que lo entiendes puedes hacer maravillas con las plantillas.

Yo te recomiendo que consideres el Movable Type si quieres hacer un sitio que piensas va a crecer en gran manera, y si quieres hacer sitios con CMS que NO parezcan blogs hechos en cinco minutos.

Si eres webmaster te lo recomiendo totalmente, podrás darles a tus clientes el diseño que ellos quieren con una administración sencilla para que puedan agregar contenido sin ningún problema.

Palabras Finales

Espero que el artículo les haya ayudado un poco en la tarea de selección de un CMS para su sitio. Si tienen dudas en que CMS escoger, piensen en sus necesidades, pero lo más importante, piensen en el futuro. ¿Qué va a pasar cuándo tenga cientos de artículos?

Los invito a entrar al foro de Perl en Español para cualquier duda o si quieren alguna recomendación. ]]> http://perlenespanol.baboonsoftware.com/tutoriales/aprendiendo_perl/perl_basico_parte_1.html La primera parte de tres acerca de Perl Básico. Con éste tutorial aprenderemos las bases del lenguaje de programación Perl, en ésta primera parte veremos los temas: Historia de Perl, Variables y Operadores.... Aprendiendo Perl Uriel Lizama 2006-08-08T16:04:02-06:00 La primera parte de tres acerca de Perl Básico. Con éste tutorial aprenderemos las bases del lenguaje de programación Perl, en ésta primera parte veremos los temas: Historia de Perl, Variables y Operadores.

$variable

my $numero = 10;

    my $numero;
    $numero = 10;

my @array;

my @array = ('Perro','Gato','Gallina','Pez');

$array[<num_elemento>];

1
2
3

my @array = ('Perro','Gato','Gallina','Pez');
 
my $animal = $array[3];

my %hash;

my %hash = ('Uno','One','Dos','Two','Tres','Three');

1
2
3

    Uno  => One
    Dos  => Two
    Tres => Three

$hash{<nombre_llave>};

$hash{'Uno'};

1
2
3
4
5
6

     my %Animales = (
                 'Perro'   => 'Dog',
                 'Gato'    => 'Cat',
                 'Gallina' => 'Chicken',
                 'Pez'     => 'Fish'
                 );

<LLAVE>   => <VALOR>

my $gallina_ingles = $Animales{'Gallina'};

my $variable = $Animales{'Pez'};

$array[<elemento>]
$hash{<llave>};

CONDICION ? PARTE-VERDADERA : PARTE-FALSA

my $num = 10;
my $var1 = ($num > 5) ? "Mayor" : "Menor";

my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

my @array = (1..10);

my @array = (01..10);

my @array = ('a'..'e');

my @array = ('aa'..'af');

my $edad = "Tengo " . 21 . " años".

my $var = "A" x 6;

$var += $num;

my $num = 5;

$num -= 4;

my $var = 10 + 5 * 4 / 2;

my $num = 10 + 4 / 2;

my $num = (10 + 4) / 2;

Introducción

El PDL (Perl Data Language) es un conjunto de módulos que le dan a Perl la facultad de realizar operaciones matemáticas en conjuntos matriciales de datos de cualquier dimensión. Y, según los recursos disponibles, de cualquier tamaño. Se podría decir que es una librería matemática para el lenguaje Perl.

Por qué usar PDL

Ya sabemos que nuestro querido Perl es un lenguaje interpretado y, por tanto, tiene esa mala fama de ser lento. Me refiero al momento de la ejecución del programa. Sabemos que si tenemos que procesar miles, millones o incluso miles de millones de datos, el hacerlo con un programa interpretado será desperdiciar recursos, frente a una solución compilada, como puede ser C o C++.

Pero Perl tiene algo a lo que no podemos resistirnos: su rapidez en la producción de una solución. Perl nos permite tener un programa listo para correr en muy poco tiempo. No hay que compilar nada y su lenguaje de muy alto nivel nos permite dar una solución en muy pocas líneas de código, según nuestro nivel de experiencia con él. Así que tendemos a resolver todos los problemas con Perl. Y con los ordenadores modernos, una solución interpretada es válida en muchísimos casos.

Entonces, si Perl es interpretado, no puede ayudarnos a resolver un problema que requiere una solución compilada para la máquina en la que se va a correr. Como mucho, Perl podría llamar a un programa de procesado, un programa externo a nuestro script. Pero eso se traduce también en una solución lenta, ya que se pierde un poco de tiempo, en el sistema, para llamar a un nuevo programa, pasarle los argumentos y esperar su resultado. Lo ideal es que Perl pueda tener su propio librería compilada de procesado de datos y ser él mismo el que haga todos los procesos.

PDL viene a llenar este hueco. Nos permite manejar millones y millones de datos con la sintaxis de Perl.

Ejemplo: Nubosidad

Se describe a continuación un ejemplo de aplicación de Perl con la librería PDL. El ejemplo es de grado medio, medio-alto. Aunque el lenguaje Perl utilizado es sencillo, la parte de PDL es muy especial, pero, con sólo leerlo, puede dar una idea de lo que se puede hacer con PDL. No se trata de un ejemplo para empezar a trabajar con PDL.

El ejemplo propuesto trata de resolver el siguiente problema:
Trabajamos en un departamento que se dedica a la investigación del clima y la vegetación.

Una de las rutinas normales del trabajo es la del procesado de imágenes de satélites de baja órbita. Estos satélites se caracterizan por una alta resolución (250m/pixel). Uno de las productos que se pueden sacar de estas imágenes es el nivel de nubosidad que existía en el momento en que el satélite hizo la pasada por encima de una determinada zona a analizar.

Definimos nubosidad como el porcentaje de píxeles de una comarca que están despejados de nubes con respecto al total de píxeles que cubre esa comarca. Saber la nubosidad es importante porque luego podremos deducir cálculos de índice de vegetación y riesgo de incendios.

La misión es: tenemos una serie de imágenes, todas ellas de la misma zona del planeta, de un tamaño de 6144 por 4096 píxeles, y de dos bytes por pixel cada uno, donde esos bytes pueden ser 0 si en ese pixel había una nube y un valor mayor que 0 si estaba despejado. Hay que calcular el índice de nubosidad para todas las comarcas de esa zona, por cada una de las imágenes.

Naturalmente, para saber dónde están las comarcas necesitamos un mapa. El mapa es otra imagen del mismo tamaño que las anteriores, donde cada pixel es de un byte, con un valor que representa el número de comarca. Si hubiese un 0, es que ese pixel pertenece a otro país o al mar.

Problemas...

Bueno, como hay que procesar una serie de imágenes y sacar un informe para cada una de ellas, enseguida pensamos en Perl. Pero... ¡cada imagen tiene más de 24 millones de píxeles!. Aunque no hay que hacer ninguna operación matemática, el simple hecho de recorrer 24 millones de puntos en un bucle en Perl... puede hacerse eterno (desde el punto de vista del ordenador). Y el enunciado del problema no comenta el número de imágenes a procesar... pueden ser dos o doscientas... Y si hay otra persona o programa esperando los resultados... mal vamos. Hay que buscar una solución más rápida.

PDL al rescate

La operación a realizar en todos los píxeles es sencilla: saber cuántos píxeles de una zona son mayores que 0. Y luego dividirlo por el número de píxeles del total de la zona.

Lo vamos a expresar bien: queremos saber lo despejada que es una comarca, es decir, cuántos píxeles de la imagen que pertenecen a esa comarca son mayores que 0. Y esto, repetirlo para todas las comarcas y para todas las imágenes.

Empezamos

El código que resuelve el problema está al final del a