Foro - Perl en Español

Necesito generar un pdf y colocarle unas marcas de agua a un documento que ha subido el usuario en formato Word. Yo sé que generar el pdf desde un html es posible. De hecho, lo puedo hacer. Lo que no sé es cómo convertir el Word en html para luego pasar a pdf.

Así puedo generar el pdf desde un html:


my $pdf = "prueba_externo.pdf";
print $root_htmldoc . "<br>";
print $root_path;
my $commandline ...

Hola, me surgió el siguiente problema.

Recibo en un JSON unos parámetros de configuración para conectarme a un sftp o ftp en los cuales debo recorrer un directorio y colectar los archivos que tengan un determinado nombre. Para esto uno de los parámetros en el JSON es una regExp.

En una parte del código tengo lo siguiente:

foreach my $file (@files) {
if ( $file =~ $self->{regExp} ) {
print "$file machea con: " ...

Utilizando el siguiente script:

my $host = '192.168.2.xxx';
my %args = (
user => "user",
password => "pass",
debug => 1,
ssh_args => {
protocol => 2,
},
);
$sftp = Net::SFTP->new($host, %args) or die("FTP Error: $@");

se queda esperando con este mensaje:

Waiting for NEWKEYS message.

y después de un tiempo:

Received disconnect message: Disconnecting
at /usr/local/share/perl/5.10.1/Net/SSH/Perl/Kex.pm line 103.

¿Podrían decirme cómo solucionarlo?

Buscando encontré esta publicación: https://rt.cpan.org/Public/Bug/Display.html?id=48338 ...

Hola a todos,

Allá va mi consulta: Tengo un texto (ISO-8859-1) como el siguiente:

(at about—110)

Como veis, el guion es de tamaño diferente al de '-'

Al leerlo utilizando la instrucción

open($handleIn,"<:encoding($inputEncoding)",$pathFile);

no detecta bien el valor de '—'

si paso de iso a hex veo que

— tiene un valor de 97
- tiene un valor de 2D

¿Alguna idea? ¡¡¡No sé cómo hacer para que lea bien ese carácter!!!


¡Gracias!

Colegas: buenas tardes, estoy haciendo CGI con Ajax y necesito hacer dependencia entre SELECT de tres niveles. ¿Me pueden orientar al respecto?. Agradezco su atención.

Buenos días, necesito hacer en Perl un script que genere un reporte a partir de una query a la base de datos, y por tanto que muestre un listado. ¿Conocéis algún módulo para ello?? Hasta ahora he visto el PDF::API2, pero me resulta un poco enrevesado. Espero vuestra ayuda.

¡¡Hola!! Aprendí POO y me puse a jugar en Perl, ahora bien... Me sale un error y no sé a qué corresponde, espero algún consejo para poder solucionarlo.

#!/usr/bin/perl

#Modulo MySQL inserta y consultar registros
use warnings;
use strict;
use DBI;
use DBD::mysql;
package MysqlTest;

sub new{
my $class = shift;
my $query={};
bless($query, $class);
}
sub conexion{
my $self=shift;
my($database, $hostname, $user, $pwd)=@_;
$self->{"host"}=$hostname;
$self->{"database"}=$database;
$self->{"user"}=$user;
$self->{"pass"}=$pwd;
my $connect = DBI->connect("DBI:mysql:$database:$hostname", $user, $pwd) ...

Mi problema es que agrego unos datos a una sesión y no tengo problemas,
pero solo en un método en CGI-APP se me presenta un problema, que al imprimir el contenido de esa sesión observo unos hash extraños...

Esta es mi función de agregar.


sub cart_add{
my $self= shift;
my $dbh = $self->dbh;
my $q = $self->query();
my $item = MyApp::Db::Stock::Item->new($dbh);
$item->retrieve($q->param('item'));


my $total = $self->session->param('total_cesta') + $item->{'data'}->{'price'};
my $cesta = $self->session->param('cart');
#die ...

Buenas tardes,

No sé si esta es la sección correcta. De no ser así les pido que lo muevan a donde debo ir. Actualmente en la empresa donde laboro, programo en la plataforma .NET con C#, TransactSQL y ASP.NET, pero estuve leyendo que se puede programar con Perl en la plataforma .NET. Me interesa mucho porque sin duda uno de mis amores es Perl y quiero mostrarlo en mi empresa, quisiera saber si ustedes tienen ...

Buenas a todos.

Tengo un script Perl que ejecuta una query y presenta sus resultados. Esta query se construye a través de los datos introducidos en un formulario en una pantalla previa. Los resultados se presentan en una lista y como el número de elementos puede ser elevado, los he paginado, mostrando en la parte inferior enlaces a cada una de las páginas.

El problema es que si se selecciona otra página, se pierden los ...