Contenu | Rechercher | Menus

Annonce

Ubuntu-fr vend de superbes t-shirts et de belles clés USB 32Go
Rendez-vous sur la boutique En Vente Libre

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#1 Le 28/01/2020, à 12:46

Abrisbus

Besoin d'aide sur un script Perl

Bonjour,

Tout d'abord, désolé si ma question n'est pas bien placée dans ce forum.
Je suis novice en programmation et j'ai à débugger un script écrit sous Perl.
Dans ce script, il y a une la fonction suivante :

# Executing a command to retrieve json data.
sub retrieve_json_data {
    my ($command) = @_;
    my $json_text = do {
          open (my $json_fh, "-|", $command) or die ("Can't execute command\": $!\n");
          local $/;
          <$json_fh>;
          close $json_fh;
       };
       return $json_text;
}

Quelqu'un peut-il m'expliquer ce que fait cette fonction ?
En particulier quel est l'intérêt d'utiliser "-|" dans open (my $json_fh, "-|", $command).
Pour info, cette fonction est appliquée sur sur une liste du type :

aaaaaaa
bbbbbbb
ccccccc
ddddddd
...

Merci pour votre aide.

Hors ligne