Foro - Perl en Español

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

Hi!

Ando queriendo saber cómo borrar todos los subdirectorios y archivos que se encuentran en estos lugares:

Code: Seleccionar todo

C:\Docume~1\Administrador\Config~1\Archivos temporales de Internet

C:\Docume~1\Administrador\Config~1\Historial

Pero no sé cómo hacerlo. ¿Alguien me dice si hay algún módulo para eso?

En este caso el array 'vector' contiene:

push (@vector,"6\tRoma");
push (@vector,"3\tParis");
push (@vector,"5\tMadrid");
push (@vector,"7\tYork");
push (@vector,"9\tYork");
push (@vector,"2\tRoma");
push (@vector,"4\tParis");
push (@vector,"1\tRoma");

Y yo quiero eliminar para cada ciudad, la de mayor valor, es decir, que al final vector tenga:

Code: Seleccionar todo

"3\tParis"
"7\tYork"
"2\tRoma"
"1\tRoma"

¿Cómo puedo hacerlo? Gracias.