Thread matrix in loop aufbauen mit Referenzen als zeilen (7 answers)
Opened by kajax01 at 2011-02-09 20:29

MatthiasW
 2011-02-09 22:12
#145532 #145532
User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]
Angenommen in jeder Datei steht ein Zeilenvektor der Matrix und zwar eine Zahl des Zeilenvektors pro Zeile der Datei:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

my @files = qw( 1.txt 2.txt 3.txt );
my @matrix;

for my $file ( @files ) {
    open my $fh, '<', $file;
    push @matrix, [ map $_+0, <$fh> ];
}

for my $i ( 0 .. $#matrix ) {
    my $row = $matrix[$i];
    print "$i: @$row\n";
}

MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View full thread matrix in loop aufbauen mit Referenzen als zeilen