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

mika
 2019-08-04 13:42
#190336 #190336
User since
2010-10-02
168 Artikel
BenutzerIn

user image
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?

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