Foro - Perl en Español

Creé un módulo llamado PerlEasyCar

Es simple
package PerlEasyCart;

use strict;
use warnings;
use CGI::Session;


our $VERSION = '0.01000_13';


my $session = new CGI::Session();
use vars qw($VERSION @EXPORT);

require Exporter;

@EXPORT = qw(
addItem
items
);

sub new{

my ($class, @args) = @_;
my $self = {};
bless $self, $class;
return $self;
}




sub addItem{

my ( $self, $id, $cantidad ) = @_;
#my $hash = $session->param('productos');
#$hash->{$id} = $cantidad;

$session->param('prd-'.$id,$cantidad);


$session->flush();
return 1; ...

Muy buenas,

el problema que os voy a contar es bastante extraño, y la verdad es que no tengo ni idea de lo que lo puede estar provocando.

Resulta que tengo un programa que llama a 3 rutinas distintas, cada una carga un fichero y lo guarda en un vector. De esta forma:

open $f, '<:encoding(Latin-9)', "fichero.dat";

while ($linea = <$f>){
push(@vector,$linea);
}
close $f;

El caso es que solo una de estas tres rutinas ...

Muy buenas a todos,

estoy haciendo un programa que carga una serie de expresiones regulares desde un fichero, y va analizando un texto línea por línea mirando si encuentra algún patrón que cumpla alguna expresión regular. Por ejemplo, un caso concreto:

Texto a analizar: Mi teléfono es 123 459284
Expresión regular actual: \b^{2,3}??{6,7}$
Texto de salida: Mi teléfono es ---
Texto eliminado: 123 459284

Siguiendo el ejemplo, el dato que me interesaría "guardar" es el ...

¿Por qué cuando tengo este código?
foreach my $num($pg->{numbers_of_set}) {
push(@loop_data, $num);
}

push(@loop_data, "4");

el dumper me arroja esto.
$VAR1 = ;
$VAR2 = '4';

Algo similar me pasa cuando quiero agregar hash:
# $pg->{numbers_of_set} = ; esta variable solo tiene 3
foreach my $num($pg->{numbers_of_set}) {
my %row_data; # get a fresh hash for the row data
$row_data{NUMBER} = $num;
push(@loop_data, \%row_data);
}

push(@loop_data, {NUMBER => '4'});


$VAR1 ...

Hola.

Actualmente estoy generando un archivo Excel con Spreadsheet::WriteExcel. Dicho Excel cuenta con varios libros. Este método no es del todo eficiente ya que se está quedando colgado al generarlo.

¿Alguien por ahí sabe cómo generarlo usando otro método?

Muchas Gracias.

Tengo este código
package ShoppingCart;
use Data::Dumper;

$q = new CGI;
if ($q->param('mode') eq "plugin"){

if ($q->param('action') eq 'editar'){
&editar;
}else{
return "dsdasdsdasda";
};

if ($q->param('action') && $q->param('action') eq "actualizar"){ &editar; };
if ($q->param('action') && $q->param('action') eq "nuevo"){ &editar; };
if ($q->param('action') && $q->param('action') eq "guardar"){ &editar; };
if (!$q->param('action')){ &admin };

$q->param('action');
}else{
&run;
}

Llamo la siguiente URL:
http://127.0.0.1:81/programa-ayllu/admin/index.pl?mode=plugin&action=editar&nm=ShoppingCart&id=4

Pero siempre me retorna "editar". Y si coloco
http://www.programaayllu.com/admin/?mode=plugin&action=editareeee&nm=ShoppingCart&id=4

me retorna: dsdasdsdasda

No ...

Hola.

¿Hay alguna forma, que no sea ODBC, para conectar el SqlServer desde Perl? Pregunto esto dado que tengo una aplicación que es bastante lenta. Una de las opciones es cambiar la forma de conectarse, ya que según sé, en general el ODBC puede ser un cuello de botella.

Muchas Gracias.

Resulta que tengo un módulo con CGI-App; de ahí hago una consulta como esta:

my $dbh2 = DBI->connect("DBI:CSV:f_dir=plugins/shoppingcart/data") or die "Cannot connect: " . $DBI::errstr;
my $productos = $dbh2->selectall_arrayref("SELECT * FROM productos ORDER By id Desc",{ Slice=>{} });
return "<pre>". Dumper $productos;


Perfecto, funciona... pero tengo esta línea en el módulo CGI-App...
my $content_plugin = require $self->cfg('plugins')."/".$datos->param('nm')."/".$datos->param('nm').".pm" or die "No se encuentra el modulo";

llama a un módulo y este tiene la misma ...

Hola.

Estoy haciendo mantención a un sitio hecho en Perl+Ajax+SQLServer7. El tema es que el sitio tiene la opción de exportar una consulta a Excel que en algunos casos se cuelga y envía el mensaje:
HTTP/1.1 502 Error de la puerta de enlace o gateway Server: Microsoft-IIS/5.0 Date: Tue, 05 Oct 2010 21:56:32 GMT Connection: close Content-Length: 199 Content-Type: text/html
Caducidad CGI
La aplicación CGI especificada ha excedido el tiempo permitido para procesamiento. El servidor ...

Hola buenas,

Luego de mucho tiempo me topé con un escenario un tanto complejo sobre migraciones de datos...

El tema es así: tengo 800 archivos xls con varias hojas y necesito poder migrarlos a SQL Server.

¿Alguno conoce alguna forma efectiva de poder realizar una migración así desde Perl o tuvo una experiencia similar?