csv_example.tcl

package require csv
package require struct::matrix

proc parseCsv {csvFile} {

  catch {
    #doing a lot of reloading on the data matrix
    #need to delete the data command before issuing the 
    #struct command again
    rename data {}
  }
  ::struct::matrix data
  set chan [open $csvFile r]
  csv::read2matrix $chan data , auto
  close $chan
  puts "Processing CSV: $csvFile"

  set rows [data rows]

  puts "Total rows: $rows"
  for {set row 0} {$row < $rows} {incr row} {

    set dataRow [data get row $row]
    puts "row $row: $dataRow"
  }

  #remember to destroy the matrix!!!!
  data destroy
}