Frage : Spalte zum zu zeichnen

Ich habe eine Textdatei, dass ich in das Programm lese. Die Daten in der Textdatei sind formatiertes Gleiches:

blah 34 Blabla 01/01/01

I morgens interessiert an den „34“ dieser Linie. Ich möchte alles „34's“ der Akte nehmen und sie heraus in einer langen Schlange, mit einem Raum zwischen jedem drucken. So wenn die Akte 20 Linien lang war, dann die resultierende gedruckte Linie würde 20 Einzelteile in ihr haben.

I wissen, dass ich auf Leerstelle mich trennen kann. zum Beispiel ich habe etwas verwendet, das dem folgenden in der Vergangenheit ähnlich ist:

while () {
mein @f=split/\ s+/;
}


I wissen, wenn ich die Daten in eine Reihe lese, ich sollte in der Lage sein, das zweite Element jeder Linie zu drucken, indem es etwas sagt, das, um $f [1] zu drucken ähnlich ist. Aber ich möchte nicht eine andere Spalte mit gerade den Daten herstellen, die ich wünsche, möchte ich eine Linie oder eine Reihe der Daten ausdrucken ich wünsche. Ich werde etwas vor der gedruckten Linie schließlich setzen, eine längere Linie zu bilden, aber die Spalte zu einer Linie Mechaniker scheint, mir im Augenblick zu entgehen.

Any Gedanken?

Antwort : Spalte zum zu zeichnen

ja war die Hauptsache, dass die Zahl (im Beispiel über „34“) in $1. gespeichert.
wenn Sie eine volle Linie Versuch etwas wie wünschen
$ret = "";
während ()
{
        $_=~/^ [^ \ d] + (\ d+) [\ w \ W] +;
        $ret. = $1. „„;
}
/* jetzt $ret enthält das ganzes 34's in einer Linie, die durch Räume. getrennt. *