Foro - Perl en Español

Hola, Perleros de todo el mundo.

Tengo un programa en el que mis usuarios seleccionan de 3 scrolling_lists los campos siguientes de una aplicación:

Carrera Universitaria(BIOLOGIA,HISTORIA,MATEMATICAS,IDIOMAS)
Grado(Primero,Segundo,Tercero,.....,Noveno)
Grupo(A,B,C,D)

Basándome en los dos primeros (Carrera y Grado), yo necesito desplegar en la misma pantalla, las Materias relativas a ese par de argumentos, esto es algo como:

Select materia from materias where carrera='$carrera' and grado='$grado' order by materia

El resultado debería ser un cuarto scrolling_list en el ...

¡¡Hola!!

Nuevamente necesito ayuda, estoy tratando de copiar un fichero de una carpeta a otra y la verdad no sé qué estoy haciendo mal, estoy realizando la prueba con un *.txt, y también necesito pasar carpetas de una ruta a otra en Windows.

#!/usr/bin/perl


use strict;
use File::Find;
use File::Copy;

my $dir = 'C:\\Users\\pgaviri\\Desktop\\Probar.txt';
my $path = "C:\\Users\\pgaviri\\Documents";

find(\&imprimir_archivo, $dir);

sub imprimir_archivo{
my $elemento = $_;
print "$elemento\n" if -f $elemento;
}

copy("Probar.txt", $path);


Mil ...

Necesito ayuda con esta tarea que me dieron en mi instituto, soy novato en Perl y me gustaría saber si me pueden ayudar.

Agradecido enormemente.

Tarea

Crear un script de shell que sea capaz de hacer copias de seguridad de todos los archivos de programas C (archivos de texto con extensión .c) que el usuario tenga dentro de su estructura de directorios (/home/<username>), en un directorio que se entregará como parámetro.

Ejemplo: Prompt> ./tarea1.sh /home/programas/pepito ...

Hola,

Tengo unos reportes en una interfaz WEB (HTML) los cuales entregan unos resultados dependiendo los filtros de este reporte.

La consulta las hago a Oracle y algunas veces se demora demasiado ya que tengo unos group by y periodos de fechas extensos.

Consulta:

¿Cómo puedo monitorizar el tiempo de respuesta de Oracle y si pasa cierto rango de tiempo detener la consulta, para poder ejecutar un script que mande el reporte a través de ...

Hola a todos,

Estoy buscando un módulo que me permita pasar valores de variables desde Perl a scripts de R.

Encontré algunos pero no daban muy buena impresión en ciertas páginas dedicadas Perl, decían que no eran muy fiables en general...

Al final me he quedado con este, pero no entiendo muy bien en el manual cómo se haría la interpolación de variables de Perl a R.

¿Alguien ha utilizado este módulo alguna vez y ...

Tengo un código que uso el try-catch

if ( $sospechoso ne "SI" && $id_interesado ) {
try {
$self->add_log( 'info', "Se ejecuto el envío del formulario a un interesado id: " . $id_interesado );
$self->envio_link_form_to_interesado( $id_interesado, $datosC->{'operacion'} );

# die 2558;

}
catch {

#Si hay falla notificamos el warnigs
%data = ( estado => 3, );

my ( $stmt, @bind ) = $sql->update( 'configuracion_spider', \%data, 'id_conf = ' . $q->param('id_conf') );
$sth = ...

Hola, segun voy avanzando en esto de Perl me van surgiendo dudas que os expongo.

Tengo un fichero data.csv (que anexo), que después de tratarlo con Perl, creará varios ficheros xml que luego se convertirán en gráficos.

En este csv, se recogen varios valores, digamos principales:

campo(0) : "value" valor del dato, lo que aparece en la gráfica
campo(1) : "Timestamp" tiempo Eje X (día)
campo(2) : "MetricId" Eje Y (8 valores diferentes, agrupados en ...

Buenas a todos.

Quiero chequear el asunto de los correos de una determinada carpeta de mi buzón para buscar una cadena en concreto y si la encuentra lanzar otra operación.

Estoy probando con:

http://search.cpan.org/~plobbes/Mail-IM ... Client.pod

pero mi nivel en Perl es bajo y me pierdo.

¿Voy por el camino adecuado? ¿Existe algún módulo más fácil para hacer lo que quiero?

Saludos.

Buen día, señores.

Espero que me puedan ayudar en este asunto.

¿Existe alguna forma de capturar el STDOUT o STDERR en una variable y volcar su contenido en alguna variable? Me explico...

DBD::mysql::db do failed: Incorrect number of arguments for PROCEDURE ihome.INSERT_QUEUE_JOIN; expected 7, got 8 at /usr/lib/perl5/site_perl/5.8.8/DB_UTIL.pm line 171.

Este es un error que se ve desde el STDOUT o STDERROR. Mi idea es colocarlo en una variable para poder sacar un log más ...

Saludos. Bueno, como verán estaba programando e hice un script así:

#!usr/bin/perl
$animals = "animals";
$help = "help";
print "~>";
chomp( $usr = <> );
if ( $usr eq $animals ) {
print "here animals!\n";
}
if ( $usr eq $help ) {
print "Here the help\n";
}
else {
print "$usr:command not found\n";
}


Todo me funciona bien, pero me falla una cosa: al escribir "animals" pasa esto:
~ $ perl script.pl ...