Help for this page

Select Code to Download

Select or download this

while ($parse =~ s!(\d{1,2})/(\d{1,2})(?:-(\d{1,2}))?!!) {
  $end = $3 ? $3 : $2;
  print "untagged Interface GigabitEthernet $1/$_\n" for ($2 .. $end)
}

Select or download this

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

__DATA__
untagged Interface GigabitEthernet 1/2,1/3-5,1/12,1/40