Foro - Perl en Español

Buenos días,

Estoy intentando organizar mi script un poco. He decidido dividirlo en módulos y llamarlos desde el script principal. No sé si esto es lo correcto porque no funciona bien:

Script principal.pl:

#!/usr/bin/perl
use lib "/root/proyect/";
print ("buenos días") ;
use secundario;

Modulo secundario.pm:

#!/usr/bin/perl

print ("buenas tardes");

Y con esto parece que funciona pero me ejecuta antes el módulo secundario.pm que las anteriores instrucciones del principal, es decir la salida es buenas tardes ...

Estoy tratando de hacer un script el cual por el momento me presente en pantalla la salida del comando "ls".

Lo hice para un solo Host:

#!/bin/perl
use Net::SSH qw(ssh);


my $user = 'operador';
my $host = 'localhost';
my $cmd = "ls";

ssh("$user\@$host", "$cmd");

Y me anda perfecto. Ahora me gustaría hacerlo pero para que lea un archivo el cual contiene las ips de las pcs y me vaya mostrando el "ls" de cada una, ...

Hola Amigos Perlianos :

Estoy haciendo un script, el cual lee el contenido de una tabla Mysql y tiene que crear un diseño en HTML de tres columnas. Estoy utilizando CSS para crear el layout.

Mi problema es que no sé cómo validar, si ya se lleno la primera columna, se pase a la segunda columna, luego a la tercera.

Existe algo así como un contador de caracteres, líneas o algo, por medio del cual ...

Hola!
Otra vez estoy aquí con una duda...
Estoy leyendo desde Perl un archivo de Excel; tengo que barrerlo e identificar cada objeto de la celda, pero cuando tengo algún borde no me despliega valor, se que es con el ParseExcel y el BdrStyle pero no sé cómo se usa, alguien me puede dar un ejemplo de cómo hago para ver qué devuelve o cómo se usa...
¡Saludos! ...

Hola, después de una larga pausa regreso a la programación y con Perl, claro.
Estoy haciendo ejercicios de memoria para recordar lo poco que sé y no sé por qué me dio por hacer una función que sume los valores de una variable. He probado varios métodos y buscado en la web pero no encuentro una solución.

Por ejemplo:
sub contar
{
my $x = shift;
my $y = "";
for ( $i = 0; ...

Buenas, les comento mi problema, tengo este pequeño programita, que me busca en el auth.log por posibles entradas 'failed', mi pregunta es cómo hacer para mostrarlo en una página web con CGI, porque al poner print "Content-type: text/html\n\n";, no muestra nada. Apache soporta CGI y el error no muestra nada, les dejo el código:

use warnings;
use diagnostics;

open (FI, "/var/log/auth.log") or die "Unable to open file : $! \n";

@file = <FI>;

foreach (@file) ...

La idea es la siguiente:

Cuando un e-mail entra al servidor éste se posiciona directamente en la carpeta NEW. Así todos los archivos que se encuentren en esta carpeta son mail recibidos y no leídos. Así los clientes de correo que utilizan POP se conectan al servidor y leen el contenido de NEW...

El asunto es cuando se utiliza un cliente de "correo web" al hacer login a éste, la aplicación internamente se conecta vía ...

He Joaquín, ya encontré tu página,,,
Es la ostia...
:D
http://joaquinferrero.com/ :D
Me cae que nada más te falta el apellido Sabina y me cae que serías mi superídolo...

Estimados Perleros
La consulta es la siguiente ...

$var="file/archivo.txt";
if(-e $var){ # también escribo if(-e "$var"){
print "SI";
}
elsif(!-e $var){
print "No ";
}
¿Por qué a veces me resulta? ¿y Perl me dice que si es un fichero o un directorio o que realmente existe?

¿Por qué a veces NO me funciona sabiendo que la ruta o el archivo realmente existe?

¿Cómo debo ocupar -e / -f / -d para no tener estos ...

Tengo mi código y necesito que éste se repita cada X tiempo, que yo mismo defino (1, 3, 5 minutos o 4 horas).

Ejecuto mi programa y éste realiza una acción cada X tiempo y así durante todo el día (cada X semanas cada X años).

Me comentan que puedo utilizar Cron, pero según lo entiendo, toma un módulo de tiempo anidado en un X espacio web (servidor) y lo manda llamar para que éste ...