Foro - Perl en Español

items => !$items ? : $items,


¡juas, juas! ¿Por qué rayos lo usarían? Es lo que me genera duda, ¿cuándo uno podría usar eso ahí?. No entender.

Hola. He utilizado las variables de sesión desde el método POST y todo bien, PERO ahora las necesito utilizar desde un HREF, el cual estoy ubicando como columna en cada registro mostrado por un select y necesito utilizar las variables del registro que el usuario seleccione.

¿Es posible hacer esto o tengo que enviar los datos del registro seleccionado como parámetros al script para manipular dichos datos?

Gracias y saludos a todos.

Hola, Perleros.

Estoy tratando de descargar imágenes de un sitio web mediante un código que realizó explorer en su momento. Este descarga la imagen pero no puedo abrirla (dice que no se puede cargar).

Les pido orientación al respecto. Muchas gracias.

PD: El código que muestro no es el original, lo modifiqué con ejemplos de Internet.
#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $url = 'https://www.esrl.noaa.gov/psd/cgi-bin/data/composites/comp.day.pl?var=Sea+Level+Pressure&level=1000mb&iy%5B1%5D=&im%5B1%5D=&id%5B1%5D=&iy%5B2%5D=&im%5B2%5D=&id%5B2%5D=&iy%5B3%5D=&im%5B3%5D=&id%5B3%5D=&iy%5B4%5D=&im%5B4%5D=&id%5B4%5D=&iy%5B5%5D=&im%5B5%5D=&id%5B5%5D=&iy%5B6%5D=&im%5B6%5D=&id%5B6%5D=&iy%5B7%5D=&im%5B7%5D=&id%5B7%5D=&iy%5B8%5D=&im%5B8%5D=&id%5B8%5D=&iy%5B9%5D=&im%5B9%5D=&id%5B9%5D=&iy%5B10%5D=&im%5B10%5D=&id%5B10%5D=&iy%5B11%5D=&im%5B11%5D=&id%5B11%5D=&iy%5B12%5D=&im%5B12%5D=&id%5B12%5D=&iy%5B13%5D=&im%5B13%5D=&id%5B13%5D=&iy%5B14%5D=&im%5B14%5D=&id%5B14%5D=&iy%5B15%5D=&im%5B15%5D=&id%5B15%5D=&iy%5B16%5D=&im%5B16%5D=&id%5B16%5D=&iy%5B17%5D=&im%5B17%5D=&id%5B17%5D=&iy%5B18%5D=&im%5B18%5D=&id%5B18%5D=&iy%5B19%5D=&im%5B19%5D=&id%5B19%5D=&iy%5B20%5D=&im%5B20%5D=&id%5B20%5D=&monr1=5&dayr1=1&monr2=5&dayr2=1&iyr%5B1%5D=2018&filenamein=&plotlabel=&lag=0&labelc=Black+and+White&labels=Contours+%28Black+and+White+Only%29&type=1&scale=&label=1&skip_vector=&cint=&lowr=&highr=&istate=0&proj=Custom&xlat1=-60&xlat2=-10&xlon1=240&xlon2=330&custproj=Cylindrical+Equidistant&level1=1000mb&level2=10mb&Submit=Create+Plot';

my $file = 'slp.gif';

getstore($url, $file);

Tengo presente el siguiente error DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xfa. El error se presenta cuando llamo el script desde un menú de html enviando lo siguiente: DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xfa.

Al ejecutar el script directamente no envía el mensaje de error y realiza el INSERT correctamente, lo que supongo que el problema es desde el menú donde lo estoy llamando o ¿qué ...

Hola, estoy guardando archivos vía web desde Perl y efectivamente los guarda pero con 0 bytes, el panorama es el siguiente:

El directorio se encuentra creado con los siguientes permisos:
drwxrwxrwx 4 root root 26 Jul 10 15:03 Directorio_Destino

En el directorio anterior creé dos directorios más:
drwxrwxrwx 5 root root 51 Jul 12 13:37 D1
drwxrwxrwx 4 root root 36 Jul 12 14:37 D2

En los directorios anteriores se crean directorios de acuerdo ...

• A Complete Course of the Raku programming language
• Aprende X en Y minutos, donde X=Perl6
• Prueba Perl 6 sin instalar nada
• Perl6Intro
• Try Perl (en inglés) Pruebas sencillas
• Perltuts
• Piensa en Raku (libro)
• Perl 6 Tutorial Un vídeo-tutorial completo en 80 minutos.

• Prueba Perl 5 sin instalar nada (glot.io)
• Prueba Perl 5 sin instalar nada (tutorialspoint.com)
• Perltuts
• Aprender Perl

Aprende X en Y minutos, donde X=Perl6, en español

Hola, amigos, tengo el siguiente script para capturar un endpoint en JSON.

#!/usr/bin/perl

use utf8::all;
use JSON;
use LWP::Simple;
use Data::Dumper;

my $ua = LWP::UserAgent->new;

my $server_endpoint = "http://comercio.comerxxx.com/"; #URL contains actual URL

# set custom HTTP request header fields
my $req = HTTP::Request->new( GET => $server_endpoint );
$req->header( 'content-type' => 'application/json' );
$req->header( 'Accept' => 'application/json' );
$req->header( 'secret' => 'secreto' );
$req->header( 'dateDesde' => '2018-06-10' );
$req->header( 'dateHasta' => '2018-06-30' );

my ...

y Perl 5, en la web de https://glot.io/

Perl 5

Perl 6