와일드카드 패턴과 일치하는 최상위 인스턴스 이름

이 설계 예는 와일드카드 패턴과 일치하는 최상위 인스턴스 이름을 반환하는 Tcl 절차를 제공합니다. 절차를 Tcl 스크립트에 복사하여 붙여넣은 다음 프로시저를 호출합니다.
절차는 목록에서 인스턴스 이름을 반환합니다. 최상위 인스턴스 이름이 와일드카드 패턴과 일치하지 않으면 프로시저가 빈 목록을 반환합니다. 인스턴스 이름은 임의 순서로 반환됩니다. 알파벳 순으로 정렬하는 등 특정 순서로 인스턴스 이름 목록을 반환하려면 lsort 명령을 사용하여 적절하게 정렬하십시오.
예를 들어, 설계의 최상위 인스턴스 이름이 foo1, foo2, foo3, bar1, bar2및 bar3인경우, 프로시저 콜

get_top_level_instances_matching *2 을 { foo2 bar2 } 반환합니다.

proc get_top_level_instances_matching { 와일드카드 } {

    # 와일드카드 캐치 {배열 unset names_to_return } 배열 세트 names_to_return [목록] # 이름 모음이 모두 상한 수준인 최상위 인스턴스를 유지하는 변수를
    
    만듭니다. 디자인
    foreach_in_collection name_id [get_names -filter * -node_type 계층 구조] {
    
        # short_full_path 옵션은 양식
        #instance|instance| 에서 이름을 가져옵니다.
        # "노드 이름에 대한 디스플레이 엔티티 이름" 설정이 설정되어 있는지 여부에 관계없이 인스턴스만
        사용합니다short_full_name [get_name_info -info short_full_path $name_id]
        
        # 계층 구조를 목록으로 분할하여
        # 계층 구조 분리기 |
        short_full_pieces 설정 [분할 $short_full_name "|"]
        
        # 최상위 인스턴스 이름 가져오기 - 목록 세트의 첫 번째
        인스턴스 top_level_instance [lindex $short_full_pieces 0]
        
        # 최상위 인스턴스 이름이 와일드카드와 일치하는 경우
        {
        [문자열 일치 $wildcard $top_level_instance] }
            {세트 names_to_return($top_level_instance) 1
        } 반환
    
    [배열 이름 names_to_return]
}