Foro - Perl en Español

A partir de la versión 5.8 de Catalyst, se está reescribiendo con el framework de Moose.

Entrevista (en inglés) con los desarrolladores.

Navegando por ahí me encontré la noticia de un de programador inglés llamado Gary McKinnon, al cual Estados Unidos está buscando que lo extraditen de Inglaterra por haber hackeado las computadoras de la NASA en el 2002.

Según la NASA el hackeo le causo daños que se acercan a los $700,000usd.

Lo que se me hace interesante de esta historia, son un par de cosas:

1. La primera es que dentro de las herramientas que ...

Si necesitas saber cómo funciona un módulo, o ver ejemplos de uso, solicítalo a continuación, respondiendo a este mensaje.

Buen día, compañero

Estoy tratando de hacer unos archivos XML con la siguiente estructura pero estuve leyendo un par de módulos en CPAN para crear pero no sé cuál usar, y no sé por dónde comenzar. Alguna idea...

*var variable yo lo llamo desde una BD

Si me echan una mano con un ejemplo más o menos así.

Se los agradecería.

Saludos

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<eConnect>
<RMCustomerMasterType>
<eConnectProcessInfo>
<ConnectionString>
conexxion
</ConnectionString>
</eConnectProcessInfo>
<taUpdateCreateCustomerRcd>
<CUSTNMBR>000000239</CUSTNMBR> ...

Saludos, quisiera saber si me pueden ayudar, tengo una función x, a la cual le tengo que mandar diferentes nombres de archivos para que escriba en ellos. ¿Cómo lo puedo hacer ya que no me funciona lo siguiente?

sub imprimir ($a){
open ($a , ">>archivo.txt");
printf $a " $contenido";

}



imprimir (CASA);
imprimir (CARRO);

Yo no sé qué rayos me pasa con este módulo. Resulta que en el PPM no lo muestra para instalar y si tecleo por consola ppm install HTML::CalendarMonth me sale un mensaje que dice no missing packages to install.

Y el problema de cuando lo instalo manualmente dentro de una carpeta obtengo este error:
Software error:
Can't locate DateTime/Locale.pm in @INC (@INC contains: ../modulos C:/Perl/site/lib C:/Perl/lib .) at ../modulos/HTML/CalendarMonth/Locale.pm line 11.
BEGIN failed--compilation aborted ...

Hola, estoy queriendo correr un script para conectarme a una BD mysql pero me sale este error:

Code: Seleccionar todo

C:\Perl>perl xmltest.pl
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains:
C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge.

Instalé el siguiente paquete desde Perl package manager DBD::mysql
¿Qué estoy haciendo ...

Hola,

Necesito filtrar una fecha según un rango especificado, pero, hasta el momento, no lo he logrado.

El código es:


if ( !$fdesde )
{
$fdesde = '01/01/0001';
}
if ( !$fhasta )
{
$fhasta = '31/12/3000';
}

foreach my $res (@result)
{
my $paso = 0;
if ($res->{'DFECHAABONO'} lt $fdesde)
{
$paso = 1;
}
if ($res->{'DFECHAABONO'} gt $fhasta)
{
$paso = 1;
}
if ($paso eq 0)
{
# Puedo imprimir
} ...

Estoy usando el HTML::Template para pasar unos datos y desplegarlos en un select, pero cuando utilizo este código de esta funciónsub obtener_categorias{
my($cliente) = @_;
my $categorias = "../".$cliente."/db/categorias.txt";
my @loop_data = ();
my %loop;
@categorias = kread($categorias,1,0);

foreach $registro(@categorias){

$registro =~ s/\n//g;
($id,$nombre,$privacidad) = split(/\|\|/, $registro);


if ($privacidad == 0){
#$categorias{'CATEGORIA'} = $nombre;
#$categorias{'IDCATEGORIA'} = $id;

$loop{CATEGORIA} = $nombre;
$loop{IDCATEGORIA} = $id;

# push(@loop_data, \%categorias);
push(@loop_data, \%loop);
}
}
print "<pre>";
print Dumper( @loop_data ...

Se trata de hacer un programa Perl que genere todas las combinaciones siguientes:

Code: Seleccionar todo

$data, $datA, $daTa, $daTA, ..., $DATA,
@data, @datA, @daTa, @daTA, ..., @DATA,
%data, %datA, %daTa, %daTA, ..., %DATA

La salida será en columnas de a 4 elementos por fila, separados por un carácter tabulador.