Foro - Perl en Español

Hola. Tengo una duda bastante simple pero que me es bastante importante.

Por ejemplo, tengo un archivo de texto con este contenido:
perro
gato
vaca
gallina

Bien, simplemente quiero que si el archivo tiene perro y vaca, por ejemplo, me imprima algo.
Si contiene uno solo es sencillo, uso if ($linea =~ /perro/) {...} pero ¿si quiero perro y vaca? Gracias.

Hola, me hace falta descargar desde una URL.

Ejemplo: http://repositorio_institucional.uci.cu/jspui/bitstream/ident/TD_04668_11/1/TD_04668_11.pdf

El archivo digital "TD_04668_11.pdf"

Esto lo hecho en Perl, pero usando:

#!/usr/bin/perl
# $url1 = http://repositorio_institucional.uci.cu/jspui/bitstream/ident/TD_04668_11/1/TD_04668_11.pdf

my @URLS = ($url1,$url2,$url3,$url4,..);

foreach my $url (@URLS) {
system("wget -t 1 -T 1 $url &");
}


Lo que me pasa es que cuando son muchas URL, me carga mucho el servidor haciendo las peticiones y no descarga completamente los archivos. ¿Hay algún módulo de Perl que ...

Hola a todos, a ver si me podéis echar una mano :)

Estoy intentando filtrar URL en un código HTML mediante una expresión regular pero cuando se encuentra con dos enlaces seguidos toma como URL desde la cabecera del primer enlace al cierre del segundo enlace.

Quería evitarlo excluyendo el símbolo ">" dentro de los paréntesis, pero creo que no lo estoy haciendo bien:

while($catalogo ...

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, 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> ) { ...