Foro - Perl en Español

Ejemplo de evolución de una solución Perl (unas de las posibles).

Perl permite encontrar una solución rápida, pero eso es lo que dicen los 'expertos' del lenguaje.
Pocas veces se acuerdan de los sufrimientos por los que pasaron mientras aprendieron con este lenguaje de las 'mil caras'.
Los novatos están cansados de escuchar que un problema se puede resolver de diez formas distintas, cuando ellos sólo quieren una para terminar cuanto antes el problema que ...

Hola a todos, espero me puedan ayudar porque no sé porque no
se conecta.

Gracias de antemano.


Síntoma: Al compilar los scripts de PERL con perl2exe (IndigoStar) que usan la librería Net::SSH::W32Perl, los ejecutables no funcionan.

(Mandan mensaje de 'No provider available')
El script s establece la conexión y retorna resultados, pero el
ejecutable no.


Salida:

D:\ISAP-6.2\Source\Work>ssh_test
W2LZDXRR01: Reading configuration data /.ssh/config
W2LZDXRR01: Reading configuration data /etc/ssh_config
W2LZDXRR01: Connecting to 199.228.23.169, port 22.
W2LZDXRR01: Socket ...

He leido los tutoriales sobre gráficos de la página y de CPAN (los de GDGraph) y no he encontrado lo que solucione mi problema. Deseo crear un gráfico donde los datos del eje X no se encuentren equiespaciados, sino que los datos correspondan a puntos reales, es decir que el eje X sea numérico. He probado colocando x_tick_number => 'auto'. Pero no es una muy buena solución. Existe algun módulo que permita hacer gráficos con ...

Holagente, quiero hacer una pequeña aplicación en donde coloque el estado de un servidor...O sea, en nivel de carga del CPU, el uso de memoria que tiene, etc.

hay un comando TOP que es muy bueno y muestra todo eso, pero está en línea de comandos...

Como puedo hacer para darle una interface web, hay algún módulo de PERL que birnde esa info ?

además, ¿Hay alguna foma de saber la temperatura interna del microprocesador ...

Hola a todos, les escribo porque tengo una pequeña duda... cómo eliminar correctamente la ejecución de un CGI, cuando se produce una instrucción determinada... ej:

Code: Seleccionar todo

(otra parte del script)

$id=param('id');

my @checkid= `ls /red/numero/`;
foreach $variable(@checkid) {
    if($id eq $variable)
    {
        print("Ya hay una red creada con ese numero") || die (¿instrucciones?)
    }
}

(resto del script a realizar sino se cumple la condición)

¿¿¿ Cómo podría hacerlo ???

¡¡Muchas gracias a todos otra vez!!. ...

Hola, espero que me puedan ayudar

Tengo una variable referenciada "$all_details" que es un hash de arreglos de hashes, al hacer un print Dumper obtengo
lo que aparece mas abajo.. ("Se ve mas claro al ver el codigo fuente del Dumper")

Como puedo recorrer esto, de tal forma de ir obteniendo los valores finales ?
un dato.. es que tengo un arreglo con todos los indices, en este caso:


foreach $code (keys %{$codes}) { ...

TENGO EL SIGUIENTE CODIGO Y NECESITO CONECTARME A LA BASE DE DATOS PERO ME PRODUCE UN ERROR... NO SE QUE ESTA MAL...
#!/usr/bin/perl -d
use DBI;
use CGI;
$dbh=DBI->connect('DBI:mysql:host=208.232.83.166:database=SistemaEscolar',root,SD2);
$co=new CGI;

$cgicontrol=$co->param("control");
$cgipassword=$co->param("password");

$control.="";
$control.=$cgicontrol;
$control.="";

$password.="";
$password.=$cgipassword;
$password.="";


$sth=$dbh->prepare("select * from alumnos where control=$control and password=$password");
$sth->execute;


if(($control,$nombre,$password)=$sth->fetchrow())
{$bandera=1;
print $co->center($co->h1('Numero de Control:'));
print $control;
print $co->center($co->h1('Nombre:'));
print $nombre;
}
$sth->finish;
$dbh->disconnect;

print $co->header,
$co->start_html
(
title=>'Envio de datos al y desde el servidor ...

Hola.
Tratando de hacer un tutorial, para poner aqui, me encontre en este problema.
Mirando uno ejemplos de Win32::Process::Info encontre que para saber el PID del programa no usan $$ si no que usan Win32::Ole, asi que, quiero saber el PID de el programa, ¿Uso $$ o uso Win32::Ole?
Gracias.

Saludos.
Pues si estoy modernizandome y quiero hacer una migracion a postgres desde una base de datos en mysql.
Estoy usando el MySQL2PostgreSQL Pro, el programa esta muy bien pero tengo un pequeño conflicto con el formato de la fecha:

-- Error: ERROR: date/time field value out of range: "0000-00-00 00:00:00"
HINT: Perhaps you need a different "datestyle" setting. --


Para solucionarlo estoy haciendo un script en perl que me cambie las fechas a otro ...

Hola a todos!

A ver, os cuento el problema a ver si alguien me puede echar una mano de acuerdo?

Mi programa recibe una cadena de caracteres como esta:

Code: Seleccionar todo

#xUIDxxxxxFECxxxxxxTIExxxxxxVALxLATxxxx,xxxxSLAxLONxxxx,xxxxSLOxALTxxxxxVELxxx...........

es mas larga pero todo así. Esta cadena la guardo por ejemplo en "$cadena".
Pues bien lo que tengo que hacer es recorrer esta cadena e ir separando los campos para mandarlos a tablas de una base de datos MySQL, es decir de "#x" ese ...