Question : Colonne à rayer

J'ai un dossier des textes que je lis dans le programme. Les données dans le dossier des textes sont goût composé :

blah 34 01/01/01

I AM intéressé aux « 34 » de cette ligne. Je souhaite prendre tout les « 34's » du dossier et les imprimer dehors dans une longue file, avec un espace entre chacun. Ainsi, si le dossier était 20 lignes longtemps, puis la ligne imprimée en résultant aurait 20 articles dans elle. le

I savent que je peux séparer sur l'espace vide. par exemple j'ai employé quelque chose semblable au suivant dans le passé :

while () {
mon/de @f=split \ s+/; le


I du
} savent si je lis les données dans une rangée, je devrait pouvoir imprimer le deuxième élément de chaque ligne en disant quelque chose semblable pour imprimer $f [1]. Mais je ne veux pas créer une autre colonne avec juste les données que je veux, je souhaite imprimer une ligne ou une rangée des données je veux. Je vais mettre par la suite quelque chose devant la ligne imprimée, former une plus longue ligne, mais la colonne à une ligne mécanicien semble m'échapper à l'heure actuelle. pensées du

Any ? class= de

Réponse : Colonne à rayer

oui, la question principale était que le nombre (dans l'exemple au-dessus de « 34 ») est stocké dans $1.
si vous voulez un en trait plein essayer quelque chose comme
$ret = "" ;
tandis que ()
{
        $_=~/^ [^ \ d] + (\ d+) [\ W \ W] + ;
        $ret. = $1. « « ;
}
/* maintenant $ret contiendra tout le 34's dans une ligne séparée par les espaces. *