Bonojur,

Je voudrais pourvoir :
1- copier la 3ième ligne d'un fichier .txt et la recopier dans un fichier resultat.txt
2- Faire cela pour l'ensemble des fichier .txt se trouvant dans le dossier

Je sais que c'est possible avec perl, mais je sais pas comment, je suis plus que débutant.

Je sais juste ouvrir un seul fichier txt, puis copier la premiere ligne :

cf :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
open(tmp1, "seq1.txt");
$nom1=<tmp1>;
open(tmp3, ">sequence.txt");
$nom3="$nom1"."\n";
print tmp3 "$nom3";
close(tmp1);
close(tmp3);
Ce que j'arrive pas, c'est a récuperer la ligne 3 et de faire une automatisation (boucle) pour l'ensemble d'un dossier...

Vous pouvez m'aider et me donner des pistes? Merci