Foro - Perl en Español

Hola. Resulta que tengo este formulario
<form method="GET" action = "index.pl">
<p align="center"><select size="1" name="mes" class="boton1">
<option>Mes</option>
<option value="01">Enero</option>
<option value="02">Febrero</option>
<option value="03">Marzo</option>
<option value="03">Abril</option>
<option value="04">Mayo</option>
<option value="06">Junio</option>
<option value="07">Julio</option>
<option value="08">Agosto</option>
<option value="09">Septiembre</option>
<option value="10">Octubre</option>
<option value="11">Noviembre</option>
<option value="12">Diciembre</option>
</select><select size="1" name="D3" class="boton1">
<option>Año</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
</select><input type="submit" value="Ir" name="B5" class="boton1"></p>
</form>Y el código Perl es este#!/usr/bin/perl

use CGI qw(:all);
use lib('../modulos');
use CGI::Carp qw(fatalsToBrowser); ...

Estimados profesionales,

Les estaría muy agradecido si me pudieran proporcionar empresas (de calidad) que den cursos presenciales de Perl en Madrid.

Gracias por adelantado

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

Hola estoy usando el módulo HTML::Calendar

y este es mi código, algo muy simple
#!/usr/bin/perl
use CGI qw(:all);
use HTML::Calendar::Simple;

print header;


my $cal = HTML::Calendar::Simple->new; # This month, this year
$cal = HTML::Calendar::Simple->new({ 'month' => 9,
'year' => 2008});


$cal->pin_up("http://zephiroclub.net/varios/cinesu.gif");
$cal->daily_info({ 'day' => 1,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => ,
});
$cal->daily_info({ 'day' => 2,
'day_link' => "http://www.zephiroclub.net/WebAPP/images/uploads/NarutoShippuden51.jpg",
$type2 => $info2,
'link' => , ...