How to count command line arguments in expect script?

Question

This is my simple expect script:

#!/usr/local/bin/expect
puts "Argu 1 : [lindex $argv 0]"

Run
---
expect example.expt Testing

Output
------
Argu 1: Tesing

I need to count the arguments, which are passed by command line. Like this:

expect example.expt 1 2 3 4

I need the script for the following output
Total: 4 arguments
Arg1: 1
Arg2: 2
Arg3: 3
Arg4: 4

How can I do this? Thanks!

Answer 1

expect uses Tcl as its scripting language. You're looking for the llength command:

puts "Total: [llength $argv] argument(s)"