Foro - Perl en Español

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

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?