kazeburo · January 16, 2020 08:22 · kazeburo · Jan 16, 2020
diff --git a/netsv b/netsv
 #!perl
 use strict;

 my %stats;

 {
    open my $fh, '<', '/proc/net/snmp' or die "$!\n";
    my @keys;
   while (<$fh>) {
        chomp;
        if (/^Tcp\:/ && ! @keys) {
            @keys = split / /;
        } elsif ( /^Tcp\:/ ) {
            for my $v (split / /) {
                $stats{shift @keys} = $v;
            }
        }
    }
 }


 {
    open my $fh, '<', '/proc/net/netstat' or die "$!\n";
    my @keys;
   while (<$fh>) {
        chomp;
        if (/^TcpExt\:/ && ! @keys) {
            @keys = split / /;
        } elsif ( /^TcpExt\:/ ) {
            for my $v (split / /) {
                $stats{shift @keys} = $v;
            }
        }
    }
 }

 my @stats;
 for my $k (keys %stats) {
    push @stats, "$k:$stats{$k}";
 }
 print join($ARGV[0] eq "-l" ? "\n" : "\t", @stats),"\n";
	#!perl
	use strict;

	my %stats;

	{
	open my $fh, '<', '/proc/net/snmp' or die "$!\n";
	my @keys;
	while (<$fh>) {
	chomp;
	if (/^Tcp\:/ && ! @keys) {
	@keys = split / /;
	} elsif ( /^Tcp\:/ ) {
	for my $v (split / /) {
	$stats{shift @keys} = $v;
	}
	}
	}
	}


	{
	open my $fh, '<', '/proc/net/netstat' or die "$!\n";
	my @keys;
	while (<$fh>) {
	chomp;
	if (/^TcpExt\:/ && ! @keys) {
	@keys = split / /;
	} elsif ( /^TcpExt\:/ ) {
	for my $v (split / /) {
	$stats{shift @keys} = $v;
	}
	}
	}
	}

	my @stats;
	for my $k (keys %stats) {
	push @stats, "$k:$stats{$k}";
	}
	print join($ARGV[0] eq "-l" ? "\n" : "\t", @stats),"\n";