Foro - Perl en Español

Allison Randal escribe en la revista Linux Magazine sobre las características principales de Parrot, que lo hacen ideal para la implementación de nuevos lenguajes y sus compiladores.

Comienza con una reflexión: han ocurrido pocos avances en la historia de los lenguajes de programación en los últimos 40 años, mientras que el hardware está constantemente cambiando. Un ejemplo son las facilidades para construir sistemas concurrentes o de alto paralelismo.

La evolución de los lenguajes es lenta. ...

Hola amigos,

Soy nuevo por estos lares, aunque ya rodé por ahí con Perl desde hace un par de años...

Estoy haciendo una aplicación, pero claro, con una lista de "TODOs" similar a la "Wish-list" para Santa.. que para qué les cuento...

La "lista de deseos" para mi aplicación va más o menos así:

1) Cómo quitar la barra de inicio de Windows en una GUI hecha con WIN32, ¿es esto posible?

2) Estoy usando ...

perlnautas... yo sé que esto no es propiamente de Perl.

Mi pregunta es acerca de un certificado de seguridad que se creó con Apache... sucede que aunque lo instalo... cada vez que entro me lo vuelve a pedir... Aquí el asunto es que la página que muestra el certificado es esta: https://123456.com.mx:8043/ y el certificado es para un sitio 123456.com.mx. La pregunta es... ¿creen que la llamada del puerto ...

El programa Warrick permite recuperar sitios web desde el almacén de archive.org, el caché de Google, Yahoo y Bing!

El siguiente artículo comenta un poco sobre la instalación y uso de Warrick.

Hola a todos,

Estoy manipulando varios ficheros de texto, todos tienen el mismo formato,

Tengo a cada fichero separado en columnas mediante el siguiente código:

my @file = <FILE>;

for ($i=0; $i<scalar(@file); $i++){


my @colum = split (/\t/,$file);

print $colum."\n";

}

close FILE;

Necesito imprimir todas las columnas del fichero, son aproximadamente 250, esto significaría escribir demasiado código(print $colum\t $colum\t$colum\t.....$colum).

¿Alguien conoce alguna manera de que con algunas cuantas ordenes pueda imprimir todas las columnas? ...

Hi!

Ando buscando en todos lados cómo convertir texto normal a hexadecimal, pero no encuentro ningún módulo para eso.

ejemplo: 0x2f6574632f67726f7570 = “/etc/group”

Agradecería cualquier ayuda...

Hola,

Estoy tratando de enviar un archivo CSV, para ello tengo el html con:
<input name="myfile" type="file" size="30" />

En el cgi tengo:

my ($myrut, $query, $template_dir) = @_;
my ($L_html, $myfile, $mymail, $myfile2, $file_name, $dir);
my ($resp, $temporal, $trs_finiquitos, $resp1);

$myfile = $query->param('myfile');
$mymail = $query->param('email');
$L_html = "";

if (-f $myfile)
{...
}

Entiendo que la instrucción if(-f $myfile) me indica si es o no archivo, sin embargo siempre me dice que ...

Me encuentro en un pequeño desafío.

Un señor se acercó a mí y me pidió para que le hiciera un programa de Control Stock de mercaderías. Nada muy complejo, solamente entrada-salida, reportes, informes, con cosas básicas.

Le había consultado a un amigo, y me dijo que para eso están los otros lenguajes y plataformas, como Visual FoxPro (casi obsoleto), Visual .NET, Delphi, etc., es porque se puede compilar, crear el ejecutable y demás archivos para ...

Hi!

El otro día había encontrado una ventana de chat hecha en IO::Socket que se comunicaban entre server y cliente mediante un raw_input pero no lo encuentro mas ¿alguien me dice cómo puede haber sido el code o en que página está?

Hi!

Ando queriendo hacer una ventana con el módulo Tk que cada vez que se presione el botón cerrar se cree otra igual y no tenga salida pero no sé cómo hacerla.

Ventana normal:
use Tk;

$mw = MainWindow->new( -background => "black", -cursor=>"crosshair");
$mw->geometry("600x325+100+100");
$mw->title("{Ventana de prueba");



$mw->Label(-background => "black", -foreground => "black")->pack();


$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();



MainLoop;

¿Cómo haría que ...