Leser: 27
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
# Auslesen des Textfiles while ($q <= $m_line+2){ chomp ($read_file[$q]); while ($i < $n_column+1){ $start = index ($read_file[$q],";")+1; $matrix_entry = substr ($read_file[$q],$start); $stop = index ($matrix_entry,";"); $read_file[$q] = substr ($matrix_entry,$stop); $matrix_entry = substr ($matrix_entry,0,$stop); $matrix_entry =~ s/ //gi; push (@matrix_m_line, "$matrix_entry"); $i++; $j++; } push (@matrix, "@matrix_m_line"); @matrix_m_line = ""; $i=0; $q++; }
print "zeile 3: $matrix[3]\n";
1 2 3 4
print "eintrag (3,2): ${$matrix[3]}[2]\n"; print "eintrag (3,2): $matrix[3]->[2]\n"; print "eintrag (3,2): $matrix->[3]->[2]\n"; print "eintrag (3,2): $matrix[3][2]\n";
2009-03-24T10:59:18 SnickerDanke für den Hinweis mit Zeile 15! Jetzt funktioniert es. Habe die " " durch [ ] ersetzt.
@LanX: Welche Idee meinst du denn genau?
1 2 3 4 5 6
for my $line (@read_file[0..($m_line+2)]) { chomp($line); my @coloms=split(/;/,$line); push (@matrix, [@coloms[1..($n_column+1)]]); }
1 2 3 4 5 6 7
use strict; use warnings; use Data::Dumper; my @arr; @arr = ( [1, 2], {foo => [3, 5]}, [\@arr, "bar"] ); print Dumper(\@arr);