Foro - Perl en Español

¡¡Feliz año nuevo a todos los perleros de perlenespanol.com!!

Como primer programa del 2014 les traigo la nueva versión de mi ParanoicScan en su versión 1.5. Hace tiempo ciertas personas robaron el código fuente de la anterior versión de este programa. El tema es que no me molestó que usaran el código sino que solo le cambiaron el nombre del programa y el nombre del autor, no se molestaron en cambiar los nombres de las variables, solo cambiaron el nombre del autor. Por un ...

Perl Maven: Las 19 herramientas fundamentales para manipular el sistema de archivos en Perl 5

«Cuando escribo scripts Perl para manipular el sistema de archivos suelo tener que cargar muchos módulos. Gran parte de las funciones que necesito están dispersas en distintos módulos. Algunas son funciones integradas de perl, otras se encuentran en módulos estándar incluidos en perl, y otras deben instalarse desde CPAN.

Voy a describir las 19 herramientas que más uso».

Artículo

Tengo el siguiente código.

print "
¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾ ¾¾¾¾
¾¾¾¾ ¾¾¾¾¾¾ ¾¾¾¾
¾¾¾ ¾¾¾ ¾¾¾ ¾¾¾
¾¾¾¾¾¾¾¾¾¾¾ ¾¾¾ ¾¾¾¾
¾¾¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾ ¾ ¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾¾
¾ ¾¾¾¾¾¾¾¾¾¾ ¾
¾ ¾ ¾¾¾¾ ¾ ¾
¾ ¾¾ ¾¾
¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾¾¾¾ ¾¾¾
¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾ ¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾ ¾¾¾ ¾¾¾¾¾¾¾¾¾
¾¾¾ ¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾ ¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾
¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾
¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾
¾¾¾¾¾¾¾¾ ¾¾¾¾¾¾¾¾
¾¾¾¾¾¾ ...

Hola, estoy buscando el equivalente de color en Windows para Linux. Me refiero al comando color de Windows, para no estar tocando los perfiles de la consola en Ubuntu. Quería preguntar si había algún comando como en Windows.

Hola, estoy intentando crear un programa que me cuente el número de '1' y '0' dentro de un archivo. Los '1' representan el número de metilaciones de una cadena de ADN. Hay dos enzimas de restricción, H y M, y por el momento quiero contar el número de metilaciones en cadenas cortadas por la enzima H. Para ello he hecho este programa:

#!/usr/bin/perl

$metilaciones = 'C:\BIF\practica5\practicaperl\metilacion.txt'; # ruta del archivo
open( METILACIONES, $metilaciones ); ...

Tengo el siguiente código.

#!usr/bin/perl
use Cwd;

sub cargar_archivo {
if($^O =~/Win/) {
system("start $_");
} else {
system("firefox $_");
}
}

cargar_archivo(getcwd()."/logs_html/logs.html");

El problema es que no me carga el archivo html. ¿Qué estoy haciendo mal?

Hola. Estoy tratando de evitar el famoso <script>alert('hola mundo');</script> en un archivo. Esto lo soluciono con htmlentities en PHP pero quería preguntar cómo lo evito en un archivo html generado con Perl. Había pensado que antes de generar en archivo html cerrar las etiquetas <> con otra cosa para evitar esto pero ¿ qué otra soluciones tengo ?

P.D.: esto es en un archivo local, no para una página web.

Un simple script en Perl que hice con la ayuda de explorer para realizar búsquedas en Shodan usando el API que hicieron para Perl.

El código.

#!usr/bin/perl
# Shodan Tool 0.2
# (C) Doddy Hackman 2013

# Install the dependencies
# sudo perl -MCPAN -e 'install CGI::Enurl'
# sudo perl -MCPAN -e 'install JSON::XS'
# sudo perl -MCPAN -e 'install HTTP::Request::Common'
# Install Shodan
# curl -OL http://github.com/downloads/achillean/s ... 0.3.tar.gz ...

Hoy se cumple el vigésimo sexto cumpleaños de Perl.