Foro - Perl en Español

En el canal irc:irc.freenode.net/#perl6 se suelen juntar aquellos que están desarrollando el lenguaje, así como los que están aprendiéndolo y probándolo.

De vez en cuando, alguien manda un pequeño programa para que el robot rakudo lo ejecute. Hace unos días, vimos como uno de los habituales por el canal, publicaba este ejemplo de conversión de números en decimal a números romanos:

sub roman {
my $pre = <v x xv xx xxv xxx xxxv>[($^n-4) / ...

Desde el primero de septiembre, dejó de funcionar el sistema de comunicación vía correo electrónico, por el que, los usuarios, programadores y administradores de Perl, informaban a los CPAN Testers. A partir de ese momento, la forma de enviar los informes sería usando el protocolo HTTP.

Aquellos que quieran seguir participando con sus reportes, pueden seguir una guía muy sencilla, de tres pasos. A partir de ese momento, cada vez que instalen un nuevo módulo, ...

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