Bienvenido a los foros de Perl en Español, UffPerl.
Con
split //, $linea podrás separar la línea entre caracteres. Y para guardarlo en una estructura bidimensional, lo más fácil es igual que cuando lo hacemos en lenguaje C: un array de array.
Por cada línea del fichero, lo transformamos en una lista de valores. Esa lista la transformamos en un array anónimo, que introducimos, como un solo elemento, como una fila más de la estructura bidimensional. En C ocupa unas cuantas líneas hacer todo esto (incluyendo la reserva de memoria). En Perl se hace en 3 líneas:
Using perl Syntax Highlighting
#!/usr/bin/perl
use Data
::Dumper;
open FICHERO
, "<texto.txt" or die "ERROR: No encuentro el fichero texto.txt\n";
@lineas = <FICHERO> or die "ERROR: No puedo leer el fichero\n";
close FICHERO
or die "ERROR: No puedo cerrar el fichero\n";
foreach ( @lineas ) {
push @rray, [ split // ];
}
print Dumper
(\@rray);
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Naturalmente, hay otras nueve formas distintas de conseguir hacer esto mismo...