Foro - Perl en Español

Hola. Tengo el siguiente código.

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

my $server = HTTP::Proxy->new(port=>8080);
$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($a,$b,$c,$d,$e) = @_;

print $c->header("content");

#print Dumper $c;

}

sub enable2 {
my ($j,$k,$l,$m,$n) = @_;
print $$k;
}

El tema es que ya sé capturar el contenido POST y modificarlo a mi antojo, que sería así:

print $c->content;
$c->content("testing")

Ahora quiero ...

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

Tengo el siguiente código.

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

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?

¿Existe algo más rápido que el grep para verificar si un dato de un array está repetido ?

Tengo esto:

my $c = grep { $_->{$key} == $data->{$key} } @$pagosCSVData;

Es un array de hash, de unos 30 000 registros, y quiero eliminar los repetidos según una llave :P Pero el proceso para los 30 000 registros me toma mucho, ¿ Cuánto me debería tomar, hay ...

Hola, tengo esta función para leer archivos en una variable string final pero quería preguntaros por qué no anda bien o cómo podía hacerlo más fácil.

print savewords("test.txt");

sub savewords {
my @words;
my $r;
open( FILE, $_ );

@words = <FILE>;
close FILE;

for (@words) {
$r .= $r + $_;
}

return ($r);
}


¿ Alguien me puede ayudar ?

Hola.

Tengo un array de botones creados con el módulo Win32::GUI. El problema es que quiero que todos los botones, al hacer clic, vayan al mismo evento, porque si no es una locura para manejarlos todos. Los creo de la siguiente manera:
$casillas = $ventana->AddButton( # creamos botón
-name => "Boton$i",
-text => "$i",
-pos => ,
-size => ,
);

DATO: La variable $i contiene un ...

Estimados, tengo la siguiente duda y es que desde un Excel estoy leyendo un campo fecha que está de la siguiente manera "April 05/2013" el tema es que cómo puedo transformar esa fecha a "yyyy-mm-dd" para poder insertarla en la BD.

Gracias por su ayuda.