Foro - Perl en Español

Saludos a la comunidad, me he calentado bastante ya en este ejercicio.

Tengo un array recibido desde una base de datos de esta manera:
luis|22|musica|70
luis|22|musica|80
luis|22|musica|90
raul|30|videos|accion
raul|30|videos|terror
juan|27|juegos|COD
juan|27|juegos|MOD
...
y ésta puede tener más datos similares.

El asunto es que quiero generar un array por cada tercer elemento que sea igual. Por ejemplo, un array para los de música, videos, juegos, etc. y no lo he podido lograr.

Esto he hecho hasta ...

Hola nuevamente...

Sigo leyendo archivos...
Hice una consulta hace algún tiempo, pero algo pasó, porque no encontré la pregunta y obvio... no hubo respuesta.

Ahora tengo un problema, estoy leyendo un archivo Excel (xlsx) y trae varias hojas... y debo generar un archivo txt con cada una de ellas, y utilizo el nombre de la hoja para generar el nombre del archivo. Mi problema es que una de ellas se llama "viña". Al intentar asignar ...

«Desarrollar un programa que abra el archivo TEXTO1.rtf y cree uno nuevo de nombre pruebafin.txt, de tal forma que haga desaparecer todas las líneas que comiencen por “BASURA” y visualice el contenido por pantalla al mismo tiempo.»

El archivo TEXTO1.rtf contiene esto:
ttcccatcaa gccctagggc tcctcgtggc tgctgggagt tgtagtctga acgcttctat
BASURA cttggcgaga agcgcctacg ctccccctac cgagtcccgc ggtaattctt aaagcacctg
caccgccccc ccgccgcctg cagagggcgc agcaggtctt gcacctcttc tgcatctcat
tctccaggct tcagacctgt ctccctcatt caaaaaatat ttattatcga gctcttactt
BASURA gctacccagc actgatatag gcactcagga atacaacaat gaataagata gtagaaaaat
tctatatcct ...

Hola amigos, he estado viendo el foro y está muy bueno y muy completo, a pesar de esto hay algo
que no encontré o tal vez no miré bien. Mi duda es la siguiente:

He creado un package con el nombre de configuración, con la función conexion_bd();
éste es llamado desde otro perl; el problema es que si no le pongo al package un 1; o return 1;
mi función no se ejecuta dándome el ...

Hola buenas noches,

¡A ver si alguien me puede ayudar!

En el siguiente script abro un directorio. Tengo unos 66 ficheros pero solamente me interesan los 16 primeros.

Estos ficheros, tienen el siguiente formato:

gfs.t00z.pgrbf00.grib2
gfs.t12z.pgrbf03.grib2

es decir, solamente cambia la cifra que está detrás de la 'f' con intervalos de 3 (f00, f03, f06, f09, f12...).

Si introduzco en @files el nombre de todos los ficheros hasta el número 16, los elige y luego ...

Estoy tratando de hacer un programa que traduzca del inglés al español y lo intenté con Google Translate pero tiene un problema porque no carga la página completa y no muestra los resultados.

#!usr/bin/perl
#Google Traslate Tool 0.1
#Coded By Doddy H

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $url;

header();

print "\n\n Texto : ";
chomp(my $text = <stdin>);

print "\n Options\n\n";
print ...

El código es el siguiente

#!usr/bin/perl
#Buscador de sueños 0.1
#Coded By Doddy H

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

header();

print "\n Palabra : ";
chomp(my $string = <stdin>);

my $code = toma("http://www.mis-suenos.org/interpretaciones/buscar?text=".$string);

if($code=~/<li>(.*)<\/li>/) {
my $si = $1;
if ($si eq " ") {
print "\n\n No se encontró\n";
} else {
print "\n\n Significado : $si\n";
}}

copyright();

sub header { ...

Hola de nuevo.

Necesito reordenar un archivo de la siguiente manera:
Archivo original
A,B,5,6
A,C,8,9
A,F,52,4
B,C,5,6

rearreglo por campo primero:
A,B,5,6,C,8,9,F,52,4
B,C,5,6

El script que tengo hasta ahora es:
#!/usr/bin/perl
use strict;
use warnings;

### Cabecera
open my $OUTPUT, '>>', 'beta_doms.out';

### Leer el primer archivo
open my $ARQ, '<', "beta_arch_unip.out" or die "can not open the file $ARGV";
my @arq = <$ARQ>;

close $ARQ;

### Leer el segundo archivo
open my $LIST, ...

¿Cómo sé usa este módulo?, porque lo he probado con el siguiente código y no me reconoce que google.com esté activo.

#!usr/bin/perl

use Net::Ping;

my $host = "www.google.com.ar";

$p = Net::Ping->new();

print "$host is up\n" if $p->ping($host);

¿Alguien me podría decir cómo hacer la tabla de dos columnas en Tk?