Bonjour à tous,
J'ai une répertoire contenant plusieurs fichiers, le but est de supprimer le premier ligne à partir de chaque fichier ,
j'ai développé ce code, mais le résultat est que tous les fichiers sont vides , pouvez vous m'aider à trouver l'erreur ?

use strict;
use warnings;
use utf8;
use Encode;
use Encode::Guess;
use Devel::Peek;
 
 
 
 
my $new_directory = '/home/lenovo/Bureau/MesTravaux/SuppPremierLigne/corpus';
 
 
my $directory = '/home/lenovo/Bureau/MesTravaux/SuppPremierLigne/corpus';
 
my $FichierResulat = '/home/lenovo/Bureau/MesTravaux/SuppPremierLigne/rrrrr';
open( my $FhResultat, '>:encoding(UTF-8)', $FichierResulat );
my $dir = '/home/lenovo/Bureau/MesTravaux/SuppPremierLigne/corpus';
opendir (DIR, $directory) or die $!;
my @tab;
while (my $file = readdir(DIR)) {
 
        # Use a regular expression to ignore files beginning with a period
 next if ($file eq "." or $file eq ".." );
    #print "$file\n";
my $filename_read = decode('utf8', $file); 
        #print $FichierResulat "$file\n";
push @tab, "$filename_read";
 
    }
 
    closedir(DIR);
 
foreach my $val(@tab){
#print $FhResultat $val;
utf8::encode($val);
my $filename = $val;
open(my $in, '<:utf8', $filename) or die "Unable to open '$filename' for read: $!";
my $newfile = "$filename.new";
open(my $out, '>:utf8', $newfile) or die "Unable to open '$newfile' for write: $!";
my @ins = <$in>; # read the contents into an array
chomp @ins;
     # close the file handle
    shift @ins; # remove the first element from the array    
    #ecrire chaque ligne dans le fichier destinataire
    print $out   @ins;
close($in);
close $out;
#unlink($filename);
rename $newfile,$filename or die "unable to rename '$newfile' to '$filename': $!";
 
}

NB : mes fichiers sont des textes arabes, aussi les titres de ces fichiers sont aussi en arabe

use strict;
use warnings;
use autodie;
 
my $directory  = '/home/lenovo/Bureau/MesTravaux/SuppPremierLigne/corpus';
 
opendir (my $dh, $directory);
my @files = grep {!/^\.\.?$/} readdir($dh);
closedir($dh);
 
foreach my $file (@files) {
  open (my $fh, '+<', $file);
  # on lit le contenu comme un array
  my @content = <$fh>;
  # on vire la première ligne
  shift @content;
  # on rewind le fichier avant d'écrire dedans
  seek($fh, 0, 1); 
  # on écrit dans le fichier
  print $fh, join('', @content);
  close($fh);
}

Un truc comme ça, ça le fait pas?
 
A+,

non il m'affiche l'erreur 'No such file or directory' at /home/lenovo/Bureau/MesTravaux/remove_first_line.pl line 13
peut être parce que les noms des fichiers sont aussi en arabe ?

Mais non, c'est parce que tu appelles sur le nom sans path.
Il faut faire
open (my $fh, '+<', $directory.'/'.$file);
 
C'est un truc de base de perl: si je lis un nom de fichier avec readdir, alors le nom convient pour un open.
 
A+,

J'ai remplacé mais sur le terminal il m'affiche :GLOB(0x8a884bc)GLOB(0x8aacd88)  
et les fichiers ne sont pas modifiés (pas de suppression de premier ligne)

Et tu peux pas réfléchir un peu?
Il affiche GLOB(0x8a884bc)GLOB(0x8aacd88) donc il imprime deux valeurs a l’écran; ou dans le code y a t'il une instruction pour imprimer? un seul endroit, la ligne print $fh, join('', @content); et on voit tout de suite l'erreur: une virgule de trop, il fallait un print $fh join('', @content);
 
A+,

Merci pour la réponse et pour le temps perdu à me répondre..