TCL에 대해 알아보자(5) TCL의 파일 입출력

이번 챕터에선 TCL 파일 입출력에 대해 알아보겠습니다
슬슬 제가 계획한 TCL 기초가 끝나갑니다

반복해서 넣는 TCL 로고

1. 파일 열기와 닫기
TCL에서는 open 명령어를 사용하여 파일을 열 수 있습니다. 이 명령어는 파일명과 모드를 인수로 받습니다. 파일을 열 때 사용할 수 있는 모드는 다음과 같습니다:

읽기 모드: r
쓰기 모드: w
추가 모드: a

파일을 열면, 파일에 대한 파일 핸들이 반환됩니다. 이 파일 핸들을 사용하여 파일을 읽거나 쓸 수 있습니다. 또한, 파일 작업을 마친 후에는 반드시 close 명령어를 사용하여 파일을 닫아야 합니다.

# 파일 열기
set filename "example.txt"
set file [open $filename "r"]

# ... 파일 처리 작업 ...

# 파일 닫기
close $file

2. 파일 읽기와 쓰기

파일에서 읽기 위해, TCL에서는 gets 함수를 제공합니다. 이 함수는 파일 핸들과 변수를 인수로 받아 파일의 다음 라인을 해당 변수에 할당합니다.

set filename "example.txt"
set file [open $filename "r"]

# 한 줄 읽기
set line [gets $file]

# 파일 닫기
close $file

파일에 쓰려면, puts 함수를 사용할 수 있습니다. 이 함수는 파일 핸들과 쓰고자 하는 문자열을 인수로 받습니다.
다음은 텍스트를 파일에 쓰는 방법을 보여줍니다.

set filename "example.txt"
set file [open $filename "w"]

# 한 줄 쓰기
puts $file "This is a line of text."

# 파일 닫기
close $file

이러한 방법을 사용하면, TCL 스크립트에서 파일을 읽고 쓸 수 있습니다.

파일을 적절히 닫지 않으면 데이터 손실이나 다른 문제가 발생할 수 있습니다.

3. 파일에서 전체 내용 읽기

파일의 전체 내용을 읽으려면 read 함수를 사용할 수 있습니다. 이 함수는 파일 핸들을 인수로 받습니다.

set filename "example.txt"
set file [open $filename "r"]

# 파일의 전체 내용 읽기
set content [read $file]

# 파일 닫기
close $file

4. 파일의 존재 확인

특정 파일이 존재하는지 확인하려면, file exists 함수를 사용할 수 있습니다.
이 함수는 파일명을 인수로 받습니다.

set filename "example.txt"

if {[file exists $filename]} {
    puts "The file exists."
} else {
    puts "The file does not exist."
}

이렇게 TCL에서 제공하는 파일 처리 기능들은 파일에서 데이터를 읽고 쓰는 다양한 문법이 있습니다.
도움이 되셨으면 좋겠습니다.