Perl-Skript zur Verknüpfung mehrerer Linien in einzelnen Linie nach einem Trennzeichen

Mir immer die Nachrichten von dem remote-system , die Reaktion sind multi line und ich haben, es zu konvertieren in eine einzige Linie auf der Grundlage der Trennzeichen.

den Inhalt des stream-reader sind wie unten

Iam in first Line
Iam in second Line
:

Iam in third Line
Iam  in the forth Line
Iam in fifth Line
:

Iam in Sixth Line
Iam In seventh Line
IAm in Eighth Line
:

Mehrere Zeilen der Antwort sollte umgewandelt werden in eine einzige, bis das Trennzeichen ":"

Bitte beachten Sie, dass im Lesen aus dem remote-system, das nicht aus einer Datei,deren kontinuierliche und nicht über ein eof.bis die Verbindung mit dem remote-system beendet

Ausgabe sollte sein :

Iam in first Line Iam in second Line:
Iam in third Line Iam in the forth Line:
Iam in Sixth Line Iam In Seventh Line Iam in Eighth Line:

Kann mir bitte jemand helfen, einen Ansatz oder einen Befehl um dies zu erreichen?

  • Willkommen ALSO. Was haben Sie versucht? Post-was auch immer code, den Sie geschrieben haben. Bitte Lesen Sie auch die FAQ und stellen für Tipps zum schreiben von guten Fragen. Hinweis: um jemanden darum zu Bitten, Ihre Arbeit für Sie nicht angemessen ist.
  • Sorry..ich konnte meine codes in der Frage...wie war es wirft einige Fehler...hatte um es zu entfernen, irgendwann..
InformationsquelleAutor Prez27 | 2012-11-09
  1. 3

    Einen Weg:

    $ perl -pne 'chomp unless(/^:/);' file
Iam in first LineIam in second Line:
Iam in third LineIam  in the forth LineIam in fifth Line:
Iam in Sixth LineIam In seventh LineIAm in Eighth Line:
    • Naja...ich will eingebettete dieses code-Schnipsel in meinem bestehenden perl-Skript...wo Lesen Sie aus dem remote-system nicht aus der Datei.. $_ = <READPIPE>; $_ hat die oben genannten Meldungen, ich habe versucht, mit dem chomp Befehl, es sei denn, ..aber es scheint nicht zu funktionieren. Es ist eine andere alterantive..
    • Fügen Sie den code in Anführungszeichen sofort nach Ihrem $_= "< " LESEN...>
    • Sie können laufen die liner mit dem Befehl switch -MO=Deparse zu sehen, der vollständige code: perl -MO=Deparse -pe'chomp unless /^:/' gibt so etwas wie while (defined($_ = <PIPE>)) {chomp $_ unless /^:/} continue {die "-p destination: $!\n" unless print $_}
    InformationsquelleAutor Guru
  2. -1
    perl -p -e 's/\n//g;s/:[\s]*/:\n/g' your_file

    getestet unter:

    > cat temp
Iam in first Line
Iam in second Line
:

Iam in third Line
Iam  in the forth Line
Iam in fifth Line
:

Iam in Sixth Line
Iam In seventh Line
IAm in Eighth Line
:
> perl -p -e 's/\n//g;s/:[\s]*/:\n/g' temp
Iam in first Line Iam in second Line :
 Iam in third Line Iam  in the forth Line Iam in fifth Line :
 Iam in Sixth Line Iam In seventh Line IAm in Eighth Line :
>
    • So Betten Sie den obigen Befehl in mein perl-script.wo Lesen Sie aus dem remote-system nicht aus der Datei.. $_ = <READPIPE>; $_ hat die oben genannten Meldungen. Auch können Sie erklären, wo Sie die Prüfung für das Trennzeichen ":" in dem obigen code-snippet
    InformationsquelleAutor Vijay
Schreibe einen Kommentar