You are here

숫자 3자리마다 콤마 찍기 문의

초보적인 질문인데요.

팁에 숫자 3자리마다 콤마찍기가 올라와 있어 실행해봐도 찍히질 않습니다.

proc comma {num {sep ,}} {
        while {[regsub {^([-+]?d+((ddd(} $num "\1$sep\2" num]} {}
        return $num
}
puts [comma 19871298712938 ,]

왜 안찍힐까요... ;;

그리고 정규표현식이라 잘 이해가 안되는데... regsub 부분 설명도 간략하게 부탁드립니다.