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

[thread]20647[/thread]

Wie bekomme ich dieses AWK nach Perl portiert?

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+15 replies
mika

2019-08-03 17:29
User since
2010-10-02
168 Artikel
BenutzerIn
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)
- +2 replies
- styx-cc
  
  2019-08-03 18:30
  User since
  2006-05-20
  533 Artikel
  BenutzerIn
  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.
  - mika
    
    2019-08-03 19:06
    
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Vielen, vielen Dank!
    
    Das mit der for Schleife und dem split usw. gefällt mir. Werde ich mir als Lösungsansatz merken.
    
    Ich push $1 dann einfach in die Liste.
- +3 replies
- Linuxer
  
  2019-08-03 20:09
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Andere Variante (ungetestet), direkt im Perl-Code zu verwenden:
  
  Code (perl): (dl )
  
  my @IPs = map { my $f6 = (split m/\s+/, $_)[5]; ( split m/:/, $f6)[0] } qx/ss -4ntuh/;
  
  Von rechts nach links lesen:
  - Kommando ss -4ntuh ausführen; Dessen Ausgabe wird zeilenweise gelesen (dank Listenkontext)
  - map führt etwas für jedes Element der gegebenen Liste aus; hier also für jede Zeile
  - - splitten der Zeile an Whitespaces; Übernahme des 6. Feldes nach $f6
  - - Dann wird $f6 am : gesplittet; der erste Wert vor dem : ist die IP; dies liefert map dann zurück
  - Die Ergebnisse werden dann dem Array zugewiesen
  
  Achtung: Das funktioniert nur mit IPv4 Adressen! IPv6 Adressen verwenden den : auch; dann eher mit s/:\d+$// den Port vom Ende abschneiden und hoffen, dass da immer ein Port steht.
  
  Wenn Du sicher bist, dass in den Feldern vor Feld 6 keine ":" enthalten sind und Feld 6 *immer* eine Portangabe enthält, kannst Du es mit einem split() erledigen lassen:
  
  Code (perl): (dl )
  
  my @IPs = map { (split m/[:\s]+/, $_)[5]; ) qx/ss -4ntuh/;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - mika
    
    2019-08-03 20:57
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Ach mit map ist natürlich auch gut:
    
    Code (perl): (dl )
    
    @adr = map { $_ = (split m/\s+/, $_)[5]; s/:\d+$//; $_ } qx/ss -4ntuH/;
    
    2019-08-03T18:09:50 Linuxer
    Achtung: Das funktioniert nur mit IPv4 Adressen! IPv6 Adressen verwenden den : auch; dann eher mit s/:\d+$// den Port vom Ende abschneiden und hoffen, dass da immer ein Port steht.
    
    Das ss gibt IPv6-Sockets so aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    [::1]:143 [::ffff:150.95.185.145]:9283 [::1]:36822 [::ffff:208.113.129.191]:24277 [::ffff:2.87.39.115]:36041 [::ffff:127.0.0.1]:32000 [::1]:143 [::1]:34556 [::ffff:95.91.138.109]:19579
    
    Also am Anfang mit öffnender und am Ende mit schließender eckiger Klammer.. Die Klammern werden wohl gedruckt, wegen der Portangabe? Ist das so Standard, oder eine Eigenart von ss? Und wenn, kann man das so lassen und sind das dann dennoch valide Adressangaben oder müssen die Klammern weg (Nachdem der Port abgeschnitten ist)?
    Last edited: 2019-08-03 21:05:06 +0200 (CEST)
    - Linuxer
      
      2019-08-03 23:12
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Auf Basis der Infos von https://en.wikipedia.org/wiki/IPv6_address#Recomme... scheinen die eckigen Klammern normal zu sein; eben um klar zu machen, was ist IPv6 Adresse und was ist Portnummer .
      
      Siehe dazu auch https://tools.ietf.org/html/rfc5952 und https://tools.ietf.org/html/rfc3986 .
      
      Ob die Klammern bei alleiniger Angabe einer IPv6 Adresse in Ordnung sind, weiß ich nicht. So tief habe ich mich mit IPv6 noch nicht beschäftigt.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +3 replies
- Linuxer
  
  2019-08-03 20:32
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Um das ss auszuschließen, schau Dir mal Linux::Proc::Net::TCP und Linux::Proc::Net::UDP an.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - mika
    
    2019-08-03 21:41
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    2019-08-03T18:32:31 Linuxer
    Um das ss auszuschließen, schau Dir mal Linux::Proc::Net::TCP und Linux::Proc::Net::UDP an.
    
    Würde ich nutzen! Und installieren funktioniert auch, aber ich bekomme bei TCP für rem_address nur 0.0.0.0 für alle Einträge und wie ich bei UDP an die Adresse komme weiss ich gerade garnicht.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    #!/usr/bin/env perl use Data::Dumper; use Linux::Proc::Net::TCP; use Linux::Proc::Net::UDP; my $table_tcp = Linux::Proc::Net::TCP->read; my $table_udp = Linux::Proc::Net::UDP->read; my @rem_address; push (@rem_address, map {$_ = $_->rem_address;} $table_tcp->listeners); print Dumper @rem_address;
    
    Last edited: 2019-08-03 21:53:01 +0200 (CEST)
    - Linuxer
      
      2019-08-03 23:25
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Ich habe die Module bisher selber nicht genutzt; es waren jetzt nur Suchergebnisse für diese Beitragsfolge.
      
      Ich weiß gerade nicht, ob bei UDP wirklich Remote-Adressen auftauchen würden.
      
      Das Protokoll arbeitet nicht verbindungsorientiert wie TCP. Ob der Kernel sich dann die Mühe macht, die Remote Adressen doch einzutragen, weiß ich nicht. Vielleicht lässt er es (weil es eben keine Verbindungsorientierung hat); vielleicht trägt er sie ein; ich könnte mir dann vorstellen, dass die Einträge nur kurz gemacht werden und dann wieder rausfallen.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- GwenDragon
  
  2019-08-04 09:11
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  2019-08-03T15:29:37 mika
  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...
  
  Notfalls den Kernel auslesen:
  /proc/net/tcp
  /proc/net/tcp6
  enthalten beide die Remote-Adressen.
  https://www.kernel.org/doc/Documentation/networkin...
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +5 replies
- rosti
  
  2019-08-04 09:43
  
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  
  Quote
  Ich lasse mir alle verbundenen entfernten IPv4-Adressen ausgeben ..
  
  Du suchst netstat
  
  und Module https://metacpan.org/search?size=20&q=netstat
  
  MFG
  Last edited: 2019-08-04 09:45:48 +0200 (CEST)
  - +2 replies
  - mika
    
    2019-08-04 11:13
    
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    2019-08-04T07:43:50 rosti
    Quote
    Ich lasse mir alle verbundenen entfernten IPv4-Adressen ausgeben ..
    
    Du suchst netstat
    
    und Module https://metacpan.org/search?size=20&q=netstat
    
    Das Modul Parse::Netstat ist zumindest in Debian paketiert. Aber netstat(8) ist veraltet, funktioniert aber noch.
    
    Ich werde nun erstmal bei der Lösung mit ss bleiben, das sollte zu mindest Heute Teil einer Standardinstallation sein, auch wenn bei mir auch noch netstat installiert ist.
    
    PS: Das Debianpaket libparse-netstat-perl hat net-tools gar nicht als Abhänigkeit?
    - mika
      
      2019-08-04 11:17
      
      User since
      2010-10-02
      168 Artikel
      BenutzerIn
      
      Wobei ich vlt. doch das Modul Parse::Netstat nehmen, wegen der Portabilität!?^^
  - +2 replies
  - mika
    
    2019-08-04 13:42
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use Data::Dumper; use Parse::Netstat qw(parse_netstat); my $res = parse_netstat( output => join( "", `netstat -4ntu` ) ); print Dumper map { $_ = $_->{foreign_host} } @{ $res->[2]{'active_conns'} };
    
    Ich bin nicht so sicher, ist das Dereferenzieren der Liste so notwendig, oder geht das schöner?
    - rosti
      
      2019-08-04 17:15
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      Zeig mal den Dump bevor Du map darauf anwendest. MFG

View all threads created 2019-08-03 17:29.