523066680

凑个热闹

use Modern::Perl;
use JSON;
use File::Slurp;

my $text = read_file( "ipgroup.txt" );
my $struct = from_json( $text );

for my $e ( @$struct )
{
    for my $ips ( @{ $e->{ips} } )
    {
        say $ips->{name}, " - ", $ips->{outerip};
    }
}
复制代码