Foro - Perl en Español

Estoy realizando un proyecto en el cual, desde Perl, realizo una conexión a LDAP. La cuestión es que necesito insertar imágenes a mi directorio de Perl. Mi duda es cómo hacerlo.

El proyecto MetaCPAN ha cumplido un añito (en inglés), una forma de buscar por los contenidos de CPAN, usando tanto un navegador web como su API asociada.

Y gracias a su API han surgido otros proyectos, como el editor Padre, la aplicación iCPAN para el iPhone, y el sitio web github meets CPAN.

Hola,

tengo que comprimir un archivo remotamente y al ser muy grande el archivo, no lo realiza.

my $ssh = Net::SSH::Expect->new(
host => $ip,
password => $pass,
user => $user,
raw_pty => 1
);
my $login_output = $ssh->login();
if ( $login_output !~ /Last/ ) {
&writeLog("Login has failed. Login output was $login_output");
$retorno = 'error';

}
if ( $retorno eq 'success' ) {
my $gzip = $ssh->exec("gzip $path/$archivo");



Ahora, si coloco timeout (my ...

Hola, estoy intentando ejecutar unos comandos por REST URI para Azure, por ejemplo para ver los servicios hospedados que tengo en Azure. Para ejecutarlo se necesita un certificado pero no soy capaz de asociar este certificado en la petición GET. Este es mi código:

#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->default_header("x-ms-version" => "2009-10-01");
$ua->protocols_allowed( );
$ua->show_progress( TRUE );
$ENV{HTTPS_CA_DIR} = 'C:/Users/Leo/Desktop';
$ENV{HTTPS_CA_FILE} = 'C:/Users/Leo/Desktop/azure.cer';

my $req = HTTP::Request->new(GET =>'https://management.core.windows.net/XXXXXXXXXXXXXX/services/hostedservices');
$req->header("x-ms-version" => "2009-10-01"); ...

Hola, alguien podría decirme como puedo imprimir por columnas. En el código como se puede ver, tengo 4 líneas, pero en una columna debería ir la línea 0, en la segunda columna las líneas 1 y 2 y en la tercer columna la línea 3, tales líneas provienen de un archivo, para ejemplos prácticos sólo puse esas, pero la idea es que tenga tantas columnas como cambie el aid.

#!/usr/bin/perl

sub trim($);
$va="inicio";
$contacol=1; ...

Hola,

Estoy leyendo un archivo xlsx pero al leer algunas celdas aparece el siguiente carácter: Â

Ejemplo:

 14425 (del cual solo necesito el número)

¿Cómo puedo eliminar este carácter?

Gracias.

Hola. Tengo una duda sobre cómo usar los hashes, porque quiero usar un valor como una especie de array. Lo que quiero hacer es que el valor en saludos sean dos variables una llamada hola y otra llamada chau, pero el problema en el código es que solo hay espacio para uno. El código es el siguiente:

my %encontrados;

$encontrados{'saludos'} = "hola";
$encontrados{'saludos'} = "chau";

for my $data(keys %encontrados) {
print $data."\n";
print $encontrados{$data}."\n\n"; ...

Hola y saludos al equipo de Perl En Español...
Soy nuevo en Perl y no logro configurar bien para que los archivos .pl se me visualicen con mi servidor Apache.

Tengo instalado Apache 2.2, PHP v5, MySQL v5, PostgreSQL v8.4, phpmyadmin, todo correctamente instalado sobre Windows... La carpeta donde tengo alojados los archivos es en www...

He instalado Perl y en la configuración he logrado ver los archivos .cgi pero los archivos .pl no los ...

¡Hola!

Bueno, el día de ayer me puse a crear una especie de chat con sockets, utilizando un servidor y un cliente y utilizarlo en localhost. El motivo de este mensaje se debe a dos cosas. Las listo:

• Que me digan cómo puedo hacer para hacerlo entre dos computadoras con diferentes IP, no en localhost como lo hago actualmente.
  
• Que me den recomendaciones de cómo se podría optimizar más el código, para programar más ...

Hola, tengo un problema con un código que estoy haciendo.

Se trata de un simple programa que detecta los listados de directorios. El problema surge cuando a partir de "for my $probar(@repetidos) {", donde trato de detectar si un directorio ya fue visto para así ignorar los repetidos en el array del mismo nombre.

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...