How to do data manipulations with tcl?

[fabien]

How to do data manipulations with tcl? For instance I want to be able to open a file and select a given column and stores this into a variable.

Basically I am looking some tcl examples of what awk can easily do.

Any help/links would be much appreciated.

 

[ulis]

Getting an element in a matrix file:

  # set a matrix file
  set fn myfile
  set fp [open $fn w]
  foreach row {0 1 2}   {
    foreach col {0 1 2}     {
      # write and element and its separator
       puts -nonewline $fp "r${row}c${col} " 
    }
    # write the end of line
    puts $fp ""
  }
  close $fp
  # the proc
  proc getxy {file row col}   {
    set fp [open $file]
    set n -1
    while {![eof $fp]}     {
      # read a line of elements 
      set line([incr n]) [gets $fp] 
    }
    close $fp
    # get the line
    set theline $line($row)
    # return the element
    return [lindex $theline $col]
  }
  # get the 3rd element of the 2nd row
  puts [getxy $fn 1 2]

File commands are: open, close, gets, puts
Each record of the file can be considered a list of elements.
Getting the file in memory, one can access each line by gets.
And each element inside a line by lindex.

bonne chance !

ulis

 

[ulis]

In place of:
"Getting the file in memory, one can access each line by gets"
read:
"Each line can be accessed by gets"

ulis