commande unix en perl

Bonjour à tous,

Je cherche à exécuter des commandes unix directement à partir d'un script perl. j'ai des fichiers dont l'extension est .fa.ct et je voudrais les modifier en .ct ; j'arrive très bien à le faire grace à la commande unix :
ls *.fa.ct | sed 's/\(.*\)\.fa\.ct/mv \1\.fa\.ct \1\.ct/g' | sh

mais quand je l'inclus dans mon script perl comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings;     my $rep = "/home/stephanie/Téléchargements/unafold-3.8/Liste25_négative";   chdir $rep;   my @ss_file = glob('*.fa.ct');   foreach my $v (@ss_file) { `s/\(.*\)\.fa\.ct/mv \1\.fa\.ct \1\.ct/g` ; print $v."\n";     }

---

D'un part, j'obtiens l'erreur :

Code:

---

sh: Syntax error: word unexpected (expecting ")")

---

et ensuite cela ne modifie pas le nom de mes fichiers dans mon dossier. Peut être que ce type de commande n'est pas réalisable via perl ?

Merci d'avance pour vos réponses.

bonjour,

Plutôt que d'utiliser une commande unix, il vaut mieux utiliser la fonction move du module File::Copy (ca sera plus portable)

Voici un exemple qui devrait marcher :
1) on liste les fichiers .fa.ct
2) on substitue l'extension par .ct
3) on déplace le fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use warnings; use File::Glob ':glob'; use File::Copy;     my @files_fa_ct = bsd_glob("*.fa.ct");   foreach my $file_fa_ct(@files_fa_ct){   my $ct_outfile = $file_fa_ct; $ct_outfile =~ s/.fa.ct$/.ct/;   move($file_fa_ct, $ct_outfile) or die "move error : $!";   }

---

je vois que tu es sous linux, un appel system à rename ça fait la même chose non? et ptet avec un peu moins de ressource systeme, parce que rien ne garanti que ses fichiers soient petit et les copiers peut prendre un peu de temps.

Grumphette

Il n'y a aucun intérêt de faire du perl pour appeler de l'unix lorsque l'on peut le faire directement en Perl. Utilise directement la fonction rename de Perl.