Beste Weg, um eine formatierte Ausgabe mit Perl

Will ich die Ausgabe-strings in acht Spalten, aber ich will, dass die Abstände gleich. Ich will nicht, es zu tun in HTML, aber ich bin nicht sicher, wie Sie Sie tun es in der Regel. Beispiel:

Something    Something     Something     Something     Something
Else         Else          Else          Else          Else
Another      Another       Another       Another       Another

Höhe von Zeilen ändern sich täglich, aber die Spalte Anzahl wird immer die gleichen bleiben. Was ist der beste Weg, dies zu tun?

InformationsquelleAutor shinjuo | 2010-07-25

  1. 16

    printf ()

        printf "%-11s %-11s %-11s %-11s %-11s %-11s %-11s %-11s\n",
            $column1, $column2, ..., $column8;

    Ändern "11" in der Vorlage, was auch immer Wert, den Sie brauchen.

    Das ist perfekt, danke, als ich danach gegoogelt fand ich alle diese komplizierten Methoden.
    Als entgangen, wenn die Dinge scheinen kompliziert, ist es in der Regel bedeutet, Sie haben mehr Kontrolle/Möglichkeiten. printf ist sehr mächtig, aber Bedenken Sie format wenn Sie gehen, um zu drucken formatierte Berichte. format gibt die Möglichkeit zum hinzufügen von Kopf - /Fußzeilen, wodurch die Ausgabe-Dateien einfacher zu Bearbeiten.
    Ich nicht brauchen, um technisch mit Header oder so etwas. Ist es nur um Dinge, die die Ausgabe in eine schöne Sicht auf einem Blatt
    Dann printf wahrscheinlich ist, was benötigt wird. Wenn Ihre Daten in einem array, siehe meine Antwort auf wie übergeben Sie den array-Werte als Parameter übergeben Sie den gesamten array-Liste, anstatt die Angabe jeder Knoten unabhängig voneinander.

    InformationsquelleAutor mob

  2. 11

    Könnten Sie Perl -format.
    Dies ist wahrscheinlich die "komplizierte" Methode, die Sie nicht verstehen, wahrscheinlich, weil es gibt Ihnen viele Optionen (Links|Mitte|rechts-Rechtfertigung/Polsterung führende 0, etc).

    Perldoc Beispiel:

    Example:
   format STDOUT =
   @<<<<<<   @||||||   @>>>>>>
   "left",   "middle", "right"
   .
Output:
   left      middle    right

    Hier's noch ein tutorial.

    Beispiel: (Codepad)

    #!/usr/bin/perl -w    

use strict; 

   sub main{    
      my @arr = (['something1','something2','something3','something4','something5','something6','something7','something8']
                ,['else1'     ,'else2'     ,'else3'     ,'else4'     ,'else5'     ,'else6'     ,'else7'     ,'else8'     ]
                ,['another1'  ,'another2'  ,'another3'  ,'another4'  ,'another5'  ,'another6'  ,'another7'  ,'another8'  ]
                );

      for my $row (@arr) {
         format STDOUT =
@<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  
         @$row
.
         write;
      }

   }    

   main();

    InformationsquelleAutor vol7ron

  3. 3

    Ich würde schauen Formatierung, aber ich würde es tun, mit perl6 Form.Uhr, die Sie erhalten können, wie Perl6::Form für perl5.

    Der Grund dafür ist, dass das format vordefiniert hat eine Anzahl von Nachteilen auf, wie mit der format-statisch definiert zur compile-Zeit (ich.e-Gebäude dynamisch kann schmerzhaft sein und erfordert in der Regel string-eval), zusammen mit einer ganzen Liste von anderen Unzulänglichkeiten, wie das fehlen von nützlichen Feld-Typen (und man kann nicht verlängern diese in perl5).

    The amount of rows will change daily but the column number will always stay the same. Keine Notwendigkeit zu erstellen oder dynamisch mit eval.

    InformationsquelleAutor lochii

  4. 2

    Hier ein live Beispiel von Perl6::Form:

    #!/usr/bin/perl

use Perl6::Form;

my @arr = (
    [1..8],
    [9..16],
    [17..24],
);

foreach my $line (@arr) {
    print form
        "{<<<<<} "x8,
        @{$line};
}

    Wird es ausgegeben wird:

    1       2       3       4       5       6       7       8
9       10      11      12      13      14      15      16
17      18      19      20      21      22      23      24

    InformationsquelleAutor bessarabov

Schreibe einen Kommentar