¿Cómo puedo capturar la línea de comando completa en Perl?

Supongamos que la llamada era¿Cómo puedo capturar la línea de comando completa en Perl?

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

Dentro verify.pl Quiero capturar toda la llamada anterior y añadirlo a un archivo de registro para fines de seguimiento.

¿Cómo puedo capturar toda la llamada tal como está?

Fuente

2011-05-27 Lazer

$0 tiene el nombre del script y @ARGV tiene los argumentos, por lo que toda la línea de comandos es:

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

o, más elegante (gracias FMc):

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

Pongo Sin embargo, sepa cómo capturar la redirección (> result.log)

Fuente

2011-05-27 19:24:31

'$ commandline = $ 0. "". (únete a "", @ARGV); 'para obtener un espacio entre el nombre del script y el primer parámetro, pero eso es solo un detalle estúpido –

No creo que puedas, ya que el shell simplemente' dup's el descriptor de archivo para STDOUT para apuntar a ese archivo de registro. Perl no tiene manera de saber si esto ha sucedido, hasta donde sé. (PODRÍA poder detectar si una redirección de entrada ha sucedido usando '-t') –

@Fredrik: Apenas un detalle estúpido: si el usuario intenta ejecutar ese comando, el nombre del script ha cambiado esencialmente ! :-) –

Ver In Perl, how do I get the directory or path of the current executing code?

Fuente

2011-05-27 19:25:00

No hay manera (al menos en UNIX-systems) para obtener la línea de comandos conjunto:

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

e: forma más limpia usando PID (cortesía de Nathan Fellman):

print qx/ps -o args $$/;

Fuente

2011-05-27 21:17:24

Eso está bien, a menos que tenga más de una instancia de ejecución perl. Puede filtrar esto con 'getpid()' –

@ Nathan Fellman: Sí, puede haber algunos problemas para obtener el correcto de los procesos, pero creo que OP puede decidir por sí mismo cómo filtrar adecuadamente el proceso específico. Por PID o por algún patrón grep o ... –

Estaba pensando en usar algo como 'print qx/ps -o args $$ /;' –

$commandline = join " ", $0, @ARGV; no maneja el caso que la línea de comando tiene citas como ./xxx.pl --love "dad and mom"

A Quick Solutio n:

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

tratar de salvar el siguiente código como xxx.pl y ejecutar ./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;

Fuente

2011-11-27 22:33:07

Esto es asombroso. Esto es exactamente lo que estoy buscando. ¿Puedes explicarme cómo funciona esto? no estoy seguro de lo que estás haciendo aquí – user749632

Aquí virtualmente misma sólo Linux variantes (por supuesto, después de la intervención shell):

Perl pura

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"; 
};

usando Archivo :: Slurp:

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

Fuente

2013-10-01 06:28:52

¿Cómo puedo capturar la línea de comando completa en Perl?

Respuesta

Cuestiones relacionadas