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'
Casiano Rodríguez León