Foro - Perl en Español

Tengo la siguiente función que borra repetidos en un array

sub repes {

my @no = ( "no", "si" );

foreach my $palabra (@_) {
next if $repety{$palabra}++;
push @revisado, $palabra;
}
return @revisado;
}


Mi duda es: ¿cómo tengo que hacer qué para que la función borre los repetidos
pero no los que están en el array @no?

¿ Alguien sabe ?

Tengo este código donde puse la expresión regular bien hecha pero cuando la saco para usarla el script automáticamente le saca las barras y la expresión regular sale mal.

@test = ("\('hola'\)\/");
$texto = "('hola')/";

for my $tes (@test) {
if ( $texto =~ /$tes/ ) {
print "yeah\n";
}
}


¿ Cuál es el error ?

Hola muchachos, he estado revisando el foro y los tutoriales y no he podido encontrar un tema relacionado al manejo de archivos PDF ¿o es que el manejo es igual que con otros archivos? Bueno, lo que yo estoy tratando hacer es descargar un pdf de una página: http://www.abc.com/docuemnto.pdf. He estado averiguando y buscando módulos pero no los encuentro. Tal vez puedan ayudarme ustedes. Gracias.

¡Vaya semanita!

En estos días, se han publicado Perl v5.12.4, Perl v5.14.1, y ahora... Perl v5.15.0.

Y con unos cuantos cambios:

* CORE:: trabaja con todas las palabras claves

El prefijo CORE:: ahora puede ser usado en palabras clave activadas por feature.pm, incluso fuera del ámbito del use del feature. Se han actualizado los archivos de la documentación sobre CORE, feature, perlfunc, perlsub, y perlsyn.

* continue ya no requiere la feature "switch".

La palabra ...

Hola, estoy haciendo un script que genera palabras para formularios POST.
El problema es que los genera en una variable normal. Un ejemplo de cómo
queda es así:


#!usr/bin/perl

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 $tengo = qq({"probar" => "test","probarx" => "et","control" => "mandar"});
print $nave->post("http://localhost/test/a.php",$tengo)->content;


Soy consciente de que sacando qq() el método POST lo va hacer bien pero
el ...

Desarrollo aplicaciones que se ejecutan en entornos web usando módulo CGI y Fast CGI. Me gustaría saber qué módulos me recomendarían para el diseño de las interfaces de usuario, la generación de formularios HTML, menúes, botones, etc, pero siempre tratando de lograr una sintaxis prolija en Perl.

¡¡ Agradecido !!

Hola.

¿Cómo hago para hacer esto? Probé todos los tutoriales pero ¡no atino con la sintaxis!

El caso es que quiero hacer esto:
1.- resguardarImagen(), que no reciba parámetros

2.- Crear una imagen (usando partimage) de una partición determinada (pasada como parámetro) y la almacene en ~/imgs/

3.- Mantener en ~/imgs/ solo las últimas 3 imágenes creadas... Si en ese directorio ya hubiesen 3 imágenes el script deberá eliminar la imagen más vieja.

¿Cómo hago? ...

Es solo una duda básica, porque yo solo conozco esta forma de abrir un archivo y obtener todo su texto:

open(FILE,"test.txt");
my @wor = <FILE>;
close FILE;


Pero mi duda es ¿qué otras formas de abrir archivos y hacer lo mismo, solo que en vez de guardar el resultado en un array lo guarde en una variable común?

¿ Alguien sabe a lo que me refiero ?

Necesito crear un hash con la siguiente estructura


tengo1 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"

tengo2 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"


El problema es no lo quiero hecho sino que necesito entender cómo hacerlo paso a paso.

¿ Alguien me puede ayudar ?

Hola. Tengo un problema con el resultado final de mi código:

#!/usr/bin/perl

use strict;
use warnings;

use utf8;
use locale;
use open OUT => ':locale';

use Net::SSH::Expect;

my $ssh = 'Net::SSH::Expect'->new(

host => 'mihost',
password => 'contrasena',
user => 'usuario',
port => 23,
raw_pty => 1
);

my $login_output = $ssh->login();
if ( $login_output !~ /Welcome/ ) {
die "Login has failed. Login output was $login_output";
}

$ssh->exec("stty raw -iutf8");
$ssh->exec("stty raw -echo");

print ...