Re: generating rows(matrix) based on file content

[choroba]

Just go through the input file and assign ones to a new array to given indexes:

while (my $line = <>) {
    chomp $line;
    my (@columns) = split ' ', $line;
    my @switches = (0) x 6;
    unshift @switches, shift @columns; # runX kept.
    $switches[$_] = 1 for @columns;
    print join(' ', @switches), "\n";
}