Wie kann ich erfassen die komplette Kommandozeile in Perl?

Nehme an, der Anruf wurde

/usr/local/bin/perl verify.pl 1 3 de# > result.log

Innen verify.pl ich will das ganze Gespräch über und hängen Sie es auf eine log-Datei für tracking-Zwecke.

Wie kann ich capture das ganze nennen wie es ist?

InformationsquelleAutor Lazer | 2011-05-27
  1. 10

    Da ist auch ein Weg (zumindest auf unix-Systemen), um ganze Befehlszeile:

    my $cmdline = `ps -o args -C perl | grep verify.pl`;
print $cmdline, "\n";

    e: Sauberer Weise mit PID (mit freundlicher Genehmigung von Nathan Fellman):

    print qx/ps -o args $$/;
    • Das ist gut, es sei denn, Sie haben mehr als eine Instanz von perl ausgeführt wird. Sie können filter, die mit getpid()
    • Fellman: ja, es kann einige Probleme die richtigen zu finden, Prozesse, aber ich denke, dass OP selbst entscheiden kann, wie man richtig filtert bestimmten Prozess. Durch PID oder durch einige grep Muster oder ...
    • Ich dachte an etwas wie print qx/ps -o args $$/;
    • Fellman: scheint der sauberste Weg, kein Zweifel!
    • nun, warum nicht Sie Bearbeiten Ihre Antwort und etwas mehr bekommen upvotes? 🙂
    • Übrigens gilt das auch drucken, die Ausgabe-Umleitung?
    • Nein, tut es nicht. Ich bin überrascht. Ich dachte, es wird.
    • Dies erscheint nicht zur Aufrechterhaltung der shell-quoting, das war in der Befehlszeile verwendet wird, das kann ein problem sein, je nachdem, was der original-Befehlszeile benötigt wird.
    • Wenn Sie fügen Sie ein Gleichheitszeichen (=) nach der args, die Sie nicht haben, die Kopfzeile entweder. print qx/ps -o args= $$/
    • Auch, es behandelt nicht die Argumente mit Leerzeichen korrekt.

    InformationsquelleAutor w.k
  2. 8

    $0 hat der Skript-name und die @ARGV hat die Argumente, also die gesamte Kommandozeile ist:

    $commandline = $0 . " ". (join " ", @ARGV);

    oder mehr aus (Dank FMc):

    $commandline = join " ", $0, @ARGV;

    Weiß ich aber nicht wissen, wie zu erfassen, die Umleitung (> result.log)

    • $commandline = $0 . " " . (join " ", @ARGV); um einen Raum zwischen den scriptname und der erste parameter, aber das ist einfach nur dumm, detail
    • Ich glaube nicht, können Sie, da die shell nur dups der filedescriptor für STDOUT zu zeigen, dass log-Datei. Perl hat keine Möglichkeit zu wissen, ob dies geschehen ist, so weit ich erzählen kann. (Sie KÖNNTEN in der Lage sein zu erkennen, ob eine Eingabe-Umleitung ist geschehen durch die Verwendung -t aber.)
    • Kaum nur ein dummes detail-wenn der Benutzer versucht, führen Sie das Kommando, den Namen des Skripts hat sich im wesentlichen geändert! 🙂
    • FWIW, join nimmt mehrere Argumente: join(" ", $0, @ARGV).
    • Gibt es eine Möglichkeit, zum erfassen von /usr/local/bin/perl?
    • Gibt es einen Grund, dass /usr/local/bin/perl sollte anders sein als das, was gegeben ist durch which perl?
    • Verwenden Sie eine Sonde,:: Perl zu finden, die Perl war eigentlich verwendet, wenn es mehrere Einsen installiert. Eine Menge von server-Systemen zu tun haben mehrere Perls installiert, um das system-Perl intakt für den sysadmin, während die anderen Perls werden aktualisiert und aktualisiert, integriert mit Apache, etc.
    • Der Pfad zum perl-Programm zugegriffen werden kann, die zur Laufzeit mit $^X oder mit $Config{perlpath} (wenn Sie geladen haben Config - Modul). $Config{perlpath} ist vorzuziehen, in einigen Fällen, weil es ist ein nur-lese-variable.
    • Es gibt keine Möglichkeit zu erfassen Umleitung. Es ist gelungen, von der shell, d.h. der shell (bash, sh, cmd -- was auch immer) öffnen Sie die Datei(en) und führen Sie dann den Befehl ohne >'s. Allerdings kann man erraten, ob bestimmte Datei-handle ist ein terminal, einer Datei oder einer pipe.
    • danke! Ich reparierte es.
    • Sie können mehrere Versionen von perl installiert. which perl wird wieder die erste auf dem Pfad. Versuchen where perl zu sehen, wenn Sie irgendwelche anderen auf dem Weg.
    • Beachten Sie, dass @ARGV wird verbraucht durch GetOptions() so müssen Sie dies tun, bevor.

    InformationsquelleAutor Nathan Fellman
  3. 2

    $commandline = join " ", $0, @ARGV; behandelt nicht den Fall, dass Befehlszeile hat, Zitate wie ./xxx.pl --love "dad and mom"

    Einer Schnellen Lösung:

    my $script_command = $0;
foreach (@ARGV) {
$script_command .= /\s/ ?   " \'" . $_ . "\'"
                :           " "   . $_;
}

    Versuchen, speichern Sie den folgenden code als xxx.pl und führen ./xxx.pl --love "dad and mom":

    #!/usr/bin/env perl -w
use strict;
use feature qw ( say );
say "A: " . join( " ", $0, @ARGV );
my $script_command = $0;
foreach (@ARGV) {
    $script_command .= /\s/ ?   " \'" . $_ . "\'"
                    :           " "   . $_;
}
say "B: " . $script_command;
    • Dies ist erstaunlich,. Das ist genau das Suche ich. Können Sie mir erklären, wie das funktioniert? nicht sicher, was du hier machst
    InformationsquelleAutor Zhao Cai
  4. 1

    Hier nahezu gleichen Linux-only-Varianten (natürlich, nach der shell-intervention):

    Reine perl

    BEGIN {
    my @cmd = ( );
    if (open(my $h, "<:raw", "/proc/$$/cmdline")) {
        # precisely, buffer size must be at least `getconf ARG_MAX`
        read($h, my $buf, 1048576); close($h);
        @cmd = split(/\0/s, $buf);
    };
    print join("\n\t", @cmd), "\n";
};

    Verwendung von File::Slurp:

    BEGIN {
    use File::Slurp;
    my @cmd = split(/\0/s, File::Slurp::read_file("/proc/$$/cmdline", {binmode => ":raw"}));
    print join("\n\t", @cmd), "\n";
};
    InformationsquelleAutor Elko Mahinga
Schreibe einen Kommentar