Lesen-Ausgabe von Befehl in Perl-array

Ich will die Ausgabe eines Befehls in ein array wie dieses: 

my @output = `$cmd`;

aber es scheint, dass die Ausgabe aus dem Befehl geht nicht in die @output array.

Irgendeine Idee, wo es geht?

  • Sind Sie sicher, dass Ihr den Befehl schreibt nach STDOUT? Wenn Sie schreibt auf STDERR die backticks nicht erfassen, ohne das Anhängen 2>&1 auf Ihren Anruf.
  • Wie sind Sie mit der Bestimmung, dass die Ausgabe nicht in das array?
InformationsquelleAutor Avi Moraly | 2012-06-05
  1. 14

    Dieses einfache Skript funktioniert für mich:

    #!/usr/bin/env perl
use strict;
use warnings;

my $cmd = "ls";    
my @output = `$cmd`;    
chomp @output;

foreach my $line (@output)
{
    print "<<$line>>\n";
}

    Es produziert die Ausgabe (mit Ausnahme der Dreibett-Punkte):

    $ perl xx.pl
<<args>>
<<args.c>>
<<args.dSYM>>
<<atob.c>>
<<bp.pl>>
...
<<schwartz.pl>>
<<timer.c>>
<<timer.h>>
<<utf8reader.c>>
<<xx.pl>>
$

    Die Ausgabe des Befehls split auf der Linie Grenzen (standardmäßig in der Listen-Kontext). Die chomp löscht den Zeilenumbruch in array-Elemente.

    • die Ausgabe ist nicht ein Fehler, ich weiß nicht, was es wirklich ist
    • Dann müssen Sie möglicherweise identifizieren Sie Ihren Befehl an uns deutlicher. Ich zeigte die Zuordnung zu $cmd; Sie haben nicht gezeigt, was in die Befehlszeile, die Sie ausführen. Haben Sie versucht, mit ls oder pwd oder echo Hello World wie der Befehl, um zu sehen, ob Sie etwas sinnvolles zurück? Sie haben auch nicht gezeigt, wie Sie die Verarbeitung der array.
    InformationsquelleAutor Jonathan Leffler
  2. 6

    Den (standard -) Ausgang geht, um das array:

    david@cyberman:listing # cat > demo.pl
#!/usr/bin/perl
use strict;
use warnings;
use v5.14;
use Data::Dump qw/ddx/;

my @output = `ls -lh`;
ddx \@output;
david@cyberman:listing # touch a b c d
david@cyberman:listing # perl demo.pl
# demo.pl:8: [
#   "total 8\n",
#   "-rw-r--r--  1 david  staff     0B  5 Jun 12:15 a\n",
#   "-rw-r--r--  1 david  staff     0B  5 Jun 12:15 b\n",
#   "-rw-r--r--  1 david  staff     0B  5 Jun 12:15 c\n",
#   "-rw-r--r--  1 david  staff     0B  5 Jun 12:15 d\n",
#   "-rw-r--r--  1 david  staff   115B  5 Jun 12:15 demo.pl\n",
# ]
    InformationsquelleAutor Quentin
  3. 2

    Aktivieren Sie die automatische fehlerprüfungen:

    require IPC::System::Simple;
use autodie qw(:all);
⋮
my @output = `$cmd`;
    InformationsquelleAutor daxim
Schreibe einen Kommentar