system Aufruf mit Perl in Array speichern - #73139 (Allgemeines zu Perl)

krusty

2007-01-12 11:33

User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]

Sorry,

habe deinen Link schon gelesen, habe jetzt folgendes gemacht:

Code: (dl )

#!/usr/bin/perl -w

use strict;
use warnings;


my $test = qx'fgrep "(22.5.1983)" /test/old/* -l';

print "Debug: ".$test."\n";

Das funktioniert auch, aber wie bekomme ich die Ausgabe jetzt in ein Array, so das alle gefundenen Zeilen jeweils in einem Element des Arrays gespeichert werden. In meinem Beispiel werden zwei Einträge gefunden. Das stimmt soweit auch. Der erste wir mit dem Debug: ausgegeben, der zweite ohne. Kann ja eigentlich auch nicht anders gehen, da ich nirgendwo ein Array abfrage. Ist die Ausgabe aus dem Befehl vlt. direkt ein Array? Mal testen.

[edit:]

Habe es geschafft.

Code: (dl )

#!/usr/bin/perl -w

use strict;
use warnings;


my @test = qx'fgrep "(22.5.1983)" /test/old/* -l';

foreach my $x (@test)
{
     chomp($x);
     print "Debug: ".$x."\n";
}

Danke für die Hilfe\n\n