Foro - Perl en Español

Hola, buenas a todos.

Este es el texto que procesa el script:
<a class="pais" href="">USA</a></td>
<td style="font-weight: bold; text-align:right;background-color:#FFEEAA;">dato USA</td>
<a class="pais" href="">Spain</a></td>
<td style="font-weight: bold; text-align:right;background-color:#FFEEAA;">dato Spain</td>

Pongo el código:

my $i = 0;
my @total = ();

@regexp = (".*pais.*>(.*?)<\/a",".*FFEEAA.*>(.*?)<\/t");

procesar ($texto, \@regexp);

sub procesar{
my ($content,$regexp) = @_;
my @lineas = split "\n" , $content;
my @reg = @{$regexp};
foreach (@lineas){
if($_ =~ m{$regexp->}o){
$total = $1;
$i++; ...

Hola, buenas a tod@s.

Pongo el código y me explico:
Este es el texto que procesa el script.

<a class="pais" href="">USA</a></td>
<td style="font-weight: bold; text-align:right;background-color:#FFEEAA;">dato USA</td>
<a class="pais" href="">Spain</a></td>
<td style="font-weight: bold; text-align:right;background-color:#FFEEAA;">dato Spain</td>


y este parte del script


my $i = 0;
my @total = ();

@regexp = (".*pais.*>(.*?)<\/a",".*FFEEAA.*>(.*?)<\/t");

procesar ($texto, \@regexp);

sub procesar{
my ($content,$regexp) = @_;
my @lineas = split "\n" , $content;
my @reg = @{$regexp};
foreach ...

Acaba de salir la versión 2020.10 de Rakudo, la principal implementación del lenguaje Raku (anteriormente conocido como Perl 6).

https://raku.org/

Buenas tardes.

Estoy intentado leer un archivo pdf que pesa 44.2 MB. Me genera el siguiente error:

Can't call method "val" on an undefined value at C:/Perl64/site/lib/PDF/API2.pm line 909.

A continuación comparto el código que estoy utilizando para leer el archivo pdf.

use PDF::API2;
use PDF::API2::Page;

$pdfOriginal = PDF::API2->new;
$pdfOriginal = PDF::API2->open($rutaArchivo);

my $count = $pdfOriginal->pages();


La variable rutaArchivo contiene la ruta y el nombre del archivo que se está usando.

Luego estoy ...

Dejo el enlace a la entrevista: https://www.perl.com/article/the-perl-ambassador-damian-conway/

Hola, amigos, tengo este problema.

Lo he intentado de varias formas pero no consigo nada. Es un API público que da el tipo de cambio (en este caso de marzo 2020 en Perú).

El API es https://estadisticas.bcrp.gob.pe/estadi ... 2020-3/esp

La respuesta puede darse en JSON, XML o TXT (sólo cambiándolo en la URL). Lo que yo deseo es conseguir poner en una variable el resultado, es decir el tipo ...

¿Cómo puedo validar en Perl que el valor de una variable está dentro de un conjunto posible de valores?

Posibles valores: 'AB' or 'BC' or 'TO'

if my $variable eq ('AB' or 'BC' or 'TO') { # ¿ES posible ?

}

¡Gracias!

Buenas tardes, al grabar registro en PostgreSQL envía el error:

DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xd3 0x4e

He intentado corregirlo pero no encuentro la manera, el CGI está recibiendo variables vacías, lo cual es correcto pero al momento de ejecutar el SQL, PostgreSQL convierte los valores a NULL por lo que PostgreSQL envía el error mostrado anteriormente.

¿Qué puedo hacer?

Gracias.

Estimados agradecería me indiquen un módulo para abrir, leer un archivo en Excel y pasar los datos a una tabla en una base de datos. Gracias.

Buenos días,

Hoy mi jefe me compartió unos archivos los cuales tengo que mirar, pero me di cuenta que en ese conjunto de archivo existe unos cuantos con la extensión .PST que lo que entiendo son archivo exportados por Outlook en mi caso y contienen archivos de correo (o msg).

Mi duda es, si hay alguna manera de leer estos archivos .PST con Perl y extraer estos correos que están contenidos en este archivo.

Muchas ...