Come posso archiviare l'output della funzione di sistema di Perl su una variabile?

Question

Ho un problema con la funzione system. Voglio memorizzare l'output delle funzioni di sistema in una variabile.

Per esempio,

system("ls"); 

qui voglio tutti i nomi dei file nella directory corrente per memorizzare in una variabile. So che posso farlo reindirizzando l'output in un file e letto da quello e lo memorizzo in una variabile. Ma voglio un modo efficace di quello. C'è un modo.

Answer 1

No, non è possibile memorizzare i valori dell'uscita ls, dal sistema di eseguire sempre il comando come un processo figlio, in modo da provare con backtick `comando` che esegue il comando nella corrente processo stesso!

Answer 2

Il modo più semplice utilizza backticks o qx():

my $value = qx(ls); 
print $value; 

L'output è simile al ls.

Answer 3

La mia risposta non risolve il problema. Tuttavia, se si desidera VERAMENTE fare l'elenco delle directory, non chiamare il sistema ls in questo modo. Utilizzare opendir(), readdir() o un ciclo while.

Per esempio,

while (<*>){ 
    print $_ ."\n"; 
} 

Infatti, se non è un programma proprietario di terze parti, cerca sempre di proprie funzioni utente del Perl.

Answer 4

La documentazione ufficiale Perl per il built-in system stati di funzionamento:

Questo non è ciò che si desidera utilizzare per catturare l'output da un comando, per che si dovrebbe usare solo backticks o qx //, come descritto in "STRING" in perlop.

Ci sono molti modi per accedere facilmente ai documenti:

1. Nella riga di comando: perldoc -f system
2. Online perldoc.perl.org.
3. Cerca sul Web utilizzando Google.

Se si desidera che ogni directory annuncio memorizzato in un elemento di array separato, utilizzare:

my @entries = qx(ls); 

Answer 5

Come abubacker ha dichiarato, è possibile utilizzare apici inversi per catturare l'output di un programma in una variabile per un uso successivo.Tuttavia, se anche è necessario verificare la presenza di valori di ritorno eccezionali, o bypass invocando la shell, è il momento di portare in un modulo CPAN, IPC::System::Simple:

use IPC::System::Simple qw(capture); 

# Capture output into $result and throw exception on failure 
my $result = capture("some_command"); 

Questo modulo può essere chiamato in una varietà di modi, e permette per personalizzare quali valori di errore restituiti sono "accettabili", se ignorare la shell o meno e come gestire il raggruppamento di argomenti. Fornisce anche una sostituzione drop-in per system() che aggiunge più controllo degli errori.

Answer 6

Un modo rapido e semplice per farlo è quello di utilizzare qx() appositamente per il tuo esempio:

my $output = qx(ls 2>&1);

La 2>&1 parte è quello di catturare sia stdout e stderr.

Answer 7

Utilizzare backticks viene salvato il risultato in un

$output = `ls`;