lhp@nereida:~/alu/0607$ perl -wde 0
main::(-e:1):   0
  DB<1> use List::Util qw(sum)
  DB<2> p sum(map { -s $_ } <alu*>)
163840
En este código, la lectura <alu*> se produce en un
contexto de lista. Por ello el directorio completo es leído y produce una lista con todos los
nombres de ficheros y directorios alu* existentes en el directorio actual. El subsecuente
map produce los tamaños y la llamada a sum devuelve el tamaño total.
Casiano Rodríguez León
