Foro - Perl en Español

¡Hola a todos!

Okay, necesito crear un script que me permita generar un reporte del estado del servidor y que sea recurrente, cada 10 minutos...

La verdad, para serles sincero, soy nuevo en esto, apenas estoy comenzando y me interesa mucho.

He leído acerca de sar y crontab, ahora bien, ¿cómo los puedo combinar a ambos en un mismo script Perl...

Desearía crear un script que me permita generar un reporte del estado del servidor ...

Tengo un archivo con el siguiente formato:
Familia Nombre cobertura resolución
1 bovin 0.8 1.2
1 human 1 2.5
1 ecoli 1 2
2 ecoli 0.7 1.5
2 mouse 1 3
5 human 1 2.7
Necesito, para cada Familia distinta (1, 2 y 5), la línea con mejor cobertura (número más próximo a 1) y como segundo criterio, mejor resolución (más próximo a cero). La salida deseada sería:
Familia Nombre cobertura resolución
1 ecoli 1 ...

Hola a todos, tengo un pequeño programa en Perl que debería generar números de 0.01 a 1 aumentando de 0.01 en 0.01. Funciona bien para valores de 0.01 a 0.81 pero después de este valor, en vez de generar 0.82 obtengo 0.820000000001 y no sé de dónde sale ese 0.0000000001 adicional. Pongo el código, es realmente muy sencillo pero no entiendo que está pasando.
$w=0;
for ($i=0;$i<=100;$i++)
{
print "omega--> $w \n";
$w=$w+0.01;
}

Y ...

Hola y gracias de antemano.

¿Conocen algún componente gratuito que me sirva para hacer un programa que maneje VOIP por protocolo SIP?
La idea es hacer un programa que funcione como Softphone.

Sé que es medio complicado pero tal vez alguien tenga idea.

Saludos

Hola a todos.

Quiero quitarle a una cadena de texto todos los espacios, saltos de línea, vueltas de carro y tabulaciones extra, es decir, cuando existan dos o más.

Estaba intentando solo con los saltos de línea y usé estos códigos pero no me funcionaron correctamente.

$texto =~ s/\n\n*//g;
$texto =~ s/\n{2,}//g;

Gracias de antemano ;D

Hola... En una variable que tiene un contenido como este:

http://www.youtube.com/watch?v=LGOIzsNZaPQ

Necesito cambiar ":" por "%3A" y así con "/", "?" y "=".

Sólo quiero saber el procedimiento que habría que hacer...

Gracias de antemano :D

Creé un módulo llamado PerlEasyCar

Es simple
package PerlEasyCart;

use strict;
use warnings;
use CGI::Session;


our $VERSION = '0.01000_13';


my $session = new CGI::Session();
use vars qw($VERSION @EXPORT);

require Exporter;

@EXPORT = qw(
addItem
items
);

sub new{

my ($class, @args) = @_;
my $self = {};
bless $self, $class;
return $self;
}




sub addItem{

my ( $self, $id, $cantidad ) = @_;
#my $hash = $session->param('productos');
#$hash->{$id} = $cantidad;

$session->param('prd-'.$id,$cantidad);


$session->flush();
return 1; ...

¡¡¡Saludos!!!

Soy nueva en Perl. Estoy realizando algunos cgi sencillos para practicar y aprender.
Recientemente estoy realizando uno para el envío de emails. Sé que hay muchos scripts posteados en la web pero me propuse hacer uno yo misma.

Primero tengo un formulario html que recoge los datos y los pasa por el método POST a un script cgi. Todo parece marchar bien; de hecho en la web, el cgi muestra las variables que recibió ...

Hola.

Tengo un caos con un script CGI que ya no sé si lo tengo bien o mal el servidor :(

Estoy usando Ubuntu Server. LAMP y he instalado cuatro cosillas bien hasta que me topé con cgi-bin que creo que lo hago, bien hasta he visto un vídeo de la instalacción en árabe :D No hay ninguno ...

Muy buenas,

el problema que os voy a contar es bastante extraño, y la verdad es que no tengo ni idea de lo que lo puede estar provocando.

Resulta que tengo un programa que llama a 3 rutinas distintas, cada una carga un fichero y lo guarda en un vector. De esta forma:

open $f, '<:encoding(Latin-9)', "fichero.dat";

while ($linea = <$f>){
push(@vector,$linea);
}
close $f;

El caso es que solo una de estas tres rutinas ...