Perl - Sammeln Sie alle von STDIN, bis leere Zeile oder EOF

Wie kann ich Sie sammeln alle Zeilen von STDIN Zeilen, bis eine leere Zeile oder EOF, je nachdem, was zuerst kommt. Es würde so Aussehen:

 my @lines;

 while(<> ne EOF || <> not blank) {
      chomp;
      push(@lines, $_);
 }
InformationsquelleAutor user974896 | 2012-11-05
  1. 0

    Zur Pause auf EOF oder eine leere Zeile:

    while ( ($_ = <>) =~ /\S/ ) {
   chomp;
   push @lines, $_;
}

    /\S/ testet, ob die Eingabe enthält alle nicht-whitespace-Zeichen.

    • Perfekt. Jeder soll geben Sie upvotes.
    • Eigentlich nicht. Das wird eine Warnung ausgeben, wenn es keine leeren Zeilen.
    • ikegami: nicht, wenn Sie nicht haben Warnungen aktiviert 🙂
    • Ich denke, dass while( defined($_ = <>) and /\S/ ){...} wäre besser.
    • Ich denke, Ilmari Karonen Antwort ist besser.
    InformationsquelleAutor mob
  2. 7

    Mehr Lesen Eingabe auf EOF oder eine leere Zeile, würde ich lieber diese Lösung:

    while (<>) {
    last unless /\S/;
    # do something with $_ here...
}

    Im Gegensatz zu Mobil-Lösung, diese wird es nicht geben eine Warnung über "Use of uninitialized value $_ in pattern match (m//)" EOF.

    InformationsquelleAutor Ilmari Karonen
  3. 1

    Wenn "leere" Zeile bedeutet, dass keine Zeichen innerhalb von nur new-line \n (Unix) oder \r\n (Windows), verwenden Sie dann

    my @lines;
/^$/ && last, s/\r?\n$//, push(@lines, $_) while <>;

    (siehe diese demo)

    Wenn "leere" Zeile sollte eine beliebige Anzahl von white-space-innen, wie "         ", dann verwenden Sie

    my @lines;
/^\s*$/ && last, s/\r?\n$//, push(@lines, $_) while <>;
    • Alle Ihre Antworten nur brechen, wenn Sie STRG+D gedrückt wird
    • Die <kbd>STRG</kbd><kbd>D</kbd> wird nur benötigt um das signal EOF beim arbeiten auf dem terminal. Wenn die Eingabe produziert in anderer Weise, z.B. Dateien oder pipes, die EOF implizit ist, und beendet das Programm.
    • Das ist wahr, amon. Ich wollte nicht darüber nachdenken.
    InformationsquelleAutor Ωmega
  4. 1

    Diese wird nur prüfen, für EOF:

    while (<>) {
    s/\s+\z//;
    push @lines, $_;
}

    So müssen Sie eine Prüfung auf leere Zeilen:

    while (<>) {
    s/\s+\z//;
    last if $_ eq "";
    push @lines, $_;
}

    Alternativ

    while (<>) {
    s/\s+\z//;
    push @lines, $_;
}

    ist die Abkürzung für

    while (defined( $_ = <> )) {
    s/\s+\z//;
    push @lines, $_;
}

    also, wenn Sie wollte, dass die ganze Bedingung in der while Bedingung, die Sie verwenden würden,

    while (defined( $_ = <> ) && /\S/) {
    s/\s+\z//;
    push @lines, $_;
}
    • Im Gegensatz zu der Antwort, die Sie akzeptiert, ist keine dieser Lösungen warnen.
    • Im Gegensatz zu Ωmega-Lösung, keine dieser Lösungen machen, die ungewöhnliche Annahme, dass trailing-whitespace signifikant ist.
    • Vielen Dank für die Aussage offensichtlich und zeigen die Mängel der chomp für mich.
    • Ich denke, dass /\S/ klarer wäre als !/^\s*\z/
    InformationsquelleAutor ikegami
Schreibe einen Kommentar