Foro - Perl en Español

my @dias_calendario = qw( 02 05 10 20 );

sub quitacero{
my $num = $_;

if($num < 10){

return substr $num, 1;

};

};


@dias_calendario = map (quitacero($_,1),@dias_calendario);

print join "<br>",@dias_calendario;

Mejor dicho: lo que quiero es quitarle los ceros que antepone a cualquier número menor de 10 pero hacerlo en una sola línea con map() ^^ sin crear función aparte.

Hola, disculpen que los moleste pero tengo un problema y no he podido encontrar la solución. Tengo un objeto que debo ordenar de mayor a menor, dependiendo de una rama. El objeto está estructurado de la siguiente manera:

$obj->{total_visit}->{$nombre}

Rama total_visit es la que debo considerar para el ordenamiento, es decir, el registro que contenga el número más alto debe de ir al principio.
Ya intenté con "sort" y me lo toma como si fueran ...

Lo que deseo es ordenar esta lista por orden cronológico de menor a mayor

los datos los tengo de esta forma

$foto = "2||valle.jpg||tumb_valle.jpg||categoria||19||09||2008";
$foto = "2||valle.jpg||tumb_valle.jpg||categoria||17||09||2008";
$foto = "2||valle.jpg||tumb_valle.jpg||categoria||18||09||2008";

la idea es organizar de alguna forma para que me quede algo así:

$foto = "2||valle.jpg||tumb_valle.jpg||categoria||17||09||2008";
$foto = "2||valle.jpg||tumb_valle.jpg||categoria||18||09||2008";
$foto = "2||valle.jpg||tumb_valle.jpg||categoria||19||09||2008";

Probé unas cosas tan horribles que me da pena mostrar... pero ya mi solución estaba tomando muchas líneas y bueno... Me gustaría saber ...

Hola nuevamente amigos del foro. ¿Saben? estuve revisando el foro y vi un script hecho por explorer y kidd, que lo encontré genial, que era para bajar imágenes y quise hacer lo mismo yo pero con otra dirección y este es el script:

#!/usr/bin/perl -w

use LWP::Simple;
use strict;
use warnings;

my $URL_BASE = 'http://archive.eso.org/asm/ambient-server?night';
my $IMG_FMT = '%02d+Jan+2005&site=paranal';
$|++;

# Bajar los imágenes:
foreach my $dia ( 1 .. 31 ) {

my $imagen ...

Hola Perleros.
Me imagino que este tema estará muy visto, pero yo nunca lo he aplicado.
Se trata de que estoy generando en Perl con HTML una tabla con 4 elementos y muchas líneas, tres de esos elementos son numéricos y normalmente son valores positivos.
Lo que yo pretendo es que cuando alguno de esos valores numéricos sea negativo, imprimirlo en color ROJO para que sobresalga y llame la atención.
¿Alguna pista o referencia donde ...

Hola a todos, mi problema es el siguiente: tengo un archivo llamado enero.dat; donde no hay dato aparece un NaN (not a number), yo tengo que hacer gráficas con este archivo y el programa que utilizo no lo reconoce y tengo que reemplazarlos por 0 (ceros). Y son más de medio millón de datos y unos 50 mil corresponden a NaN y reemplazarlos uno por uno sería muy engorroso y demoroso. He hecho muchos script ...

Estoy utilizando el módulo Date::Manip y necesitaría sumar a una fecha N cantidad de días, y que contemple en el resultado los días no laborables.

Muchas gracias. :D

Hola, buenas, tengo una duda que no resuelvo.

Yo tengo por ejemplo:hola $manu;

Y yo quiero guardar en una variable "$manu" pero la cadena puede variar y nosotros no la sabemos, por ejemplo, "$alex". ¿Cómo podría hacer para guardar la cadena que me interesa sea cual sea en una variable?

Después tengo otros tipos de sintaxis por ejemplo:hola ("$manu");

Y el problema se complica por que la sintaxis también puede variar, es decir que no ...

Estoy trabajando con módulo de sesiones Apache::Session::Informix, pero el tamaño por default del módulo me queda chico.

tie %hash, 'Apache::Session::Informix', $id, {
DataSource => 'dbi:Informix:sessions',
UserName => $db_user,
Password => $db_pass,
Commit => 1,
LongReadLen=> 8*2**10, # 8 KB
};

¿Cómo debo expresar el LongReadLen=> 8*2**10 para duplicar el tamaño? Es correcto: LongReadLen=> 16*2**10, pero no me funciona.

Muchas gracias.

Hola qué tal, les comento que estoy haciendo un monitor de red, bueno el punto es que tengo un botón.

my $activar_seg = Gtk2::ToggleToolButton->new_from_stock('gtk-dialog-authentication'); la cual llama a una función donde se crea un hilo y dentro del hilo se encuentra el socket.

$activar_seg->signal_connect (clicked => \&ActivaS);

sub ActivaS{

my $togg = shift;

if ($togg->get_active) {

$hilo_seg = threads->create(
sub {
$sock = new IO::Socket::INET (
LocalHost => 'localhost',
LocalPort => 1100,
Proto => 'tcp', ...