Hola a todos.
Estoy estudiando expresiones regulares, estoy analizando la salida del comando date:
jue dic 23 13:56:34 MST 2010
Quiero obtener toda la hora, estoy usando esto:
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
# jue dic 23 13:44:39 MST 2010
my $hora = ${\join(" ", qx|date|)} =~ m/(\d\d\:\d\d\:\d\d)/;
say $hora;
say $1;
Es extraño, en $hora se pone solo un 1, pero en $1 queda todo correcto.
¿Me podrían guiar?
Edito, ...