Foro - Perl en Español

Creo un archivo xls con el módulo Spreadsheet::WriteExcel. Puedo verlo y se crea bien. Mi problema es que quiero abrir ese archivo desde un cgi, y este no se abre.


#!/usr/bin/perl -w

use strict;
use CGI ':all';
use Spreadsheet::WriteExcel;

# Suponiendo creado OK el archivo prueba.xls, Luego:

open (FILE, "/tmp/archivos_xls/prueba.xls");
local ($/);
my $file = <FILE>;
close (FILE);

print "Content-type: application/vnd.ms-excel\n";
print "Content-Disposition: attachment; filename='prueba.xls'\n";
print "Content-Description: File to download\n\n";

print $file;


...

Hola, soy nueva en el foro y en Perl... Estoy haciendo un curso y llegamos al punto "Módulos para aplicar expresiones regulares" y lo primero que mandan es instalar el módulo Regexp::Common ejecutando lo siguiente:

sudo perl -MCPAN -e "install Regexp::Common"

La cosa es que lo ejecuté desde varios directorios y siempre me da el mismo error:

"sudo" no se reconoce como un comando externo o interno, programa o archivo por lotes ejecutable.

Trabajo con ...

Quiero que el código (literal) que se muestra debajo de las barras se expanda (que ocupe el largo de todas las barras, de punta a punta) y no logro hacerlo con ayuda de las características del módulo :?



Cómo pueden ver en la documentación del módulo, las características me permiten los siguientes cambios:

font "large" Font (**) for the text at the bottom
font_margin 2 Pixels ...

Buenos días, tengo el siguiente archivo que es donde valido la sesión de usuario de una aplicación web:

#!/usr/bin/perl
binmode STDOUT, ":encoding(UTF-8)";
use lib '../Modulos/';
#use strict;
#use warnings;
#use diagnostics;

use login;
use CGI::Session;
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
print error;


my $cgi = CGI->new();
$cgi->charset('UTF-8');


my $session = CGI::Session->new("driver:File", $cgi, {'Directory'=>'/tmp/'})
or die CGI::Session->errstr;

$session->expire('+10s'); ##Tiempo que vence la sesión
## Enviamos la cookie de sesión al usuario
print $session->header; ...

Estoy pensando en hacer un programa para escuchar la radio 100.5. El problema es que no tengo idea de cómo hacerlo, por eso quería preguntar si había algún módulo para eso en Perl.

¿ Alguien me puede aclarar ?

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

Tengo el siguiente código. El problema es que devuelve algo sin forma.

use Image::Caa;
use Image::Magick;


# load an image

my $image = Image::Magick->new;
$image->Read('asciiuno.jpg');


# display it as ASCII Art

my $caa = new Image::Caa();
$caa->draw_bitmap(0, 0, 40, 20, $image);


y devuelve esto (es más largo):

←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[
37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←
[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40
;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37
;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0
m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6
m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m
←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m
8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;
40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[
37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←
[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40
;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37
;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0
m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6
m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m
←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6mG←[0m←[37;2;40;6mK←[0m←[37;1;40;6mS←[0m←[
37;2;40;6mf←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←


No sé ...

Hola nuevamente, por acá solicitando ayuda.

Estoy conociendo Win32::ChangeNotify y quisiera saber si hay alguna forma de saber exactamente qué archivo o directorio cambió.

No conozco mucho de Perl por eso pido ayuda. Busqué ejemplos pero no encuentro alguno parecido a lo que yo quiero hacer.

¡Disculpen las molestias!

Este ejemplo encontré, hice un print $notify pero me muestra Win32::ChangeNotify=SCALAR(0x468b74), y la verdad no entiendo cómo mostrar qué es lo que se modificó...

#!c:/perl/bin/perl.exe ...

¡¡ Hola !!

He usado en varios scripts el módulo de Net::SNMP, pero ahora me he puesto a leer
su documentación y no termino de entender la opción de non-blocking.

¿Para qué te podría interesar seguir con el flujo del programa?

Entendería que si usas threads tenga sentido pero ¿en un programa "normal"?

Saludos
Javi