Comment éviter d'imprimer sur STDOUT en utilisant `IPC :: System :: Simple: runx` de Perl?

Question

J'utilise IPC::System::Simple:runx pour exécuter des commandes système et mourir sur des valeurs de retour inattendues. Le problème est que la sortie des commandes est imprimée sur le shell.

1. Comment puis-je éviter d'imprimer cette sortie ?
2. Comment puis-je éviter d'imprimer cette sortie mais de la placer dans une variable perl?

MISE À JOUR

3) Comment puis-je imprimer cette sortie ssi l'exécution échoue?

Answer 1

La commande capture()? Ou capturex().

Tiré du lien:

Gestion des exceptions

Dans le cas où jetteront une exception, qui sinon pris la commande retourne un état inattendu, à la fois l'exécution et la capture mettra fin à votre programme avec un Erreur.

Capturer l'exception est facile:

eval { 
    run("cat *.txt"); 
}; 

if ($@) { 
    print "Something went wrong - $@\n"; 
} 

Voir la section de diagnostic ci-dessous pour plus de détails.

Answer 2

Si un module se comporte très mal et imprime directement dans STDOUT, vous pouvez toujours rediriger STDOUT vers autre chose. Ce genre de piratage mais certains modules l'exigent.

# Save STDOUT for restore later 
open(OLD_STDOUT, ">>&STDOUT"); 
open(STDOUT, ">/some/file/or/dev/null"); 
# call your module 
# Restore STDOUT 
open(STDOUT, ">>&OLD_STDOUT");