Foro - Perl en Español

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.

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' => , ...

Buenas tardes, aquí mi problema, obtengo una serie de datos de un archivo, lo saco en bloque de 30 usando substr y después tengo en estos bloques que buscar si tienen la unión RD y contar cuántas veces.

Veréis los datos son así...

Code: Seleccionar todo

RGEDGRGERGGFFGRFSD

Yo tenía pensado esto...
my $contador_RD = $bloque =~ tr///;

pero esto me da tanto las R como las D estén o no juntas.

Cómo puedo hacer para que me busque ...

Estoy trabajando con CGI::Session y CGI::Ajax. Tengo una aplicación con combos(Select) cuyos datos a desplayar dependen uno de la selección hecha en el otro. La carga de los combos es dinámica y dependen de consultas a una base MYSQL.

La aplicación usando Ajax funciona, pero cuando le incorporo la parte de sesiones deja de funcionar. La sesión NO la trabajo con Cookies, obtengo un id de session $sid, y luego lo envío entre una aplicación ...

Buenas.
Les cuento como es mi idea... y después me dicen.
La cosa es así. Vi el reactable y me asombró. Pero entendí que el entorno visual es lo mas difícil y hay que programarlo. El tema es que no se programar. La duda es si puedo programar el entorno visual con Perl y qué tan difícil puede ser aprender. No tengo una limitación en mi mente para que me digan que sin nociones no ...

Saludos, me pueden ayudar, estoy recorriendo un archivo, del cual tengo que sacar un resumen, no sé si existe alguna función, o lo tengo que meter a una matriz, les mando un ejemplo de como está el fichero:

Líneas que trae el archivo:
49204032 00000 45.40 20080505
49204032 00000 45.40 20080505
49204032 20000 45.40 20080505
49204032 20000 45.40 20080505
49204032 20000 45.40 20080505
49204030 00000 45.40 20080505
49204030 00000 45.40 20080505
49204030 00000 45.40 20080505 ...

El Movable Type no está desarrollado 100% en Perl, por lo menos ahora vi que usan el motor de Smarty...

No sé si alguien me explica el porqué de este cambio... que puede tener ese motor que no ofrezca Perl... :shock:

La verdad... aunque el articulo es viejo... pero algo se debería hacer, ¿no, URIEL?

Hola. Mis preguntas(2) son sobre el módulo mssql::dblib porque estuve buscando información en muchas páginas y encontré muy poco (casi nada).
1) ¿Qué ventaja puede tener con respecto a DBI?
2) ¿Es para cualquier plataforma?
Muchas gracias.

Hola a todos:

¿Es posible, en Perl, imprimir a más de un fichero a la vez? ¿Sería válido algo como:

my $var;

open (FPTIM, "> ./fich1");
open (FPTOP, "> ./fich2");

print FPTIM, FPTOP $var;?

Gracias,

Xagutxu