Foro - Perl en Español

Hola.

Resulta que tengo que hacer una especie de visor de imágenes. ¿Uds. no conocen alguna librería que me ayude a desarrollar esto? Explicaré de qué se trata el asunto...

Resulta que hay 2 servidores, uno de aplicación (CentOS v5), y otro Content Manager "servidor de imágenes" (Suse v9)... Inicialmente, se digitalizan documentos y van a parar al servidor de imágenes... yo de alguna manera asocio registros de mi servidor Aplicaciones con mi servidor archivos ...

Jonathan Leto tiene un formulario para que todos aquellos que quieren ser mentores de alumnos para proyectos Perl para el Google Summer of Code 2009 puedan apuntarse.

Hay de plazo hasta el día 13 de marzo.

Hola. Tengo un archivo .pl. Si lo ejecuto me crea un .bat y lo ejecuta pero si lo abro desde el Internet Explorer dentro de la carpeta cgi me crea el archivo .bat y no lo ejecuta si no que lo muestra en el Explorer lo que está dentro del .bat y lo que yo quiero que haga es que se ejecute, ¿cómo puedo hacerlo?

open(ARCHIVO, ">>prueba2.bat") || die "No se pudo abrir el archivo"; ...

Hola,

Tengo un problema al querer hacer una sencilla conexion con Oracle, seguí el tutorial para hacer la conexión que viene aquí en la página, pero me devuelve el siguiente error.

Code: Seleccionar todo

install_driver(Oracle) failed: Can't load '/usr/local/lib/perl5/site_perl/5.8.8/sun4-solaris/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: ld.so.1: perl: fatal: /oracle10g/ora10g/lib/libclntsh.so.10.1: wrong ELF class: ELFCLASS64 at /usr/local/lib/perl5/5.8.8/sun4-solaris/DynaLoader.pm line 230.

¿Alguien tiene alguna idea del porqué me está mandando este error?

Gracias.

¡ Buenas !

El caso es que tengo un fichero con x líneas, cada línea contiene varios datos separados por #, y tengo otro fichero con el primer dato de las primeras líneas del primer fichero y quiero sacar el segundo dato del primer fichero; tengo este código pero solo me saca los datos del primero, los siguientes no:

open(DATOSOFI, "oficina.txt") || die ("No se puede abrir el fichero oficina.txt");
open(OFICINAS, "ofis") || die ("No ...

Hola, amigos:

He borrado por línea de comando una línea de un archivo haciendo...

Code: Seleccionar todo

perl -n -i.bak -e "/3202016/||print" C: \\CASEALERT2.txt

... hasta aquí todo OK.

... pero luego en un archivo.pm hago lo mismo y no me resulta el borrado del archivo (intentado de varias formas posibles)...

#!C:\perl\bin\perl.exe -w
use CGI;

#`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
#open(AN,`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
#close(AN);
#@output = `perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;

system(`perl -n ...

Tengo un problema que es un tanto cuanto complejo.

Resulta que anteriormente yo tenía un formulario web en el cual subía varias imágenes al servidor y guardaba el nombre de las imágenes en una base de datos, con esta información yo generaba una galería para una página de fotos.

Todo está bien pero si se tienen muchísimas imágenes el proceso se hace muy lento, entonces lo que me gustaría sería hacerlo de otra manera.

Por ...

Este es mi código de un procedimiento que llamo con CGI::Application:
sub inmobiliaria{

use CGI::FormBuilder;
my $self = shift;
my $error = shift;
my $datos =$self->query();
my $template;
my $form;
my $pague;


$form = CGI::FormBuilder->new(
name => 'controladorFORM',
method => 'post',
#template => 'templates/sitio/inmobiliaria.html', # Modelo ruta 1
template => $self->load_tmpl('sitio/inmobiliaria.html)', # Modelo ruta 2
type => 'HTML'

);


my @ciudades = ('Cali',
'Bogota',
'Medellin',
'Barranquilla'
);


$form->field(name => 'ciudad',

options => \@ciudades,
value => ...

Hola necesito si alguien me podría decir cómo hago que un archivo se ejecute cuando se cargue Windows; sé hacerlo en batch. Ejemplo:

Code: Seleccionar todo

reg add "HKLM\SOFTWARE\Microsoft\Windows\Current Version\Run" /v "loco"  /d  "%windir%/system32/ff.pl"

pero me gustaría saber cómo hacerlo con el módulo Win32::TieRegistry.

Agradecería si me ayudaran.

Buenas,

Tal vez intento hacer algo extraño en Perl pero busco esto:

use paquete;
$nombreFuncion = "paquete::laFuncion";

$nombreFuncion($parametro);


package paquete
sub laFuncion{
.....
}

¿Alguna idea? Gracias.

Salu2.