print @array (Ausgabe gruppieren) - #176544 (Allgemeines zu Perl)

GUIfreund

2014-07-22 19:59

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

Hier ein etwas komplexeres Beispiel. Du müsstest es von Character auf Integer umbauen und an deine Vorlieben anpassen.

So drucke ich Sudokus, 9 Zeilen mit einer Leerzeile nach jeweils 3 Zeilen, in jeder Zeile ein Leerzeichen nach jeweils 3 Zeichen:

$puzzle_chars_ref ist eine Referenz auf ein Array mit 81 Elementen, ein Zeichen je Element (das zu druckende Array)

Code (perl): (dl )

    for ( my $pos = 0 ; $pos < $#$puzzle_chars_ref ; $pos += 9 ) {

        # for better human readability
        if ( $pos > 0 and $pos % 27 == 0 ) { print $out "\n" }
        printf $out "%s%s%s %s%s%s %s%s%s\n",
          ( @$puzzle_chars_ref[ $pos .. $pos + 8 ] );
    }

Gruß
GUIfreund