Foro - Perl en Español

echo "INF: Preparando archivo

Hola Amigos Perleros :

Necesito crear un script Perl que lea un archivo de texto, separado por comas (TXT), y convertirlo a XML. El contenido del archivo es así :

Code: Seleccionar todo

7017 , 2007/03/30, 2007/04/07,      1894
7019 , 2006/12/23, 2007/01/06,      2119
7019 , 2007/02/15, 2007/02/22,      2041
7019 , 2007/03/17, 2007/03/24,      2047
7020 , 2006/11/15, 2006/12/15,      2078
7020 , 2007/01/23, 2007/02/09,      2181
7020 , 2007/02/09, 2007/02/16,      2165
7020 , 2007/02/16, 2007/02/25,      1979

en donde la primera columna ...

hola! me gustaría saber si puedo hacer como en 'C' y puedo separar mi archivo en uno que contenga las subrutinas y otro que tenga el main.
En caso afirmativo me podríais mostrar un ejemplo.
gracias!!

Tengo un problema, estoy haciendo un programa en perl , que hace una consulta en perl y el resultado de la misma la manda por mail, el programa funciona pero cuando la consulta me trae datos 'Null', me aparece un mensaje de error de perl que dice " no data in this part...". La pregunta es como hago para que haga el mail vacio y lo mande igual?????

Saludos a todos y muchas gracias por ...

Hola a todos:
Estoy haciendo una aplicación en la que tengo que grabar y posteriormente leer sólo 2 campos en una tabla en MySQL:
Un campo de Indice y
Un campo BLOB o LONGBLOB en donde pueda guardar imágenes, archivos PDF, archivos Word, archivos Excel, archivos Html,etc.
Alguien me puede dar una referencia.
Gracias por anticipado.

Negrazo

Hola

Aquí va mi problema.
Lo explicaré con el siguiente código:

use Tk;

my $mw = MainWindow->new;
my $menubar = $mw->Menu;
my $openfile = $menubar->cascade(-label => '~Open');
$openfile->command(
-label => 'Open',
-command => sub{$mw->getOpenFile});
$mw->configure(-menu => $menubar);

MainLoop;

Hssta aquí todo bien, pero no sé cómo guardar la opción que el usuario ha seleccionado en el getOpenFile... por lo que he visto, hice algo así pero aun no funciona:

use Tk;

my $mw = MainWindow->new; ...

:D
1: #!/usr/bin/env perl
2: use strict;
3: use POSIX qw(:termios_h);
4: my $termios = new POSIX::Termios;
5: my $fh_stdin = fileno(STDIN);
6: $termios->getattr($fh_stdin);
7: my $flags = $termios->getlflag();
8: sub noecho {
9: $termios->setlflag($flags & ~&POSIX::ECHO);
10: $termios->setattr($fh_stdin, TCSANOW); #modificamos STDOUT
11: }
13:
14: sub echo {
15: $termios->setlflag(&POSIX::ECHO);
16: $termios->setattr($fh_stdin, TCSANOW);
17: }
18:
19: print "Ahora no podemos ver lo que ...

Hola.

Me pregunto, ¿Cómo puedo modificar momentáneamente el fondo de la terminal?

Es que estoy tratando de hacer un modo de comandos, "emulando" (realmente no lo hace, es como Term::Screen para poder usar la línea de input como Bash) una VT100 pero quiero agregar algo, un "\a" que no suena sino que el fondo cambia por un momento como en xterm o mxterm (Motif xterm) y pensé en Curses, pero este es muy complicado ...

Hola a todos
Tengo este código:

Code: Seleccionar todo

sub convierte_tiempo{
   $t = substr($_[0], 0, length($_[0]));
   $u = substr($_[1], 0, length($_[1]));
   $f1= ParseDate($t); # me da esto: 2006121913:12:00
   $f2= ParseDate($u); # me da esto: 2006121814:16:00
   print "Esta es la f1: $f1 " ;
   print "Esta es la f2: $f2 " ;
   $diferencia = DateCalc($f2, $f1,\$err);
   $horas = Delta_Format($diferencia,2,"%ht"); # me da esto: 22.93

Me da 22 horas pero quiero que los minutos no me los de en decimales ...

Hola Amigos Perlianos :

Necesito diseñar un script en Perl para que cuando se ejecute cree las tablas de una base de datos de MySql.

Normalmente esto se puede hacer creando una sentencia SQL, como esta :

Code: Seleccionar todo

create table clubes (
   recid int(10) not null auto_increment,
   distrito varchar(10),
   club varchar(60),
   primary key (recid))
   type=MyISAM comment="";

por cada tabla que desee crear.

Mi pregunta es cómo sería el código dentro de un Perl Script.

De antemano ...