La Lectura en un Contexto de Lista

En un contexto de lista el operador <STDIN> lee todas las líneas restantes en la entrada y las almacena en una lista. Por ejemplo:

lhp@nereida:~/Lperl/src$ perl -wde 0
main::(-e:1):   0
  DB<1> !!cat prueba1.txt
12
23
3
4
2
1
  DB<2> open $f, 'prueba1.txt'
  DB<3> @x = <$f>
  DB<4> chomp(@x)
  DB<5> x @x[-3..-1]
0  4
1  2
2  1
  DB<6> $/ = '3'
  DB<7> open $f, 'prueba1.txt'
  DB<8> @x = <$f>
  DB<9> chomp(@x)
  DB<10> x @x
0  '12
2'
1  '
'
2  '
4
2
1
'
Leemos y almacenamos las líneas en el array @x. La orden chomp Elimina todos los separadores de registro de todas las líneas en la lista.

Ejercicio 1.13.5   ¿Porqué han desaparecido los 3 en la salida de la línea 10?

Casiano Rodríguez León
2011-04-15