Foro - Perl en Español

Otro mes, otro Rakudo Star...

Estos son los cambios más importantes sobre la versión anterior:

• opciones de línea de comandos -I y -M
• soporte para enumerados no Int
• ‘use’ ahora acepta argumentos posicionales y es capaz de importar por la marca del nombre
• ‘import’ ahora funciona
• soporte básico para literales de Version
• %*ENV ahora se propaga en los subprocesos
• implementación básica de pack y unpack traídos desde ...

Estimados, tengo el siguiente script el cual solamente me entrega un dominio y no todos los que aparecen, ¿me pueden ayudar?


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

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");

$url = "http://www.bing.com/search?q=ip:67.222.152.26";

$req = HTTP::Request->new(GET => $url);
$response = $ua->request($req);
$content = $response->content();

if($content =~ m/<cite>(.*?)<\/cite>/) {
push (@res,$1);
}

foreach $res(@res) {
print $res. "\n";
}


Saludos.

Saludos, Perl en español:

Tengo un grupo numeroso de palabras así como INTERCONEXIÓN, MÉXICO, etc.

La situación es que en los archivos que analizaré a veces viene una con tilde y la otra no, las dos con tilde o ninguna con tilde. Sé que se podría escribir una expresión regular para sustituir MÉXICO por MEXICO para analizar todo sin tildes pero como es un grupo numeroso de palabras, me pregunto si hay alguna expresión regular ...

Not a GLOB reference at c:/Perl/site/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm line 10.

¿Cómo resuelvo este error?

Buenas a todos.

Antes de nada, felicitaros por el foro.

Tengo una duda referente a la gestión de Perl del tamaño de memoria de las variables.

Por ejemplo,

#!/usr/bin/perl
use integer;
{
$t = 255;
$byte_size1 = length($t);
print "Entero:$t\n";
}
$char = "prueba";
$size = length($char);
print "char:$char\n";
use bytes;
$byte_size = length($char);
$byte_size1 = length($t);
print "size_bytes_entero:$byte_size1\n";
print "size_bytes_char:$byte_size\n";


¿Por qué una variable del tipo integer ocupa 3 bytes cuando debería ...

Hola,

estoy haciendo pruebas con un programa y no me devuelve nada, creo que entro en un bucle infinito y por más que miro no encuentro el porqué:
my $indizea=0;
my $ADI=0;
my @ADIak = ('"wid="w1"', 'wid="w2"'); # vector con dos string de prueba
my $lerroADI= 'wid="w2"'; # string que quiero buscar en el vector
while (($indizea<=scalar(ADIak))||($ADI=0)){ # hasta que se acabe el vector o no lo encuentre
if ((@ADIak) = $lerroADI =~ ...

Esta parte del código está hecha para hacer un análisis sintáctico de archivos xml
y cuando está correcto el código no hay problema, pero si el xml está mal me sale que el mensaje cuando el código está bien seguido del error que hay, es decir el código en sí me funciona pero ¿cómo hago para que no me muestre el mensaje de código correcto?

my $parser = XML::Parser->new( ErrorContext => 2 );
if ...

Hola.

Soy nuevo en esto de los servicios web y he comenzado con Perl. Ya tengo publicados algunos servicios web en Perl que con un cliente Perl me funcionan bien, pero cuando genero el WSDL para consumir el servicio con PHP, no me funciona bien, o no me funciona nada.

El código que utilizo para generar el WSDL es el siguiente:

#!/usr/bin/perl -w
use WSDL::Generator;
my $init = {
'schema_namesp' => 'http://10.53.9.8:8079/Webservice.xsd',
'services' => ...

Hola, mi duda es si se puede escribir $line=~"$variable", o si hay alguna otra estructura para reconocer una variable en un texto.

El problema surge con este código, ya que en el archivo hay un título para cada estado y la variable $estado va cambiando.

open( $INFO, "$INFO" ) || die "cannot open file $INFO: $!";
open( OUT, ">OUT.$INFO" ) || die "cannot produce file $INFO: $!";

while ( $line = <$INFO> ) { ...

Buenas tardes, tengo una duda. Tengo datos que tienen acentos y al subirlos a la base de datos me sale este error.

DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xf36e2072 at /home/rocco/proyecto/retorno2.pl line 169, <$FH> line 1.

DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xf36e2072 at /home/rocco/proyecto/retorno2.pl line 169, <$FH> line 2.

¿Qué módulo puedo usar para que me lea los acentos?

Muchas gracias...