Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Estoy estudiando expresiones regulares, estoy analizando la salida del comando date:
Quiero obtener toda la hora, estoy usando esto:
Using perl Syntax Highlighting
- #!/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;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Es extraño, en $hora se pone solo un 1, pero en $1 queda todo correcto.
¿Me podrían guiar?
Edito, me respondo, según yo join() trabajaba en contexto de arreglo, el 1 que me regresa es porque haya solo una coincidencia. Para arreglarlo solo he hecho: