Foro - Perl en Español

Hola, necesito una ayuda para entender las siguientes líneas:

my $doc = SB::Doc->new($rowss->{id});
my $responsable = $doc->pre(0,1);

La primera línea "my $doc = SB::Doc->new($rowss->{id});" ejecuta una función en un archivo "Doc.pm" en la carpeta perl/lib/SB del servidor.

Ahora, ¿se supone que a la variable $responsable, se le asigna un valor del arreglo que entrega $doc->pre(0,1);?

Mauricio

Estimados.

Necesito me orienten cómo abordar un problema.

Tengo un servidor que envía correo electrónico y en este correo indica el estado de un agente, dice si el agente esta up o down.

Mi objetivo es monitorizar este agente pero de forma automatizada con una aplicación.

Lo que necesito es trasformar ese correo electrónico en un texto plano (.txt) y luego con un script Perl ir a consultar el texto y ver cuáles agentes están ...

Hola, solo quería preguntar si hay alguna función que maneje el portapapeles, por ejemplo insertar alguna cadena en el portapapeles, etc.

En Windows se podría hacer uso de system(clip), pero me es necesario que sea multiplataforma.

Gracias :D

¡Buenas tardes!

Soy nuevo en el foro y como programador, también.

Tengo alguna experiencia en PHP y en Javascript, pero claro, ambos lenguajes no pueden compararse a Perl y lo cierto es que tengo muchas ganas de aprender porque el mundo de la programación me apasiona.

El origen de mi problema es que no puedo ejecutar un script desde mi máquina con el Ubuntu Karmic Koala.

Los pasos que he seguido para ejecutarlo son:
1- ...

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