Cuestión : Columna a alinear

Tengo un archivo de texto que estoy leyendo en el programa. Los datos en el archivo de texto son gusto formatado:

blah 34 01/01/01

I interesado en los “34” de esa línea. Deseo tomar todo el “34's” del archivo e imprimirlo hacia fuera en una larga cola, con un espacio entre cada uno. Así pues, si el archivo fuera 20 líneas de largo, después la línea impresa resultante tendría 20 artículos en ella. el

I sabe que puedo separarme en espacio en blanco. por ejemplo he utilizado algo similar al siguiente en el pasado:

while () {
mi/\ s+/del @f=split; el


I del
} sabe si leo los datos en un arsenal, yo debe poder imprimir el segundo elemento de cada línea diciendo algo similar para imprimir $f [1]. Pero no quiero crear otra columna con apenas los datos que quiero, deseo imprimir una línea o una fila de los datos quiero. Voy a poner eventual algo delante de la línea impresa, formar una línea más larga, pero la columna a una línea mecánico parece escaparme en el momento. ¿pensamientos del

Any? class= del

Respuesta : Columna a alinear

sí, la cuestión principal era que el número (en el ejemplo sobre “34”) está almacenado en $1.
si usted quiere una línea completa intento algo como
$ret = "";
mientras que ()
{
        $_=~/^ [^ \ d] + (\ d+) [\ w \ W] +;
        $ret. = $1. ““;
}
/* ahora $ret contendrá todo el 34's en una línea separada por los espacios. *