Foro - Perl en Español

Tengo el siguiente código :

#!usr/bin/perl

use LWP::UserAgent;

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

my $code = toma( "http://thepiratebay.se/search/" . "batman". "/0/99/0" );

print $code;

sub toma {
return $nave->get( $_ )->content;
}

#The End ?



Lo que pasa es que me devuelve código como esto :

j⌂ì▬╩■║å°Ì·Î̓→þ♠3mB╠l0r─◄┴↕☻J↓è(W┴9iµ OXÑ.╣çEnðz%╔▬ê█Üõ÷ÇÿÝCæ¢É8F;SôDKÍzÀ-#ÅÇ↑
)*ù┼└O¶Ë¡ÌÁ«½ƒ░H♀ÀL☻┬×IOyB®pûzµ└+¤♀x╬☺1╗p½7mÀzÀ░¹j░Kgd→♦b╝3¹l◄yÖa┬¡÷éÈ↑│¥8┌2
µr▲~n↨ÿø§F¶Å♠ôƒ²?åôtt­Ón8Ð}c£M®¾å┘└Á←¸»¦H☼ã±õaÊ$¨É)êR♣Q¬ ÛFS♣▼2♣ƒ>d
┌├<3iÅ∟åÒa1ªÝãØÖa-♫?oú§µwv\HyÝåÙù´úi×Ū]£g?0ýúb┬∟æÿÕNß»♠N┴}♂╚±@┘‼ƒP╝±K»8¬Ý◄┌8╝«O
‗A▓í0_M╠-Jºð3ïÊd4á­♫Feô ¿¶§l¾ya[╗8 ♂ÄSãï8c╝╚╣ÌÄj2Ün¬ñÀ®ä·§C♠♠∟&─q╩↕ø↑Pî←®▒öÌbM↓½ ¬ ¶·FÁ└³
╝A¹v¯­©É¶┌ü¹¾LJ╬FqÇ´│ó§C─♣┼Sô÷¯├┴õ°Û)ÁHv:<─Ë┐u☺¢%pjîþ┤ÒC7↔HI[╬µnÛÒ½╦‗ã¯×\♫>wÅ┐∟£
v☼.╬Å♫N ╝©<iéþÙ+Úm*í■ä;qéZ ▄↕├اD←/©ðÿxK┤♂17Ƕ╩W­|múZ<▀fá²☻pGU wÞÁßnI°è ...

¡Hola, Perleros! Les pido nuevamente su ayuda.

Las columnas del archivo adjunto son: año, mes, día, hora, velocidad de viento y dirección de viento. Siempre debo trabajar con un año calendario, pero algunas veces la información no está completa como es el caso de archivo datos.txt, el cual comienza el 20/6/2013 a las 17 horas y debo completar a mano las fechas que faltan y los datos de velocidad y dirección con 'nan'.

Mi pregunta ...

Hola, amigos, una consulta.

Resulta que quiero exportar un hash desde un módulo llamado 'admin.pm'
#!/usr/bin/perl

package admin;
use Exporter;
our @EXPORT = qw(%acommands);

our %acommands = {
say => 'doSay' #Valor
};


Pero, no logro acceder a este desde el script principal 'start.pl':

my $tmpCommand = 'say'; #la llave del hash
print qq($acommands{$tmpCommand}\n); #debería mostrarme el valor de esa llave correspondiente al hash


Gracias de antemano.

¡Hola, perleros!

Ayúdenme, por favor. Tengo un archivo.txt que contiene las siguientes columnas: año, mes, día, hora, velocidad, y dirección de viento. A continuación muestro un extracto del archivo:

2013 1 1 0 1.0 76
2013 1 1 1 1.0 26
2013 1 1 2 0.7 37
2013 1 1 3 0.3 76
2013 1 1 4 0.6 59
2013 1 1 5 0.6 65
2013 1 1 6 0.5 81
2013 1 1 7 ...

Buenas, compañeros y amigos de Perl en Español. Tengo un pequeño problema que podría solucionarlo con POO, sin embargo no me queda claro cómo hacerlo, me he leído un sin fin de tutoriales, pero ninguno me deja claro, qué y cómo debo de hacer este tipo de programación.

Entiendo qué son Clases, Módulos y Atributos. Sin embargo no encontré información muy detallada acerca de cómo se utilizan en Perl. Tal vez pudieran echarme una mano ...

Hola. Como siempre quise entender cómo haría una función en Perl para desconectar de Internet una computadora. Lo pensé en todos los lenguajes y no encontré forma. ¿Alguien sabe cómo se podría hacer?

Hola, estimados. Debo realizar un consumo desde un webservice RPC:XML. Si bien he buscado y existe un módulo en Perl RPC::XML que me ayudaría en esto, pero no está instalado en el servidor :-( lo que me lleva a consultarles si existe otra posibilidad de consumir sin tener instalado ese módulo.

Desde ya, muchas gracias.

Hola, tengo una consulta: Cómo puedo modificar a la vez una palabra por otra en el nombre de unos ficheros y en su contenido.
El nombre de los ficheros tiene un patrón común, plujatempabril.htm, todos empiezan por el nombre de una población. Por ejemplo, Barcelonaplujatempabril.htm, Valenciaplujatempabril.htm... Quiero cambiar abril por mayo... en el nombre de los ficheros y en el interior de los ficheros. En el siguiente código realizo el cambio para un fichero en ...

¡Hola! Debo leer datos de un archivo .cvs donde dos de sus columnas cumplen cierta condición.

Ejemplo: Coln = "Algo" y Coln+1 = "Otra cosa".

El tema es que debo depurar mejor esa información, ya que hay una tercera columna que va variando y es la que genera el corte.

Venga:
otras columnas Algo;Otra cosa; 12
otras columnas Algo;Otra cosa; 12
otras columnas Algo;Otra cosa; 20
otras columnas Algo;Otra cosa; 20
otras columnas Algo;Otra cosa; ...

Buenas noches.

Me estoy volviendo loco pues he de realizar una pequeña modificación en un programa de facturación y no encuentro cómo hacerlo.

El asunto es que el programa en Perl ha de abrir un fichero donde se encuentra el número de cliente y el número de la última factura, algo así como:
987;1
1030;1
987;2
1030;2compararlo con el número de cliente que se está facturando.

El programa ha de quedarse con el último número, ...