Foro - Perl en Español

Digamos que tengo un archivo de texto con varias palabras.

Lo que quiero hacer es poner en un archivo las palabras que empiecen por a o A , en otro archivo las que empiecen por b o B, etc...

Para esto tengo que hacer:

open A, '>>', 'A.txt' or die $!;
open B, '>>', 'B.txt' or die $!;
open C, '>>', 'C.txt' or die $!;
etc...

Quería saber si hay alguna forma de crear esos ...

Hola,

Tengo el siguiente archivo cgi con código fuente en Perl y a pesar de que me aparece el mensaje "Pedido transmitido correctamente", no recibo nada por correo electrónico. ¿Alguien sabe porqué ?. Muchas gracias.

Mi servidor me ha dado esta dirección ( "/var/qmail/bin/qmail-inject ) en lugar de usr/bin/sendmail y desde ese momento me aparece el mensaje de pedido enviado, pero no llega nada.

#!/usr/bin/perl
#

$mailprog = "/var/qmail/bin/qmail-inject";

&ReadParse;
&processOrder;
&print_danke;
exit(0);

sub processOrder ...

¡¡Hola!!

Sigo a la carga, tengo el siguiente pedazito de código, que hace lo siguiente:
1)Compruebe si un directorio existe, sino -> lo crea
2)compruebe que existe el fichero, sino ->
3)Abre el fichero para append al final y escribe la última hora de actualización.
4)Abre el fichero para lectura, busca lo que esté a la derecha de UTC-># y me coge esos datos para compararlos con otra hora global (para saber si se ha ...

Hola, ¿qué tal?
¡¡Nuevamente les agradezco por la ayuda en mi primera consulta!!

Mi pregunta es la siguiente:
necesito obtener una fila determinado de una tabla pasando como parámetro el número de fila.
Todos los datos de la tabla se encuentran en @array pero si hago $array no me da la primera fila sino la primera columna...

¿¿Me podrían ayudar con esto??
¡¡¡Muchas gracias!!! ¡¡¡Saludos!!!

¡Buenas de nuevo!

Tengo entre manos un código que necesita leer de una DB de Oracle las fechas en UTC (1227696222) y tengo que convertirlas a formato normal (26/11/2008 10:00).
He estado buscando por CPAN, investigando el uso del modulo DateTime y nada, ¿alguien sabe cómo hacerlo?
Debería de poderse hacer para usarlo como subrutina de conversión (una para cada sentido de la conversión).

¡Gracias por adelantado!

Buenos días, he instalado el módulo XML::Parser v 2.23 descargado de CPAN, en un AIX 5.3, cuando se ejecuta el make test aparecen varios errores como el siguiente:

Code: Seleccionar todo

Failed 20/23 tests, 13.04% okay
t/cdata...........PositionContext: Parse position is outside of buffer
at
/app/desa/metrred/modulosPerl/XML−Parser−2.23/blib/lib/XML/Parser/Expat.pm
line 344.
t/cdata...........dubious

Sin embargo, al realizar el make install todo va bien, pero al ejecutar el código de la aplicación vuelve a dar el error:

PositionContext: Parse position is outside of buffer ...

Hola amigos del foro, tengo un script con el que quiero reemplazar dos valores que se repiten por ceros, pero hay un valor que no me lo reemplaza, y en eso quiero que me ayuden, acá esta un archivo:

1000 -9.989999710577421e+33 -9999 -9999 -9999 -9999
950 -9.989999710577421e+33 -9999 -9999 -9999 -9999
925 -9.989999710577421e+33 -9999 -9999 -9999 -9999
900 -9.989999710577421e+33 -9999 -9999 -9999 -9999
850 -9.989999710577421e+33 -9999 -9999 -9999 -9999
800 -9.989999710577421e+33 -9999 -9999 -9999 -9999 ...

No sé mucho de este tema con Perl, pero necesito crear una cola de mensajes pero cuando uso la función ftok() para generar la clave me da error, no sé si en Perl se hará de otra forma o si existe algún modulo para esto.
Cualquier sugerencia me vendría muy bien, gracias.

Saludos.

si pongo la salida en un archivo .txt ya respeta los acentos pero si uso el query para subirlo a una base de datos ya no funciona

use DBI;
use encoding "iso-8859-1";

$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);

$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);

Hola. En una ocasión anterior me ayudaron a descargar archivos HTML y transformarlos a .txt, acá está el script:

#!/usr/bin/perl

use strict;
use LWP::Simple;
$|++;

my $URL = 'http://weather.uwyo.edu/cgi-bin/sounding?region=samer&TYPE=TEXT%3ALIST&YEAR=2005';
my $url = '&STNM=85442';

foreach my $mes ( "04" ) {
foreach my $dia ( "01" .. "09" ) {
foreach my $hora ( 12 ) {

my $fecha = "$dia-$mes-$hora";
my $fichero = "$fecha.dat";
my $pagina = get("$URL&MONTH=$mes&FROM=$dia$hora&TO=$dia$hora$url");

if (defined $pagina) {
if ((my $datos) ...