Foro - Perl en Español

Hi!

Mi duda es muuuuuuy básica.

No sé usar chdir() para hacer estas cosas:

Code: Seleccionar todo

C:\Documents and Settings\??\Cookies

C:\Documents and Settings\??\Configuración local\Archivos temporales de Internet

El problema radica en que quiero que se meta en esas carpetas sin conocer el nombre de usuario.

Por ejemplo, en batch sería usando %username% pero en Perl, no sé...

Hi!

Ando tratando de hacer un whois con un servicio web pero ya solo me falta que extraiga lo que yo quiero.

El code quedó así:

use LWP::UserAgent;
use HTTP::Request::Common;


$url = "http://www.who.is/whois-ip/ip-address/200.80.1.16/";
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
$request = $lwp ->get($url);


if ($request->content =~ /<br>OrgName:&nbsp;&nbsp;&nbsp;&nbsp(.*)<br>OrgTechEmail:&nbsp;&nbsp/){
print "\n\n";
print "Funciono guasonsito\n";
print $1;
print "Good bye\n";
exit 1;
} else {

print "EHHHHHHHHH\n";
my $content ...

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