Tcl/argument - bambooflow Note

引数

コマンド実行時の引数を取得する方法

ファイル

• get_arg.tcl

#!/bin/sh
# \
exec tclsh "$0" "$@"

puts "arg = $argc"
puts "argv0 = $argv0"

if { $argc } {
  foreach str $argv { 
    puts $str
  }
}

exit

$argc

引数の数、引数がない場合の値は0

$argv

引数のリスト

$argv0

ファイル名

実行

$ chmod +x get_arg.tcl
$ ./get_arg.tcl aaa bbb ccc
arg = 3
argv0 = ./get_arg.tcl
aaa
bbb
ccc