Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings 'all';
...
my @Rec = $str =~ /-+\s+show switchname\s+-+[^\w]+(\w+)/ig;

print "$_\n" for @Rec;
  2. or download this
    __DATA__
 show tech-support details
...
-------------------- show switchname ------------------
CCC220_ANG_GREEN
******************************************************************
  3. or download this
    CCC217_ANG_GREEN
CCC218_ANG_GREEN
CCC219_ANG_GREEN
CCC220_ANG_GREEN