#!/usr/bin/perl

# Ejemplos de listas en perl

($dsem, $mes, $dia, $h, $zona, $year) = split(" ", `date`);

print "Año es: $year\n";

# saco los segundos de la hora, haciendo una lista
@m = split(":", $h);

print "segundos = $m[2]\n"; # las listas tambien son arreglos

($dsem, $mes, $dia, $h, $m, $s, $zona, $year) = split(/[ :]/, `date`);

print "segundos = $s\n";