腳本只計數Established，TIME_WAIT和Closed等待連接使用Netstat

Question

我試圖爲Windows創建一個腳本，它只計算系統上的Established，Time_Wait和Closed_Wait連接數並在命令提示符下打印它們。我已經制作了一個shell腳本，可以在Linux上執行此操作，但shell腳本無法在Windows中運行。我試圖使用.bat來執行腳本，但這不起作用（可能是因爲它仍然是Windows中的一個shell腳本：/）它必須只顯示Established，Time_Wait和Closed_Wait的原因是因爲腳本正在如果有任何其他連接類型出現，監控程序將使用此功能。任何人都可以提出建議嗎？謝謝！

Answer 1

以下（應該）在沒有對* nix和Windows進行任何更改的情況下工作。我在Ubuntu w/Perl v.5.18.0，Linux Mint w/Perl v5.22.0和Win2k8R2（w/Strawberry Perl v5.8.8）上測試過它。

#!/usr/bin/perl 
use strict; 
use warnings; 

my @stat = split '\n', `netstat -nat`; 

my @wanted = qw(
       ESTABLISHED 
       TIME_WAIT 
       CLOSED_WAIT 
       SYN_SENT 
       SYN_RECV 
      ); 

my %data = map {$_ => 0} @wanted; 

for (@stat){ 
    s/^\s+//; 

    my $status; 

    if ($^O eq 'MSWin32'){ 
     $status = (split)[3]; 
    } 
    else { 
     $status = (split)[5]; 
    } 

    next if ! $status; 

    $data{$status}++ if defined $data{$status}; 
} 

print "$data{$_}\n" for @wanted;