Foro - Perl en Español

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

De nuevo yo molestando.

Tengo este error en el Apache:
root@ubuntu:~/Descargas# /etc/init.d/apache2 force-reload
Syntax error on line 237 of /etc/apache2/apache2.conf:
Invalid command 'PerlOptions', perhaps misspelled or defined by a module not included in the server configuration
...fail!

Línea 237 es la donde dice PerlOptions
# Include the virtual host configurations:
Include /etc/apache2/sites-enabled/

PerlOptions +SetupEnv +GlobalRequest
PerlPostConfigRequire /etc/apache2/startup.perl

No sé por qué será, la verdad no sé configurar Apache, solo estoy siguiendo una guía ...

Acabo de ver la película "La red social «The Social Network»" y, claro, hay que hacer referencia a ella en este foro.

¿Por qué? Pues porque Perl aparece como una herramienta principal para el protagonista, al principio de la película.

Aparece en una escena muy rápida, cuando está editando código con el Emacs. Incluso lo nombra. Creo que es la primera vez que en una película se nombra a Perl. Bueno, también se nombra a ...

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.