Perl Skript Variable definieren
Hallo zusammen,
ich möchte / muss mit einem Perl Skript Lizenz Informationen abgreifen und verwende hier diese Zeile dazu.
Dieses Kommando macht nichts anderes als mir über awk den Wert der 10. Spalte zurückzugeben. "2520"
Als Ausgabe erhalte ich diese Information zurück.
Meiner Meinung nach sollte der Wert "2520" 2 mal in der Ausgabe erscheinen.
Ich vermute das irgendwas in der 1. Zeile nicht ganz passt. Für jeden Hinweis bin ich dankbar.
Danke
Micha
ich möchte / muss mit einem Perl Skript Lizenz Informationen abgreifen und verwende hier diese Zeile dazu.
Dieses Kommando macht nichts anderes als mir über awk den Wert der 10. Spalte zurückzugeben. "2520"
my $SRUS = system("/cm/shared/apps/abaqus/Commands/abaqus licensing dslsstat | grep SRU | awk '{print \$10}'");
print "$SRUS\n";
Als Ausgabe erhalte ich diese Information zurück.
2520
0
Meiner Meinung nach sollte der Wert "2520" 2 mal in der Ausgabe erscheinen.
Ich vermute das irgendwas in der 1. Zeile nicht ganz passt. Für jeden Hinweis bin ich dankbar.
Danke
Micha
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 667972
Url: https://administrator.de/contentid/667972
Ausgedruckt am: 21.11.2024 um 23:11 Uhr
1 Kommentar
Moin.
RTFM
https://perldoc.perl.org/functions/system
https://perldoc.perl.org/perlfaq8#How-can-I-capture-STDERR-from-an-exter ...
Für die Ausgabe von stdout eines Befehls nimmst du stattdessen Backticks statt
How can I run an external command and capture its output in Perl?
Gruß
RTFM
https://perldoc.perl.org/functions/system
https://perldoc.perl.org/perlfaq8#How-can-I-capture-STDERR-from-an-exter ...
The return value is the exit status of the program as returned by the wait call
Für die Ausgabe von stdout eines Befehls nimmst du stattdessen Backticks statt
system()
...How can I run an external command and capture its output in Perl?
my $output = `your cmd`;
Gruß