Foro - Perl en Español

Hi,
this entry shows how to query footprintDB from a Perl script.
First, make sure you have module SOAP::lite, which you can install with: $ sudo cpan -i SOAP::Lite. The following Perl5 code shows how to make all dna, protein and text queries, obtaining XML output in all cases.
Note that if you register you can query also your private databases (see details in documentation). Also note that protein searches are time consuming, and if ...

Buenas tardes, foro.

Tengo un objeto de tipo 'Gtk2::TreeIter' y quisiera saber la forma de recorrerlo recursivamente para poder determinar los valores que se guardan dentro.

Ya intenté con Data::Dumper y sólo me tira $VAR1 = bless( do{\(my $o = '94267936158336')}, 'Gtk2::TreeIter' )

Saludos y gracias de antemano.

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

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

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

¿Qué tal? Buenas tardes.

Estoy buscando la existencia de and al final de una cadena $sql:

$sql="SELECT local,eq,descrip_mantto,atend,f_inicio,f_termino ,lic,edo,actividad from t_manttos tm, c_manttos cm where tm.tipo_mantto=cm.tipo_mantto and tm.local='TMD' and f_inicio::date between '2020-01-01' and '2020-07-31'";

La búsqueda la realizo de la siguiente manera:
if ($sql !=~ /$and/) {
print "EXISTE";
}

RESULTADO: Me arroja que EXISTE pero eso es falso porque la última palabra es una fecha.

Agradeceré de su gran apoyo para descubrir ...