Foro - Perl en Español

Hola,

Necesitaba convertir todas las mayúsculas después de un punto a minúsculas. Sé que para convertir todas las mayúsculas a minúsculas se podría hacer así:

open F, shift;
while (<F>) {
$_ =~ tr///;
print;
}
close F;

Pero, ¿cómo puedo hacer para convertir solo las mayúsculas que van después de punto? Intenté algo como lo siguiente:

open F, shift;
while (<F>) {
if (/\.\s()/) {
$1 =~ tr///};
print;
}
close F;

Es decir: ...

Hola, tengo el siguiente código:

#!usr/bin/perl
#A simple Proxy Server
#(C) Doddy Hackman 2011
#ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Proxy.ppd

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;

my $port = "8083";
my $logs = "logs.txt";

print "\n\n Proxy server Online in port $port\n\n";

my $server = HTTP::Proxy->new(port=>$port);
$server->host();

$server->push_filter(mime=>undef,response => HTTP::Proxy::BodyFilter::complete->new());

$server->push_filter(
mime=>undef,
request=>HTTP::Proxy::BodyFilter::simple->new(\&enable),
response => HTTP::Proxy::BodyFilter::simple->new(\&enable2));

$server->start();

sub enable {

my @logs;
my($a,$b,$c,$d,$e) = @_;
my ($f,$g)=($c->header("cookie"),$c->header("x-requested-with"));
my ($h,$i)=($c->header("content-type"),$c->header("content"));

savefile($logs,"\n : ...

¡¡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.