Wie bekomme ich dieses AWK nach Perl portiert? - #190324 (Allgemeines zu Perl)

styx-cc

2019-08-03 18:30

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hi, versuch das mal:

Code (perl): (dl )

perl -le 'for(`ss -4ntuH`){$_ = (split / +/)[5]; m/(.+):[0-9]/ ? print $1 : 0}'

Lieben Gruß

Edit: gekürzt
Edit: Golf

Code: (dl )

ss -4ntuH|perl -lne '$_=(split/ +/)[5];/(.+):\d/?print$1:0'

Last edited: 2019-08-03 19:09:33 +0200 (CEST)

Pörl.