Thread Wie bekomme ich dieses AWK nach Perl portiert? (14 answers)
Opened by mika at 2019-08-03 17:29

mika
 2019-08-03 17:29
#190323 #190323
User since
2010-10-02
168 Artikel
BenutzerIn

user image
Hallo,

dieses AWK will ich gerne als Perl haben, komme aber nicht auf eine Lösung.

Code (perl): (dl )
my @lines = qx/ss -4ntuH|awk '{ip=\$6; sub(\/:[0-9]+\$\/, "", ip); print ip}'/;


Ich lasse mir alle verbundenen entfernten IPv4-Adressen ausgeben und will die in einer Liste haben. Die Ausgabe von ss(8) hat den Socket in der 6ten Spalte stehen und das AWK entfernt dann die Angabe des Port.

Ich seid bestimmt schnell als ich in der Lösungsfindung. Könnt Ihr mir bitte helfen :-)

Wenn Ihr gar eine Lösung habt das ss(8) raus zu nehmen, wäre das super. Aber ich finde da kein Modul für...

LG,
Mika
Last edited: 2019-08-03 17:34:10 +0200 (CEST)

View full thread Wie bekomme ich dieses AWK nach Perl portiert?