OVH Cloud OVH Cloud

Problème avec qx (débutant)

2 réponses
Avatar
Hugues Peeters
Bonjour à tous,

Désolé si cette question à été posée récemment. Mais je tourne en rond
depuis deux heures et je ne trouve pas solution à mon problème.

Je rencontre des difficulé avec qx. Voici le morceau de code qui me
tourmente.

$find_command =
"find $source_dir -mtime -$nb_days_since_last_archive -printf %P\\\\n";

$found_files_list = qx|$find_command|;

Quand j'exécute le contenu de la chaine $find_command dans un shell,
je ne rencontre aucun problème. Mais quand j'exécute cette commande par
le biais de qx, le système me renvoie

find: invalid argument `-' to `-mtime'

Aurais-je oublié quelque chose ?

En vous remerciant d'avance.

Cordialement,

Hugues
peeters@ipm.ucl.ac.be

2 réponses

Avatar
Freddo
Hugues Peeters wrote:
Bonjour à tous,


Salut!

$find_command =
"find $source_dir -mtime -$nb_days_since_last_archive -printf %P\n";

$found_files_list = qx|$find_command|;

Quand j'exécute le contenu de la chaine $find_command dans un shell,
je ne rencontre aucun problème. Mais quand j'exécute cette commande par
le biais de qx, le système me renvoie

find: invalid argument `-' to `-mtime'

Aurais-je oublié quelque chose ?


de mettre des valeurs ds tes variables?

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $source_dir = '.';
my $nb_days_since_last_archive=5;

my $find_command = "find $source_dir -mtime -$nb_days_since_last_archi ve -printf %P\n";
my $found_files_list = qx|$find_command|;
print $found_files_list;

Ca fonctionne ici en tt cas...

Bonne journee,
Freddo

Avatar
Hugues Peeters
Aurais-je oublié quelque chose ?


de mettre des valeurs ds tes variables?

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;


Je suis confus. C'était en effet un problème de faute de
frappe dans la variable. Je retiens la leçon (use strict;
use warnings;). Merci pour le tuyau.

Cordialement,

Hugues Peeters