Pyker

proc split_noempty {args} {
    set ret {}
    foreach elem [split {*}$args] {
        if {$elem != ""} {
            lappend ret $elem
        }
    }
    return $ret
}