ms1982
Goto Top

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"

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

Content-ID: 667972

Url: https://administrator.de/forum/perl-skript-variable-definieren-667972.html

Ausgedruckt am: 22.12.2024 um 04:12 Uhr

14260433693
Lösung 14260433693 08.09.2024 aktualisiert um 15:17:07 Uhr
Goto Top
Moin.
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ß