Lire des arguments à partir d'un fichier

Bonjour,
J'ai un souci en perl qui je pense qu'il est bête :p mais je suis encore un debutant en programation perl,
je voudrais lire et afficher des argument apartir d'un fichier text. mais j'ai sur chauqe ligne 2 arguments qui sont séparé par une tabulation

voila mon fichier perl il affiche seulement le contenu de chaque ligne moi j'aimerai afiché le peremier argument et le 2 éme qui est séparer par une tabulation

Code:

---

1 2 3 4 5 6 7

my $filename= "in.txt"; open (my $fh, '<' , $filename) or die "Impossible d'ouvrir le fichier '$filename' en lecture"; while(my $nom = <$fh>){   print $nom; }

---

et voila mon fichier in.txt

Code:

---

1 2 3 4

argument 1 argument2 test1 test2 .....1 .........2

---

Bonjour,

dsl, je n'ai pas bien compris ce que tu veux obtenir. Pourrais-tu donner un exemple du résultat désiré?

Tu veux peut-être découper les lignes en entrée et afficher les morceaux sur des lignes différentes? ou autre chose?

merci pour votre retour
pour mon code la variable $nom affiche toute la ligne moi j'aimerai faire 2 variabla $no et $prenom par exemple dont $nom affiche argument 1 et $prenom affiche argument2

Essaie de modifier comme suit la boucle de lecture du fichier:

Code:

---

1 2 3 4 5 6

while (my $lignes = <$fh>){ chomp $ligne; my ($nom, $prenom) = split /\s+/, $ligne; print "Nom = $nom, Prénom = $prenom \n"; }

---