Foro - Perl en Español

Hola a todos...

Tengo un script de Perl que pondré en el crontab para que se ejecute cada cierto tiempo (1hora). Pero quisiera que cuando se vaya a ejecutar si todavía está corriendo, que no se vuelva a lanzar...

¿¿ Cómo podría hacer algo de esto ?? la verdad que no tengo ni idea...

Alguna ayuda por favor... Gracias por adelantado...

Saludos...

Scorpion.

Buenas,
tengo un problema y es que no se recepcionar los datos del formulario y devolverlo en código PERL. Os adjunto la página web, lo que quiero es que una vez introducidos todos los datos te devuelva una página con todos los datos, y te calcule el precio final multiplicando el precio web * unidades del producto. Tampoco me funciona un contador tengo el código de la página HTML y perl (.pl)

Haber si me ...

Hola a todos...

Quisiera entar a un sitio ftp y descargar los ficheros de una extensión especifica (por ejemplo *.txt). el problema está en coger el listado de ficheros esos y procesarlos...

Tendria algo así como...

use Net::FTP;

my $USERNAME = "user";
my $PWD = "pass";
my $SERVER = "server.com";

#Abro la conexion FTP;
my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
$FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");
$FTP->cwd("/camino_final/");

#ahora aqui es ...

Code: Seleccionar todo

$coins[0];
$coins[1];
$coins[2];
$coins[3];

Pretendo eliminar un elemento del array, puede ser el 2, pero quiero eliminar este elemento y que los demas suban de posición sin tener que crear otro array a partir de este y que sólo me pase los elementos que deseo tener y no me pase el elemento que no deseo, como sería esto, yo tengo este ejemplo@coins=("brazil","alemania","colombia","peru");
$i = 0;
foreach $moneda (@coins) {
if ($moneda ne "alemania") {
$latinas[$i] ...

Code: Seleccionar todo

package MyModule;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(func1 func2);
%EXPORT_TAGS = ( DEFAULT => [qw(&func1)],
                 Both    => [qw(&func1 &func2)]);

sub func1  { return reverse @_  }
sub func2  { return map{ uc }@_ }

1;

Estoy decidiendo hacer un modulo y no se si sea correcto hacer lo que pongo arriba, bueno igual funciona, pero podría explicarme explorer ...

Hola en mis paginas o index principales sale un candado y el titulo de la pagina es hacked by ssh-2 que significa exactamente .. gracias de antemano :roll:

Yo tuve que hacer eso muchas veces estos años pasados. Lo solución fue ejecutar el comando ping al servidor y ver si ha respondido al paquete. Eso, con los backticks o con qx() puedes ejecutar el comando ping y obtener el resultado. Luego ver si ha respondido o no.

Vamos, básicamente sería algo así:

Code: Seleccionar todo

$ping = system("ping -q -W 4 -c 1 217.127.89.51 > /dev/null");
print $ping;

siendo:
* -W 4 indica que esperamos un máximo ...

Hola tiempo sin molestarlos :roll: ... :D ... tengo una duda a ver si me la pueden aclarar:

Los Buscadores comunes "Google, yahoo, altavista, etc." es una herramienta para ubicar "n" cantidad de paginas, he visto como estos realizan la busqueda dentro de las paginas y sus contenidos, ahora bien me gustaria saber lo siguiente:

- ¿Como ...

Estoy necesitando obtener solamente el año de modificación de un archivo y no lo estoy logrando.
Entre las varias cosas que estuve probando son:#!/usr/bin/perl -w
use Time::localtime;
use File::stat;

@mensajes_log=`find /var/log -name messages -prune -type f` or die ("No encontramos el archivo MESSAGES :-( ... verificar!!!");
print "$mensajes_log[0]";
chomp ($mensajes_log[0]);
$modificacion_messagges[0] = ctime(stat($mensajes_log[0])->mtime);

print "La fecha de modificacion del archivos messages es: modificacion_messagges[0] \n";
@dividiendo_fecha = split (/\s/,$modificacion_messages[0]);
@anho = $dividiendo_fecha[4];
print "El año de ...

Imaginense usted que es que Yo soy un Adicto a los ficheros de texto,

Y cuando se trata de Perl, jamas entendere que es eso de DBI,

Asi que les pido una recomendacion para trabajar con ficheros de texto por que se pueden hacer cosas maravillosas, que forma me recomendarian para trabajar con estos Files

Secuenciales, Con separadores
Archivos Directos o Indexados

Les pregunto, por si hay alguna libreria para manejar ficheros mas facil.

QUE ...