Foro - Perl en Español

Hola, buenas. Hace poco que me he iniciado en esto de Perl. Mi duda es la siguiente:
Tengo un archivo de texto en la que hay diferentes matrices una debajo de otra y todas ellas ordenadas por números. Es decir:

Code: Seleccionar todo

#Matriz1
2 3 3
2 2 2
2 2 2
#Matriz2
1 1 1
2 2 2
3 3 3

Mi pregunta es ¿cómo hacer para leer por ejemplo la matriz 5? ¿Hay alguna forma ...

Hola de nuevo a todos,

Con el siguiente código, recupero la hora, minuto y segundos a partir de un "timestamp" (segundos desde Epoch).
($sec_low,$min_low,$hour_low,undef,undef,undef,undef,undef,undef) = gmtime($timestamp_low);
$new_format_low = $hour_low.":".$min_low.":".$sec_low;

Lo que quiero obtener en $new_format_low es algo con el formato siguiente:
HH:MM:SS

El problema que tengo, es que quiero que la hora, los minutos y los segundos esten siempre representados con 2 digitos:

ej: 12:04:04 en vez de 12:4:4

¿Alguien me puede echar una mano? ...

Hola a todos,

Estoy tratando de encontrar el medio de buscar líneas repetidas en un fichero (sin tener que buscar una por una, obviamente). Para ello intento usar UltraEdit, pero como no encuentro dicha funcionalidad, me estoy planteando crear un script Perl para eso.
¿Alguien sabe alguna forma de hacerlo sin pasar por el script?

¡Muchas gracias!
Felipe

Hola a todos,

El caso es que me imagino que dicho tema ya ha sido abordado en más de una ocasión en este foro (de hecho lo he podido constatar mediante la búsqueda). Si he decidido volver a abrir un hilo más sobre dicho tema, es simplemente porque libros sobre como programar en Perl salen como churros, y quizás haya alguno nuevo, a alguna nueva edición de un libro ya conocido recientemente publicado que podría ...

Hola a todos,

Estoy haciendo mis primeros pinitos con el debug de perl y tengo una duda que me ha surgido al intentar hacer un print de una variable:

p $displayFunction

Y lo que me muestra en pantalla es lo siguiente:

Code: Seleccionar todo

CODE(0x82788c)

¿De que se trata? De un hash creo que no pues si no ando equivocado, el propio debugger te lo indica al hacer el print.
¿Como hacer para mostrar el contenido de dicha ...

Hola amigos... no me ejecuta este cgi...
#!/usr/bin/perl

use strict;
use XML::RSS;
use LWP;
use Template;
use CGI;
use CGI::Carp qw( fatalsToBrowser );

sub _init {
my( $cgi, $url, $ua, $request, $response, $canal );
$cgi = CGI->new();
$url = $cgi->param('url') || 'http://www.cofradia.org/backend.php';
$ua = LWP::UserAgent->new;

$ua->agent('get_rdf/1.0 (' . $ua->agent . ')');
$request = HTTP::Request->new( GET => $url );
$response = $ua->request( $request );
croak "Error: No se pudo obtener la pagina pedida o el contenido ...

¿Cómo se hace correctamente el redondeo de un número con decimales en Perl?

Hola,

Soy nuevo en esto. Querría a partir de un array obtener aquellos elementos que están repetidos mediante la función grep. He intentado algo, pero no logro obtener resultados
@arreglo = (1,3,5,7,3,2,1,8,3,7,3,5,1);
@coinc=grep(/$_{3,}/ , @arreglo);
Gracias por anticipado a vuestras respuestas
jmdelcampo

Hola a todos,

if ($date =~ /^(\d{4})-(\d{2})-(\d{2})$/) {
$y_ = $1;
$mth_ = $2-1;
$d_ = $3;
$h_ = 0;
$min_ = 0;
$s_ = 0;
return timegm($s_,$min_,$h_,$d_,$mth_,$y_);
}

¿Alguien me podría decir qué devuelve la función timegm con todos esos argumentos? ¿En que formato?

Muchísimas gracias,
Felipe

Hola a todos, recien estoy conociendo lo que es Perl y encontre un buen tutorial de Uriel Lizama. Quisiera saber donde encuentro más información. Gracias