tcl file handling

john83reuben · 07-21-2008, 06:13 AM

I want to print

Code:

#!/projects/ilinterf/bin/expect

set INFILE [open "jokes.txt" r]
set data [read $INFILE]
set data [split $data "\n"]
foreach line $data {
        puts $line

below is the jokes.txt

Quote:

hello
mars
world
earth

i want to print only world, how to put it in array and print world only

Wim Sturkenboom · 07-21-2008, 07:44 AM

without arrays

Code:

if ($line == "world") {
    puts $line
}

# or
if [string match "world" $line] {
    puts $line
}

Can you explain what you want to do with arrays?