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

«El más reciente y exitoso sistema de OOP para Perl, se está haciendo cada vez más veloz.

En el blog de Moose podemos apreciar que se trabaja continuamente en perfilar el consumo de recursos y mejorar el rendimiento de este sistema, que en su última versión (1.15) es un poquito más lento compilando, mientras incluye más código "en línea" acelerando la ejecución de los programas.»

Artículo

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