Comment puis-je exécuter Perl système de commandes en arrière-plan?

#!/usr/bin/env perl
use warnings; use strict;
use 5.012;
use IPC::System::Simple qw(system);

system( 'xterm', '-geometry', '80x25-5-5', '-bg', 'green', '&' );

say "Hello";
say "World";

J'ai essayé d'exécuter le xterm-commande en arrière-plan, mais il ne fonctionne pas:

Pas de chemin d'accès absolu trouvé pour le shell: &

Quelle serait la bonne façon de le faire fonctionner?

testé ici semble sorta de travail pour moi. qu'essayez-vous de réaliser?
est-il censé ouvrir le terminal et ensuite imprimer bonjour tout le monde dans le terminal?
ou êtes-vous juste essayer de faire un appel asynchrone ouvrir le terminal?
Le "dit" ne le sont que pour vérifier si le xterm s'exécute en arrière-plan.
J'ai pensé à elle (à l'aide d'un seul argument) il y a quelques temps, mais en attendant, je l'ai oublié (entre-temps, la forme "moyenne" de temps?). J'espère que je ne l'oublie pas une seconde fois.

OriginalL'auteur sid_com | 2010-04-26

  1. 19

    Perl système fonction a deux modes:

    1. prendre une seule chaîne et en passant à la commande shell pour autoriser les caractères spéciaux afin d'être traitées
    2. de prendre une liste de chaînes de caractères, exec qui pratiquent la première et de passer le restant de chaînes que les arguments

    Dans le premier formulaire, vous devez être prudent pour échapper les caractères qui pourraient avoir une signification particulière pour le shell. La deuxième forme est généralement plus sûr puisque les arguments sont transmis directement au programme exec avais sans la coquille.

    Dans votre cas, vous semblez être un mélange des deux formes. Le & personnage a seulement le sens de "commencer ce programme dans le contexte" si elle est passée à la coque. Dans votre programme, l'esperluette est passé 5ème argument de la commande xterm.

    Comme Jakob Kruse a dit la réponse simple est d'utiliser le formulaire de chaîne de system. Si l'un des arguments est venu à partir d'une source non fiable, vous devez utiliser le citant ou de fuir pour assurer leur sécurité.

    Si vous préférez utiliser le multi-argument formulaire, puis vous aurez besoin d'appeler fork() et puis probablement utiliser exec() plutôt que system().

    tldr; system("./script.sh $arg1 &"); au lieu de system("./script.sh", "$arg1", "&");

    OriginalL'auteur Grant McLean

  2. 12

    Noter que le formulaire de liste de système est précisément là pour pas traiter des caractères tels que & comme shell méta-caractères.

    De perlfaq8's réponse à Comment puis-je commencer un processus en arrière-plan?

    (contribution de brian d foy)

    Il n'y a pas une seule manière d'exécuter du code en arrière-plan de sorte que vous n'avez pas à attendre qu'elle se termine avant que votre programme se déplace sur d'autres tâches. La gestion des processus dépend de votre système d'exploitation, et de nombreuses techniques sont en perlipc.

    Plusieurs modules CPAN peut être en mesure d'aider, y compris IPC::Open2 ou IPC::Open3, IPC::Run, Parallèle::Emplois, Parallèle::ForkManager, POE, Proc::Arrière-Plan, et Win32::Process. Il existe de nombreux autres modules que vous pourriez utiliser, afin de vérifier les espaces de noms pour d'autres options aussi.

    Si vous êtes sur un système de type Unix, vous pourriez être en mesure de s'en tirer avec un système d'appel où vous mettez un & sur la fin de la commande:

    system("cmd &")

    Vous pouvez également essayer d'utiliser la fourche, comme décrit dans perlfunc (même si c'est la même chose que de nombreux modules fera pour vous).

    STDIN, STDOUT, et STDERR sont partagés

    La fois le processus et le backgrounded un ("l'enfant" processus) partagent la même STDIN, STDOUT et STDERR descripteurs. Si les deux tentent d'y accéder à la fois, des choses étranges peuvent se produire. Vous pouvez fermer ou rouvrir ces pour l'enfant. Vous pouvez contourner ce problème à l'ouverture d'un tuyau (voir l'ouvrir dans perlfunc), mais sur certains systèmes, cela signifie que le processus de l'enfant ne peut pas survivre à la mère.
    Les signaux
    Vous devez prendre le SIGCHLD, et éventuellement signal SIGPIPE trop. SIGCHLD est envoyé lorsque le backgrounded processus se termine. SIGNAL est envoyé lorsque vous écrivez à un descripteur de fichier dont le processus enfant a fermé (non interceptée signal SIGPIPE peut causer votre programme pour mourir en silence). Ce n'est pas un problème avec system("cmd&").

    Zombies

    Vous devez être prêt à "récolter" le processus de l'enfant quand il se termine.

    $SIG{CHLD} = sub { wait };

$SIG{CHLD} = 'IGNORE';

    Vous pouvez également utiliser un double fourche. Vous immédiatement wait() pour votre premier enfant, et le démon init va attendre() pour votre petit-fils, une fois qu'il sort.

    unless ($pid = fork) {
    unless (fork) {
        exec "what you really wanna do";
        die "exec failed!";
    }
    exit 0;
}
waitpid($pid, 0);

    Voir les Signaux dans perlipc pour d'autres exemples de code pour faire cela. Les Zombies ne sont pas un problème avec system("prog &").

    OriginalL'auteur brian d foy

  3. 4

    Avez-vous essayé?

    system('xterm -geometry 80x25-5-5 -bg green &');

    http://www.rocketaware.com/perl/perlfaq8/How_do_I_start_a_process_in_the_.htm

    OriginalL'auteur Jakob Kruse

  4. 0

    Ce n'est pas purement une explication pour Perl. Le même problème est en C et d'autres langues.

    D'abord comprendre ce que le système commande n':

    1. Fourches
    2. Sous le processus de l'enfant appel exec
    3. Le processus parent est en attente pour fourche enfant fin du processus de

    Il n'a pas d'importance si vous passer plusieurs arguments ou d'un argument. La différence est que, avec plusieurs arguments, la commande est exécutée directement. Avec un argument, la commande est passée par le shell, et finalement exécuté comme:

    /bin/sh -c your_command_with_redirections_and_ambersand

    Lorsque vous passez une commande en tant que some_command par1 par2 &, puis entre l'interpréteur Perl et la commande est la sh ou bash processus utilisé comme une enveloppe, et il est en attente pour some_command de finition. Votre script est en attente pour le shell interprète, et aucune autre waitpid est nécessaire, parce que Perl fonction système le fait pour vous.

    Lorsque vous voulez mettre en œuvre ce mécanisme directement dans votre script, vous devez:

    1. Utiliser le fourche fonction. Voir l'exemple: http://users.telenet.be/bartl/classicperl/fork/all.html
    2. En vertu de la condition des enfants (if), utilisez la exec fonction. Votre utilisateur est similaire à système, voir le manuel. Avis, exec causes de l'enfant de programme processus/contenu/données de couverture par la commande exécutée.
    3. Sous le parent condition (si, fourche sorties avec les non-zéro), vous utilisez waitpid, à l'aide de pid renvoyé par la fourche de la fonction.

    C'est pourquoi vous pouvez exécuter le processus en arrière-plan. J'espère que c'est simple.

    L'exemple le plus simple:

    if (my $pid = fork) { #exits 0 = false for child process, at this point is brain split
  # parent ($pid is process id of child)
  # Do something what you want, asynchronously with executed command
  waitpid($pid);  # Wait until child ends
  # If you don't want to, don't wait. Your process ends, and then the child process will be relinked
  # from your script to INIT process, and finally INIT will assume the child finishing.
  # Alternatively, you can handle the SIGCHLD signal in your script
}
else {
  # Child
  exec('some_command arg1 arg2'); #or exec('some_command','arg1','arg2');
  #exit is not needed, because exec completely overwrites the process content
}
    merci Pierre pour des corrections très bons 🙂

    OriginalL'auteur Znik