mp_list_iperf.pl 113 Bytes
Newer Older
1 2 3 4 5 6 7 8
use JSON::PP; 
while(<>){
  $t .=$_;
}
$json=decode_json($t);
foreach $mp(@$json){
	printf "%s\n", $$mp{navn};
}