beste Weg, um unix-Befehle ausführen in ein perl-Skript und zu prüfen, ob es fehlgeschlagen ist

Möchte ich ausführen, ein paar unix-Befehle in perl. Was ist der beste Weg, dies zu tun?
Ist es besser, qx oder system()? Ist es ein guter Weg, um zu überprüfen, wenn es scheitert? Kann mir jemand zeigen, ein gutes Beispiel? Danke.

my $crflag=qx('/bin/touch /tmp/flag.done');
my $chgperm=qx('chmod 755 /tmp/flag.done');

vs.

my $crflag = '/bin/touch /tmp/flag.done';
my $chgperm ='chmod 755 /tmp/flag.done';
system ($crflag);
system ($chgperm);

InformationsquelleAutor jdamae | 2011-03-08

  1. 5

    Gibt es ein paar Probleme mit dem code:

    • Sie scheinen nicht zu wollen, dass die Ausgabe, das heißt, Sie wollen system, aber diese sind sehr einfache Schritte und sollte wahrscheinlich sein getan direkt in Perl, anstelle von Aufruf aus der shell. touch ist buchstäblich 1-Aufruf in Perl (2 wenn Sie damit rechnen, schließen Sie die Datei.)
    • Gibt es eine race-Bedingung, da Sie beim erstellen der Datei, und dann die Einstellung seiner Berechtigungen in zwei Schritten. Da sieht es aus wie eine flag-Datei, einer race-Bedingung scheint wichtig, und so möchten Sie wahrscheinlich ein atomarer erstellen/setperms in einem Befehl.
    • Da es ein flag Datei, möchten Sie wahrscheinlich-Modus 0644 statt 0755.

    In Perl, können Sie lösen Sie alle der oben mit etwas wie dieses:

    #!/usr/bin/perl

use Fcntl qw( :DEFAULT );   # Core module, for O_CREAT, etc. constants
use strict;
use warnings;

# You probably want 0644, as a flag file probably shouldn't be executable..?
sysopen( my $fh, '/tmp/flag.done', O_CREAT|O_EXCL|O_RDWR, 0644 )
# Sysopen returns a undef if unsuccessful, with an error message stored in $!
    or die "$!";
# write to it here, if you need to.
close( $fh );

    Kann man dieses in ein Untermenü, mit was auch immer Argumente, die Sie erstellen möchten (viel mehr) atomarer Arbeitsschritt zu vermeiden, andere Prozesse zu stören, die zwischen der großen Anzahl der Anrufe zu berappen zweimal, um die Datei zu erstellen und dann zurücksetzen der Berechtigungen. (Es gibt immer noch Bedenken mit der Synchronisation, so könnte es immer noch sein, vorweggenommen, aber dies ist insgesamt eine weit bessere Lösung.)

    Es gibt noch andere flags, die Sie verwenden möchten. Überprüfen Sie perldoc perlopentut und Suche für sysopen für Sie eine kleine Liste, oder überprüfen Sie perldoc Fcntl und Ihre Plattform in der Dokumentation eine ausführliche Liste. Sie können auch ändern wollen 0644 Berechtigungen zu etwas mehr und weniger restriktiv, und können Sie weiter verwenden möchten, sperren; siehe perldoc -f flock für Informationen und code-Beispiele auf advisory locking.

    Vielen Dank für Ihre Antwort. Ich bin nicht vertraut mit Fnctl und bin suchen dieses. Irgendwann ist dieses flag gelesen werden von einem separaten Programm wie eine Anzeige zu starten den Prozess. Also ja, es ist nur eine flag-Datei.
    Fcntl ist nur da, weil es die Exporte der Konstanten O_CREAT, O_EXCL usw. sysopen ist ein core perl-Funktion und ist ohne es, aber es ist einfacher zu verwenden, mit den Konstanten. Die oben genannten sollte Ihnen den Einstieg; aber beachten Sie, dass O_EXCL wird nicht die Datei überschreiben, wenn es bereits vorhanden ist; es loswerden, wenn Sie es wollen zu können. Die Beschreibung in perldoc perlopentut (unter sysopen) ist vielleicht gründlicher, was jede Konstante hat.

    InformationsquelleAutor Sdaz MacSkibbons

  2. 4

    Neben der Tatsache, dass beide Vorgänge durchgeführt werden kann trivial mit gelieferten utime und chmod, IPC::System::Simple Fehlerüberprüfung.

    use IPC::System::Simple qw( system );
system('/bin/touch /tmp/flag.done');
system('chmod 755 /tmp/flag.done');

    InformationsquelleAutor ikegami

  3. 2

    Verwenden system zusammen mit $?. Versuchen Sie zu vermeiden, mit qx wenn der Ausgang ist nicht erforderlich.

    system '/bin/touch /tmp/flag.done';
my $touch_status = $? >> 8;

system 'chmod 755 /tmp/flag.done';
my $chmod_status = $? >> 8;
    vielen Dank für deinen input. Ich habe einen Druck auf $touch_status und $chmod_status beide 0 zurückgeben, was bedeutet keine Fehler. So zu überprüfen, Erfolg, würde ich so etwas tun if $touch_status == 0 { print "flag is set";} ?
    Ich würde sagen, wir bekommen eine viel bessere Kontrolle über IPC::Run

    InformationsquelleAutor Alan Haggai Alavi

Schreibe einen Kommentar