Pytanie : Kolumna

I mieć tekst kartoteka że I czytać w the program. The dane w the tekst kartoteka być podobieństwo podobieństwo:

blah 34 34 01/01/01

I am ciekawić w the "34" ten linia. I życzyć wszystko the "34's" the kartoteka i wszystko w jeden długa linia, z astronautyczny in-between each. W Ten Sposób, jeżeli the kartoteka być 20 linia długi, then the drukować linia miewać 20 rzecz w ono.

I znać że I móc na pusty przestrzeń. na przykład I używać coś jednakowy the następujący w przeszłości:

while () {
mój @f=split/\ s+/;
}


I znać jeżeli I czytać the dane w szyk, I musieć sprawnie the drugi element drugi linia $f jednakowy $f [(1)]. Ale I chcieć inny kolumna z właśnie the dane I chcieć, I życzyć właśnie linia lub rząd the dane I chcieć. I iść ostatecznie przed the drukowany linia, długi linia, ale the kolumna kreskowy mechanik wydawać się kreskowy.

Any myśl?

Odpowiedź : Kolumna

tak, the główny punkt być że the liczba (w the przykład nad "34") przechować w $1.
jeżeli ty chcieć pełny linia próba chcieć jak
$ret = "";
podczas gdy ()
{
        $_=~/^ [^ \ D] + (\ d+) [\ w \ W] +;
        $ret. = $1. "";
}
/* teraz $ret zawierać wszystkie the 34's w linia oddzielać przestrzeń. *