Perl - commande pipe dans un autre

Question

question rapide,

est-il un moyen de conduite d'une commande dans une autre commande via perl comme vous pouvez dans la ligne de commande * Nix?

Par exemple:
free -m | grep Mem

Comment pourrais-je être capable de faire la "tuyauterie" en Perl?

Answer 1

Vous pouvez appeler la commande exactement comme ça:

system("free -m | grep Mem"); 

De l'documentation:

S'il n'y a qu'un seul argument scalaire, est vérifié l'argument de métacaractères, et s'il y a any, l'argument entier est passé à l'interpréteur de commandes du système pour l'analyse (c'est/bin/sh -c sur les plates-formes Unix, mais varie sur d'autres plates-formes). S'il n'y a pas de métacaractères dans l'argument, il est divisé en mots et transmis directement à execvp, ce qui est plus efficace.

Vous pouvez faire la même chose avec d'autres méthodes pour appeler des commandes externes, comme open:

open my $fh, "-|", "free -m | grep Mem" or croak "failed to run pipeline"; 
# and now read from $fh as usual