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*>) 163840En 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