You are here

fast file reading

안녕하세요 진짜 오랜만에 질문 드립니다.
text file 을 읽는 command 에대해서 질문을 드립니다.
tcl 이 기본적으로 속도가 다소 느린 언어라고 알 고있는데
제가 사용하는 system 에서는 150MB 의 test file 을 한줄씩 읽어내가면서 간단한 덧셈을 하는데
약 2분이 걸리는것을 확인했습니다
이상태라면 수GB 의 file 을 다룰때는 그보다 훨씬 많은 시간이 걸릴것같은데
제가 사용하는방법은

set a [open textfile r]
while {[gets $a line] >= 0} {
set sum [$sum + $line]
}

이런식으로 진행되는데 좀더 빠른 방법이 없을까요?
제가 아는 다른 tool 은 150 MB 를 10초만에 읽더라구요 ...
"제 추측으로는 line 을 1줄씩 읽지않고 정해진 규칙에따라 건너뛰는 기법도 쓰는것같은데 "
그방법도 궁금하네요 ..