snippet to lean LACP members

lacp.tcl

# also fill an array with port-channel members so we can exclude them 
set LACP [list]
if {$showLACP =="" && $tcl_platform(machine) =="Switch"} {
        foreach word [split [exec "show etherc summ | begin ^\[0-9]"]] {
                if [string is integer -strict $word] {
                        set portchannel $word
                }
                if [regexp {(.*)\(P\)$} $word -> lacp] {
                        lappend LACP $lacp
}       }       }