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

mika
 2019-08-03 21:41
#190329 #190329
User since
2010-10-02
168 Artikel
BenutzerIn

user image
2019-08-03T18:32:31 Linuxer
Um das ss auszuschließen, schau Dir mal CPAN:Linux::Proc::Net::TCP und CPAN: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)

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