Questione : Colonna da allineare

Ho una lima di testo che sto leggendo nel programma. I dati nella lima di testo sono simile formattato:

blah 34 01/01/01

I interessato “ai 34„ di quella linea. Desidero prendere tutto “34's„ della lima e stamparlo fuori in una lunga fila, con uno spazio fra ciascuno. Così, se la lima fosse lungamente 20 linee, quindi la linea stampata risultante gli avrebbe 20 articoli. il

I sa che posso separare su spazio in bianco. per esempio ho utilizzato qualche cosa di simile a quanto segue nel passato:

while () {
mio/\ s+/del @f=split; il


I del
} sa se leggo i dati in un allineamento, io dovrebbe potere stampare il secondo elemento di ogni linea dicendo qualche cosa di simile per stampare $f [1]. Ma non voglio generare un'altra colonna con appena i dati che voglio, desidero stampare fuori una linea o una fila dei dati voglio. Sto andando finalmente mettere qualcosa davanti alla linea stampata, formare una linea più lunga, ma la colonna ad una linea meccanico sembra fuoriuscirla al momento. pensieri del

Any? class= del

Risposta : Colonna da allineare

sì, la questione principale era che il numero (nell'esempio sopra “34„) è immagazzinato in $1.
se volete una linea completa prova qualcosa come
$ret = "";
mentre ()
{
        $_=~/^ [^ \ d] + (\ d+) [\ w \ W] +;
        $ret. = $1. ““;
}
/* ora $ret conterrà tutto il 34's in una linea separata dagli spazi. */