TCL-how do I make the ele in $argv into ind var [SOLVED]

[brent_weaver]

I am wrting a script and need to make $argv elements into individual variables that I can later reference. For example:

./tclscript element1 element2

I would like to split them up and set each as a variable to be later used in the script.

Any help is MUCH appreciated!

[timeBandit]

Use lindex to access individual elements of the argv list.
lindex argv 0 evaluates to the first argument, lindex argv 1 to the second, and so on.

Code: Select all

#!/bin/sh
# Re-execute with Tcl shell:\
exec tclsh "$0" "$@"

for {set i 0} {$i < [llength $argv]} {set i [expr $i+1]} {
        puts [format "argv(%u): %s" $i [lindex $argv $i]]
}

Code: Select all

~
18 :0 $ chmod +x foo.tcl 
~
19 :0 $ ./foo.tcl fee fie foe fum
argv(0): fee
argv(1): fie
argv(2): foe
argv(3): fum

Edit: Changed example to include the magical portable shebang line.

[brent_weaver]

Thank you SOOOO MUCH for your time and the GREAT response!!!

[brent_weaver]

One more question. How would I write this so it just takes two params and sets a var for each.

Example:

./script.tsh p1 p2

and it set $param1 = p1 and $param2 = p2?

I am so used to perl I am having a hard time wrapping my skull around this!

Thanks!

[bblount]

#!/usr/bin/tclsh

set param1 [ lindex $argv 0 ]
set param2 [ lindex $argv 1 ]

puts "$param1|$param2"


If you like you could also add a check to make sure you have exactly 2 args, and if not you could exit with a nonzero return code or something like that.

[timeBandit]

Side note: I edited my example script above to include a little trick that avoids the need to know where tclsh is installed (provided it's on the PATH).