Foro - Perl en Español

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 ...

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 ...

Buenos días,

Quiero hacer un log de todo lo que hace mi script, es decir, si ha contestado el ping si se ha podido descargar por FTP el fichero en concreto, si se ha borrado bien... En definitiva, todo lo que hago con el script.

He mirado y he encontrado el modulo Log::Handler pero no lo entiendo. Existe alguno más sencillo y que me sirva para registrar todo, si se ha hecho bien o si ...

Buenas a todos. Tengo una duda muy simple pero yo no veo dónde puede estar el error.

Quiero abrir un archivo que está en el servidor físicamente. Esta es su ruta: C:\PROGRA~1\APACHE~1\Apache2.2\htdocs\reportes.

Pero cuando lo quiero abrir desde un cgi me sale el siguiente error: Error: no pude abrir a /PROGRA~1/APACHE~1/Apache2.2/htdocs/reportes/table.html: No such file or directory

Aquí les dejo el código en cuestión#!/perl/bin/perl.exe
$|=1;
use Win32::ODBC;
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);

my $cgiparms = ...