Foro - Perl en Español

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

A ver, quien lo hace, un lector PDF y POD de forma gráfica, la unic relga es que el lector tiene que se propio (nada de eso de utilizar Gtk2::Ex::Pod o cosas por el estilo) pero si se puede utlizar un lector (a memoria) de PDF, siempre y cunado no lo "pinte" en la pantalla.
:wink:

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

Hola
El problema es que estoy haciendo un script que llame a una url y le envie unos datos, funcionar funciona, pero el problema es cuando algunos de los datos que envio lleva un espacio, es decir si mando una variable con espacios no se me envian. Este es el codigo que estoy utilizando

Code: Seleccionar todo

$parametros_llamada="variable=sirwallo envia datos"
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($parametros_llamada);
my $response_web = $ua->request($req);
my $content_xml = $response_web->content();


...

Hola,

Mi compañera y yo venimos leyendo diversa información de este foro y aún no nos queda claro.

Decidimos seguir este tutorial http://perlenespanol.com/archives-tut/000066.html

Creando gráfico de Barras:
#!/usr/bin/perl -w

use strict;
use CGI ':standard';
use GD::Graph::bars;

my @campos = ('Mar 2006','Abr 2006','May 2006', 'Jun 2006', 'Jul 2006');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);

my $grafico = GD::Graph::bars->new(500, 300);

$grafico->set(
x_label => 'Mes',
y_label => 'Visitas Totales', ...