Foro - Perl en Español

«Este es un pequeño y sencillo módulo que facilita la inserción de imágenes en nuestros programas Perl-Gtk2, que interactúan ante eventos del ratón al pasar por encima de ellas o al pulsar en ellas. Es muy útil para la creación de botones interactivos, de ahí su nombre.»

Artículo

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

¿Alguien conoce algún editor para programar en PHP que me ayude con el tema de la indentación?, me refiero a que cuando haga enter se pongan dos espacios automáticamente.

Porque estoy usando Dreamweaver CS3 y no se hace automáticamente.

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.

Este mes de marzo pasado, se ha superado el récord de ofertas de trabajo en la web http://jobs.perl.org/ .

Bueno, en realidad, se han superado los niveles de junio del 2008 ;)

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