Bonjour,
je cherche à supprimer la 1ère ligne de plusieurs fichiers txt !
voici mon programme test qui marche bien pour un fichier déterminé : "test.txt"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w                       
 
open(FILE, "< test.txt" )
or die ("prob a l'ouverture du fichier" );
@save = <FILE>;
    close(FILE);
   foreach (@save)
{
   $_ = "" if ($_ =~ m/AMR/);
   chomp $_;
 }
 open(FILE, ">test.txt" )
     or die ("prob a l'ouverture du fichier" );
 foreach (@save)
{
    print FILE $_."\n" if ($_);
}
 close(FILE);
j'aimerais pouvoir utiliser mon programme pour plusieurs fichiers à la fois c'est à dire qu'au lieu de lancer le script n fois pour les n fichiers je voudrais pouvoir taper un commande du style test.pl * qui me permettrait de traiter tous les fichiers de mon répertoire. Les fichiers de sorties doivent avoir le même nom que les fichiers d'entrée
Si vous pouviez me donner un coup de main ce serait sympa

merci BEAUCOUP