Foro - Perl en Español

Hola quiero hacer una verificación de que una variable solo contiene números


$ver = "palabra123";

if ($ver=~/^\d+/) {
print "numero\n";
} else {
print "palabra\n";
}


EL problema es que no puedo reconocer que esa variable realmente solo tiene números.

¿ Alguna idea ?

Hola señores,

Soy nuevo en el foro y necesito de un poco de su ayuda. Les cuento: necesito realizar un sistema el cual me permita comparar la hora de un servidor central versus la hora de un servidor ntp externo, en este caso (http://www.horaoficial.cl/). La idea es comparar estas dos horas y ver el margen que tiene una de otra.

El problema que tengo es que no sé y ...

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 ?