Foro - Perl en Español

Hola, primeramente, felicidades por el foro, le he echado un vistazo y está muy bueno.

Verán, ando aprendiendo Perl, y estoy haciendo un pequeño script para practicar "tr" que lo que hace es reemplazar un carácter por otro.

Imaginados que tengo:

#! usr/bin/perl
$string=<STDIN>;
print "\n $string = ";
$string=~ tr/hola/adios/;
print "$string";

Este código se supone que reemplazaría si encuentra la cadena 'hola' por 'adios'. Pero ¿y si yo necesito hacer algo más ...

Consulta: necesito extraer de un texto una dirección y altura.

Ejemplo: "Avenida independencia al 1400, se corto la avendia"

Necesito una expresión regular en Perl que sea:

<avenida|av.>+<independencia>+<la|los|al>+<numero>

Si alguien podría ayudarme, le estaría eternamente agradecido.

Saludos
Sebastian

Buenas, es mi primer post en el foro, como así también mis primeros pasos en Perl. Si bien tengo conocimientos básicos sobre C y Bash, me decanté por Perl para hacer algunos scripts para Conky por el hecho de conocer algo nuevo y porque he visto varios scripts bastante completitos realizados con este lenguaje.

Ahora si voy de lleno a mi consulta. La cuestión es que estoy realizando un script que me informe el modo ...

Saludos cordiales.

Espero me puedan ayudar con este problemita que traigo:

He intentado hacer un script el cual me renombre varios archivos .XML, el cual el nombre de uno de los archivos es TCH850701RM1_FE38530.XML, quiero quitar TCH850701RM1_ y debe quedar con el nombre: FE38530.XML.

¡De antemano les agradezco la atención brindada!

Hola, me llamo Alain y estoy traduciendo un programa de Perl a Fortran, y hay varias cosas que me confunden y he buscado en el foro y en los tutoriales y algunas cosas las he aclarado pero hay otras en las que no encuentro nada.

Esta vez es sobre este trozo de código

@refp = (\$fracs);

Tembién he encontrado esto

@refp = (\$fracs, \$cltime);

Según yo, refp es un array que apunta a fracs. ...

Tengo
print $q->redirect('http://www.google.com');

resulta que no me funciona y en vez de eso lo que me imprime es
Status: 302 Found Location: http://www.google.com

Esto me pasa en algunas partes de mi CMS que estoy programando, lo he usado durante todo el sistema, pero ahora que lo usaré para una parte pública resulta que no me funciona... creo que tiene que ver con algo de cabeceras, algo así...

Y a veces solo me imprime '1'.

¿Por qué cuando tengo este código?
foreach my $num($pg->{numbers_of_set}) {
push(@loop_data, $num);
}

push(@loop_data, "4");

el dumper me arroja esto.
$VAR1 = ;
$VAR2 = '4';

Algo similar me pasa cuando quiero agregar hash:
# $pg->{numbers_of_set} = ; esta variable solo tiene 3
foreach my $num($pg->{numbers_of_set}) {
my %row_data; # get a fresh hash for the row data
$row_data{NUMBER} = $num;
push(@loop_data, \%row_data);
}

push(@loop_data, {NUMBER => '4'});


$VAR1 ...

Hola, tengo un problema con el siguiente código:

@eee = ("c","c");
$normal = "hola";

mandar(@eee,$normal);


sub mandar {
print $_;
print $_;
}
<STDIN>;

Me debería mostrar las dos variables pero no me la muestra. ¿Por qué existe ese
problema cuando se mezcla con un array? Y, ¿cómo lo arreglo?

Hola,

Tengo una archivo que presenta el siguiente formato.

Data1 (1.2),(7.8),(8.5),(10.5)
Data2 (5.3),(5.6),(56.7),(78.6)

Yo quisiera recuperar toda la información a partir del primer "(" y guardarla en un arreglo.

Para eso escribí if(@arreglo) =~ m/\(/
Perl toma el paréntesis como un paréntesis real y no como un patrón.

¿Podrían decirme cómo puedo indicarle a Perl que este "(" es un patrón y no un paréntesis?


Muchas gracias.

Hola, necesito instalar el módulo perl-XML-LibXML-Common y al hacerlo me sale el siguiente mensaje:

$ perl -MCPAN -e 'install perl-XML-LibXML-Common'

Warning: Cannot install 0, don't know what it is.
Try the command

i /0/

to find objects with matching identifiers.

¿Quiere decir esto que este módulo no forma parte de CPAN?

Gracias.

D.

EDITADO:

Me respondo yo mismo: el comando está mal escrito...
$perl -MCPAN -e 'install XML::LibXML::Common'

Perdón por el error.