Thread Wie bekomme ich dieses AWK nach Perl portiert?
(14 answers)
Opened by mika at 2019-08-03 17:29
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) |