Foro - Perl en Español

Hola, ¿qué tal? Es la primera vez que ocupo de Perl y estuve buscando información en la web para resolver mi problema y me encontré con este foro y estuve navegando por aquí y me he dado cuenta que aparte de que este es un excelente foro, Perl es un lenguaje muy amplio.

Bueno, con respecto a mi consulta, estoy tratando de utilizar una librería (o no sé cómo se pueda llamar) que es para ...

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

No estoy seguro,
o quizás me equivoco pero no tengo claro la generalización en Perl,
o ¿dónde veo información que me explique en qué consiste cuándo en un módulo llamo la instrucción, ej.

use base modulo;

a utilizar @ISA?

:o No sé si me hice entender.

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

Esta es una traducción de artículos publicados en Perl.com de las 44 recetas que Tom Christiansen creó para trabajar con Unicode en Perl 5.

Están disponibles también en la propia documentación de Perl, a partir de v5.20.2. Se accede con el comando perldoc perlunicook

An intelligible guide to Unicode in Perl 5.

• ℞ 0: Preámbulo estándar
• ℞ 1: filtro genérico de comprensión Unicode
• ℞ 2: Ajuste fino de las advertencias Unicode
...

¿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);

Estimados,

Los contacto porque quiero realizar un script el cual me deje realizar 10 conexiones a un mismo switch Cisco y que me guarde en un archivo externo lo entregado por el switch.

Digamos, si me pide user/pass, que me guarde ese output que veo en pantalla en un archivo, y así si el switch entra otro mensaje por pantalla que también sea guardado.

Estuve intentando realizar esto leyendo el post http://perlenespanol.com/foro/net-telnet-t2397.html pero no lo ...

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