for (...) {
@row = ();
...
push(@maxtrix, \@row);
}
####
for (...) {
my @row;
...
push(@maxtrix, \@row);
}
####
use Data::Dumper qw( Dumper );
my $pos = tell(DATA);
{
my @matrix;
while () {
chomp;
@row = split(/:/, $_);
push(@matrix, \@row);
}
print(Dumper(\@matrix));
# $VAR1 = [
# [
# 'kaijugal',
# '789',
# 'ghi'
# ],
# $VAR1->[0],
# $VAR1->[0]
# ];
}
seek(DATA, $pos, 0);
{
my @matrix;
while () {
chomp;
my @row = split(/:/, $_);
push(@matrix, \@row);
}
print(Dumper(\@matrix));
# $VAR1 = [
# [
# 'ikegami',
# '123',
# 'abc'
# ],
# [
# 'steverippl',
# '456',
# 'def'
# ],
# [
# 'kaijugal',
# '789',
# 'ghi'
# ]
# ];
}
__DATA__
ikegami:123:abc
steverippl:456:def
kaijugal:789:ghi