Pergunta : Coluna a alinhar

Eu tenho uma lima de texto que eu estou lendo no programa. Os dados na lima de texto são gosto formatado:

blah 34 01/01/01

I am interessado nos “34” dessa linha. Eu desejo tomar todo o “34's” da lima e imprimi-lo para fora em uma fila grande, com um espaço entre cada um. Assim, se a lima era 20 linhas por muito tempo, a seguir a linha impressa resultante teria 20 artigos nela. o

I sabe que eu posso separar no espaço em branco. por exemplo eu usei algo similar ao seguinte no passado:

while () {
meu/do @f=split \ s+/; o


I do
} sabe se eu leio os dados em uma disposição, mim deve poder imprimir o segundo elemento de cada linha dizendo algo similar imprimir $f [1]. Mas eu não quero criar uma outra coluna com apenas os dados que eu quero, eu desejo imprimir para fora uma linha ou uma fileira dos dados eu quero. Eu estou indo põr eventualmente algo na frente da linha impressa, dar forma a uma linha mais longa, mas a coluna a uma linha mecânico parece escapar-me neste momento. pensamentos do

Any? class= do

Resposta : Coluna a alinhar

sim, a questão básica era que o número (no exemplo acima de “34”) está armazenado em $1.
se você quer uma linha cheia tentativa algo como
$ret = "";
quando ()
{
        $_=~/^ [^ \ d] + (\ d+) [\ w \ W] +;
        $ret. = $1. ““;
}
/* agora $ret conterá todo o 34's em uma linha separada por espaços. *