Foro - Perl en Español

Estimados, tengo el siguiente script para transferir PDF desde un sitio a otro, pero cuando me llegan al otro sitio, llega el PDF en blanco o bien con parte del PDF. Le he dado vueltas al tema y no sé qué puede ser. Desde ya, muchas gracias por su ayuda. Mi script es el siguiente:

#!/usr/bin/perl


use Net::FTP;
use Net::FTP::File;


my $ftp_site = 'ftp.sitio.com';
my $port = '21';
my $ftp_dir = 'PDF';
my $ftp_user ...

Estimados, tengo un problema. En el siguiente script pretendo buscar los archivos PDF de unas facturas que estoy rescatando de la BD. El tema es que si bien en la BD tengo varios números de factura el script siempre me imprime el primer PDF que encuentra:

#!/usr/bin/perl

use DBI;
use File::Find;

my $database = "FACTURAS";
my $data_source= "DBI:mysql:$database;" ;
my $username = "usuariodb";
my $password = "db2016";

my $sql = DBI->connect($data_source,$username,$password)
or die "Couldn't ...

Buenos días.

Quiero hacer un CGI que, entre otras cosas, a partir de un string, y con un patrón que yo calculo, me devuelva otro.

Como el CGI hace varias cosas, yo en un momento dado lo que quería era estructurar la programación haciendo una llamada dentro del propio CGI a una función que me devuelva el string "calculado".

Algo así como:

my $cadena_calculada = calcula_cadena($cadena);

El problema que tengo es a la hora de ...

Introducción a Perl 6, por fin traducido a español.

http://es.perl6intro.com/

Hola. ¿Los componentes reutilizables son los módulos en Perl? ¿Los objetos con funciones usando POO en Delphi y PHP?

Hola, buenos días.

Estoy tratando de enviar un mensaje (a través de CGI) con un enlace, pero el enlace no me llega correctamente al buzón.

El enlace lo monto de la siguiente manera:

my $enlace = " https://www.servidor.com/directorios/ca ... dimientos_" . $ano . "/" . $expediente . ".zip";

Siendo

my $ano=`date +%Y`;

y

$expediente = $query->param("expediente");

bueno, pues el mensaje me llega:

--------------------------
Puede descargarlos en este enlace: ...

Hola a todos de nuevo, estoy añadiendo código a un script (el mismo que he mostrado en ocasiones anteriores) y estoy tratando de aprender a manejar hash y array.

El asunto es así: paso una expresión regular a varios array y luego efectúo varias modificaciones en esto, eliminar duplicados y quitar líneas en blanco.

El tema es que debo hacerlo por cada array que se presenta, es decir, escribo varias veces un mismo código (entre ...

Hola.

Tengo un pequeño script donde pretendo obtener la salida de un comando para después mostrarla por pantalla.
El script es muy sencillo.

$t = new Net::Telnet (Timeout => 10,Port => 23, Prompt => '/.*#/' );
$t->output_log('debug.log');
$t->open("$item");
$t->max_buffer_length( 104857600 );
$t->waitfor(String => "Username:");
$t->print("$item");
$t->waitfor(String => "Password:");
$t->print("$item");
$t->print("terminal Length 0");
@output = $t->cmd("$item");
$t->print(" ");
$t->print("logout");
$t->close;

foreach (@output) {
print $_;
}


La salida que obtengo es
$ perl ShowPort.pl ...

Bueno, mi queja viene en que para la compañía donde trabajo, lo hacen con plataformas de moda, por decirlo así, hechas en PHP, como el Moodle... ¡PERO ESTOY YA ABURRIDO! y quiero decirles que el mismo CGI-Application como un ligero framework es más versátil a la hora de hacer algo que la programación de muchos sistemas hechos en PHP...

Año 2016 y aún veo trozos de código PHP en una plantilla HTML. Uno quiere hacer ...

Hola a todos, vuelvo al foro con un dilema que no he logrado resolver usando Google y algunos hilos del foro.

Me explico: Con el siguiente script:
#!/usr/bin/perl
# acotar-expresion-regular-t8380-30.html
# ajustar-nueva-regla-a-script-t8698.html
use v5.22;
use autodie; # muere si ocurre un error
use File::Basename; # separa el archivo de entrada

### Argumentos ---------------------------------------------------------
@ARGV == 1 or die "Uso: $0 <archivo TeX ...