- my $nbaor = 0;
- foreach my $aor (split(/,/, $str)) {
- if($nbaor > 0 && $aor =~ m/-/){
- die "you can use a range in a list";
- }
- if (!Net::IP->new($aor)) {
+ my $count = 0;
+ my $iprange = 0;
+ foreach my $elem (split(/,/, $str)) {
+ $count++;
+ if (!Net::IP->new($elem)) {