Práctica: Sin Distinguir Case

Escriba un programa que lea un fichero e imprima las líneas en orden ASCIIbético sin importar la caja, esto es si son mayúsculas o minúsculas. La siguiente sesión con el depurador sugiere una posible solución:

  DB<1> !!cat prueba.txt # Tenemos un fichero de entrada
C
A
a
B
d
B
b
  DB<2> open $F, "prueba.txt" # Lo abrimos para lectura 
  DB<3> @a = <$F>             # Y leemos
  DB<4> x @a                  # @a contiene las lineas 
0  'C                         # incluyendo retornos de
'                             # carro
1  'A
'
2  'a
'
3  'B
'
4  'd
'
5  'B
'
6  'b
'
  DB<5> x chomp(@a)          # Número de registros eliminados. Haga perldoc -f chomp
0  7
  DB<6> x @a
0  'C '
1  'A'
2  'a'
3  'B'
4  'd'
5  'B'
6  'b'
  DB<7> x sort { uc($a) cmp uc($b) } @a # perldoc -f uc
0  'A'
1  'a'
2  'B'
3  'B'
4  'b'
5  'C '
6  'd'