Foro - Perl en Español

Hola a todos nuevamente. Estoy tratando de capturar una serie de listas de un archivo latex, de la forma:
\begin{itemize}

\item a
\item b
\item c

\begin{itemize}
\item d
\item e
\end{itemize}

\item f
\item g

\end{itemize} definidas por \begin{itemize}...\end{itemize} y dejarlas dentro de Corta ... Aqui. Como las marcas que busco pueden estar unas dentro de otras y, de ser así, siempre están balanceadas, he tratado de capturarlas con una expresión regular recursiva ...

¡¡¡Hola de nuevo, Perl en Español!!!

Publico acá de nuevo porque tengo un problema de ingreso de datos a base de datos MySQL (uso XAMPP).

Ingreso 7 datos a la tabla (6 ya que el id es autogenerado): año, mes, comercializador, código, usuario, energía.

Pero cuando los datos están tildados o tienen 'ñ' se guardan en la base de datos símbolos ilegibles.


Los caracteres que guarda son: en vez de ÁÉÍÓÚÑáéíóúñ guarda ÁÉÍÓÚÑáéíóúñ


OJO: Este ...

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

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