Foro - Perl en Español

Saludos. No sé si me pueden ayudar. Necesito hacer un cliente que se conecta a un webservice HTTPS con autenticación SSL, pero no me funciona; no sé si me pueden ayudar diciendo dónde está mi error
use SOAP::Lite 'trace', 'debug';

SOAP::Lite->soapversion('1.2');
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'user' => 'passwd';
}

my $result = SOAP::Lite
->uri('https://url.go.gt')
->proxy('https://url.go.gt/PROXY/EstadoCuenta.asmx', timeout => 5)
->ListPortfolios()
->result;

print $result;

pero me da el siguiente mensaje:
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error
Cache-Control: ...

El grupo perlero de St. Louis, ha publicado los vídeos sobre la charla que dio en febrero David Dooling sobre cómo interviene Perl en los estudios genéticos, algunos de los cuales están orientados a elaborar terapias genéticas para luchar contra el cáncer.

Noticia original (en inglés)

Hola amigos,

Resulta ser que tengo un problema muy grande.

Yo tengo una aplicación desarrollada en Perl estilo administrador de CMS, el cual funciona muy bien en varios servidores pero resulta ser que para un nuevo proyecto fue necesario comprar un servidor en el cual nosotros pudiéramos tener todo el control porque necesitábamos mod_perl y queríamos controlar todos los aspectos del servidor.

Resulta que ya está, conseguimos un dv en media temple, que tiene un ...

Buenas a todos.

Estoy con un programa Perl que una de sus tareas es ejecutar un programa Perl que se encuentra en otra máquina. Para ello he probado los siguientes comandos:

print "Executing = \n";
my $rsh_result = `rsh -n $computer_address perl $monitor_path/$perl_monitor_script`;
print "Resultado -> - ]\n";
my $rsh_result2 = system("rsh","-n","$computer_address","perl $monitor_path/$perl_monitor_script");
print "Resultado2 -> - ]\n";
my @rsh_result3 = qx(rsh -n $computer_address perl $monitor_path/$perl_monitor_script);
print "Resultado3 -> ...

Es seguro que ya les había pasado esto: que le pregunten por MSN, IRC, Foros sin antes haber buscado en Google.

A mi sí. Tenía un amigo (con experiencia en Internet) que me preguntó dónde podría encontrar drivers para una notebook ACER. Le dije que podría encontrar en la página oficial del fabricante, de igual forma le envié los links para que descargara directamente.

Para la segunda vez, se contactó conmigo y me preguntó cómo ...

Hace unos días en Google I/O 2009, Google anunción su nuevo desarrollo: Google Wave.

Google Wave busca ser una nueva herramienta que innove la manera que nos comunicamos y colaboramos por medio de la web.

En su sitio tienen la presentación de su nuevo producto que saldrá a finales de este año:
http://wave.google.com/

Al ver el video he quedado bastante impresionado por el desarrollo, me parece bastante innovador y ...

Hola. Quiero aprender a usar XML y quisiera saber si me pueden recomendar algún manual o algo que me pueda ayudar. Tengo varias cosas que me gustaría hacer como por ejemplo, sacar información de la BD y construir un xml, algo como esto:

<Info>
<Id>12345</Id>
<Account>
<Card>
<cardActive>1</cardActive>
<cardExp></cardExp>
<cardId>777889003666</cardId>
<cardLost>0</cardLost>
</Card>
<Card>
<cardActive>1</cardActive>
<cardExp></cardExp>
<cardId>777889003672</cardId>
<cardLost>0</cardLost>
</Card>
</Account>
</Info>

La parte de <Card> ya la pude sacar con este código:

my @rows;
sDB_Select($dbh,$stmt,\@rows,$sub); ...

Hola amigos.

Quiero buscar un valor ($ip) dentro de una lista ips.txt; si este IP existe en la lista ejecuto una acción. De lo contrario ejecuto otra.

Creé un archivo ips.txt:

Code: Seleccionar todo

192.168.50.2
192.168.50.3
192.168.50.4
192.168.50.5

$file= "/partition/practicas/ips.txt";
open(DATOS, "<$file");

my @lineas = <DATOS>;
close(DATOS);

$ip=192.168.50.2




foreach $linea (@lineas) {
if ($linea == $ip) {
print "Tengo el ip, $ip\n !!!";
}
else {
print "no tengo ip !!!";
}

El problema es que ...

Hi!

Este es el code de mi programa player.pl

#Name program = Player Music
#Autor = Guason
#Alias = Guason el malvado

use Win32::MediaPlayer;



if(!$ARGV) {

print "\n\n";
print "Player Music By Guason\n";
print "\n";
print "Modo de uso = player.pl <SONG>\n";
print "SONG = Puede ser una cancion o un video\n\n";
print "Written by Guason\n";
exit 1;
}

my $play = $ARGV;


$winmm = new Win32::MediaPlayer; # new an object
$winmm->load ($play) ; # ...

Gracias a todos los moderadores y personas que hacen posible sitios como este...

Soy nuevo en Perl y bueno, como todo novato me encuentro con la barrera de los módulos.

Mi problema es el siguiente: estaba copiando un script que encontré en la red para buscar en el escritorio y otras cosas. Lo copié todo tal cual o más o menos, y cuando lo corrí, bueno, no tengo instalado algunos módulos. Fui instalando así:
# ...