Discussion :

[Isabella83]

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 :

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
#!/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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Beniou]

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 :

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
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 : $!";
 
}

[Grumphette]

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

[djibril]

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.