Discussion :

[Jasmine80]

Code :

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

system('C:/Program Files/primer3/bin/primer3_core.exe < P:/Files/test.txt') and print $!;

'C:/Program' n'est pas reconnu en tant que commande interne
ou externe, un programme ex‚cutable ou un fichier de commandes.

L'espace du nom du répertoire semble poser problème.
Le $! est-il utile dans ce cas-ci?

via une recherche sur le forum, je suis tombée sur un problème similaire résolu avec quotemeta http://www.developpez.net/forums/d21...-sous-windows/

Mais dans mon cas, cela ne fonctionne pas car trop de backslashes sont rajoutés

Code :

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

1
2
my $executable = quotemeta('C:/Program Files/primer3/bin/primer3_core.exe');
system(" $executable < P:/Files/test.txt") and print $!;

'C\:\' n'est pas reconnu en tant que commande interne
ou externe, un programme ex‚cutable ou un fichier de commandes.

et si je rajoute un seul backslash devant l'espace, cela ne fonctionne pas non plus.

Code :

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

system(" C:/Program\ Files/primer3/bin/primer3_core.exe < P:/Files/test.txt") and print $!;

'C:/Program' n'est pas reconnu en tant que commande interne
ou externe, un programme ex‚cutable ou un fichier de commandes.

Avez-vous une autre idée?


Merci,

[iblis]

Je ne connais rien à Windows mais que se passe-t-il si tu utilises des double-quote à l'intérieur de single-quote:

Code :

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

system('"C:/Program Files/primer3/bin/primer3_core.exe" < P:/Files/test.txt') and print $!;

[Jasmine80]

Je ne connais rien à Windows mais que se passe-t-il si tu utilises des double-quote à l'intérieur de single-quote:

Code :

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

system('"C:/Program Files/primer3/bin/primer3_core.exe" < P:/Files/test.txt') and print $!;

Oui, ça fonctionne Merci

Pour le $! est-ce utile dans ce cas-ci?

Le fichier d'entrée, ne contient qu'une seule ligne, sais-tu si il y a moyen de la passer directement et éviter ainsi de devoir 1) créer un fichier, 2) y copier mes données, 3) appelé l'exécutable sur ce fichier, 4) détruire ce fichier?

[iblis]

[QUOTE=Jasmine80;3952971]Pour le $! est-ce utile dans ce cas-ci?/QUOTE]

Je pense que oui, pour savoir si l'appel s'est bien passé. J'utiliserai plutôt un warn (pour avoir l'erreur sur STDERR plutôt que STDOUT).

Le fichier d'entrée, ne contient qu'une seule ligne, sais-tu si il y a moyen de la passer directement et éviter ainsi de devoir 1) créer un fichier, 2) y copier mes données, 3) appelé l'exécutable sur ce fichier, 4) détruire ce fichier?

Cela dépend de ton éxécutable. Lit-il l'entrée standard? Sous Unix tu pourrais faire:

Code shell :

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

echo "mydata" | mycommand

[djibril]

une autre façon d'utiliser system

Code :

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

system("Ma commande ") == 0 or die "system erreur $?"

Sinon il y a aussi le module System2

[djibril]

et aussi Perl6::Builtins

[Jasmine80]

Oui, c'est vrai dans 'Perl Best Practice' ils conseillent également d'utiliser

Code :

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

use Perl6::Builtins qw( system );

ou

Code :

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

1
2
3
4
5
use POSIX qw ( WIFEXITED )
 
 
WIFEXITED(system $cmd)
   or croak "Couldn't run : $cmd ('$OS_ERROR)";

... la raison est qu'utiliser un
system ... and ... est contre-intuitif

... néanmoins, est-ce vraiment utilise de surcharger le code, d'appeler un module en plus pour si peu?

Code :

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

echo "mydata" | mycommand

Je vais voir si l'équivalent existe en Windows


Merci à vous deux pour vos réponses.