Foro - Perl en Español

Hola.

Tengo un string lleno escapes sin "escapar" y necesito "escaparlos":

my %escapes = (
'\t' => "\t",
'\r' => "\r",
'\n' => "\n",
'\a' => "\a"
);

my $string = '\aHola\n\tDOS EOL\r\n';
foreach my $escape ( keys %escapes ) {
my $final = $escapes{$escape};
$string =~ s/\Q$escapes\E/$final/g;
}
say $string;

Eso funciona muy bien, pero resulta que si tengo 'america\\argentina' (por decir algo) surgen problemas con la regexp.

¿Cómo trabajo los backslash, slash y ...

Saludos perleros, tengo un problema con un programa y creo que el error anda por ahí. ¿Me podrían echar la mano?

Yo tengo mis 2 programas
conectarsb.pm
uno.pl

El primero es:package conectarsb;
use strict;
use DBI;
# variables a editar
my $db_user = "usuario";
my $db_pass = "clave";
my $host_name = "la ip misterio";
my $db_name = "DB";
# vars
my $q_string = "DBI:sybase:host=$host_name;database=$db_name";
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError ...

Hola, soy nuevo en esto pero necesito sacar de un sitio web público ciertos datos de las páginas y ordenarlos en una hoja Excel, por ejemplo. El sitio es: http://www.protecnet.go.cr/InsumoSys/Principal.htm

En la consulta por plaguicidas y coadyuvantes obtengo toda la lista de unos 2876 registros de los cuales me interesa sacar los datos (por ejemplo éstos que corresponden al primer registro) y así que el programa me extraiga esos ...

Estimados foreros,

No quiero molestar con esta consulta pero no encuentro forma de bloquear el continuo hackeo a mi servidor.

Cada vez que entran encuentro un archivo en Perl de nombre ftpchk3.pl
y que contiene esto:

#!/usr/bin/perl -w

$| = 1;

my $smtp = 'smtp.mail.ru';
my $dns = '208.67.222.222';

print "Content-type: text/plain; charset=windows-1251\n\n" if $ENV{HTTP_USER_AGENT};

#print "System info\n";
#print "-----------\n\n";
#print "$^O";
#print "\n", `uname -a` if $^O !~ /win/i;
#print "\n\n";

#print "Perl modules\n"; ...

Necesito detectar en un directorio los archivos que superan cierta cantidad de kb. y con ellos armar un informe.

¿Hay alguna función que me devuelva el peso del archivo?

Muchas gracias :)

HOLA:

Estoy trabajando con un fichero en formato fasta del que tengo que extraer los ORF posibles de dicho fichero por los posibles marcos de lectura. Mi problema es que obtengo las secuencias pero al compararlo con el programa getorf veo que me faltan la última secuencia con su cabecera de la cadena normal y de la inversa.
No sé que hacer para que salga ya que aunque supongo que es un error de contadores ...

Desde hace tiempo se conoce de la existencia del proyecto HAARP por parte del gobierno americano, pero siempre ha sido motivo de discusión el fin de ese proyecto.

En el siguiente video Benjamin Fulford infiltra cierta información acerca de HAARP y para que "realmente" está siendo usado, pues según lo que informa el gobierno americano lo está usando como una arma para crear terremotos en áreas específicas, por ejemplo el último que hubo en China. ...

Para aquellos de vosotros que os acerquéis al Open Source Convention 2008, que sepáis que los Perl Mongers están organizándose para reunirse allí.

Ayer se anunció la salida de la versión 0.6.4 de la máquina virtual Parrot.

¡A probarla!

Ayer, Tim Bunce anunció (en inglés) en su blog la presentación de la v2 de la herramienta de profiling Devel::NYTProf, basada en el trabajo de Devel::FastProf, de Salvador Fandiño García, uno de los contribuidores en lengua española al CPAN.