파일에서 값을 가져 와서 변수에 지정하고 루프에서 실행하는 방법

Question

텍스트 파일에서 값을 가져 와서 루프에서 변수를 얻기 위해 변수에 할당하고 싶습니다. data.text 파일은 두 개의 열이 나는 다음 다음 값 연령을 가지고 $age에 할당이에서 이름을 선택하고 $name에 할당 할

 
Name, Age 
ABC , 31 
def , 41 
ghi  , 51 

가 포함되어 있습니다. 나는 파일의 끝까지 이러한 순서를 가져올 것이다.

나는 foreach & 라인을 사용하여 시도하지만 어쩌면이 정규식 또는 목록 만

를 CSV처럼 보이는 샘플 프로그램

Answer 1

에 도움을 주시기 바랍니다 그것을 사용하는 방법을 잘하지를 사용하여 가능하다 전체 라인을 가져올 수 파일. 이를 위해 proper CSV parser을 사용하고 싶습니다.

lassign [lmap value [csv::split $line] {string trim $value}] name age 

그러나 그것은 순수하게 정제입니다 :

package require csv 

set f [open "data.text"] 

# Skip the header line; we could parse it, but we won't 
gets $f 

# Parse the remaining lines 
while {[gets $f line] >= 0} { 
    lassign [csv::split $line] name age 
    # Your data has extra spaces in it, it seems; we deal with that here 
    set name [string trim $name] 
    set age [string trim $age] 
    # Now we'll do something with that 
    puts "name is '$name', age is '$age'" 
} 
close $f 

은 Tcl 8.6

---

, 당신은 더 직접적으로 트리밍 통합 할 수 있습니다. ( lmap이없는 전에 8.5, 당신은 foreach로 쓸 수 등등,하지만 진짜 포인트가 없습니다,. 두 필드가있을 때 당신이 그것을하지 않고 직접 충분히 코드를 작성할 수 있습니다)에 대한