You are here

입력값과 비교하기

serial 이라는 파일에 "123456789" 라는 값이 들어있고, entry 에서 입력받은 값과 비교하여
그 두 값이 같으면 correc message를 그렇지 않으면 incorrect 메세지가 뜨도록 하려 합니다.
아래와 같이 코드를 작성했는데 incorrect 메세지만 뜨네요.
어떻게 해야 하나요?

set se [open serial.lic r]
gets $se line
close $se

set empty "Insert the serial number"
entry .ent -textvariable empty
button .b -text "SERIAL" -command {
        bind .ent <Return> {puts $empty}
        set line $line
        if {$line == $empty} {
                tk_messageBox -title "result" -message "The number is correct."
        } else {
                tk_messageBox -title "result" -message "The number is incorrect.\n\nPlease insert a correct number."
        }
       
}
pack .b .ent -side left -padx 3 -pady 3 -ipadx 3 -ipady 3