Tcl/Tkでリストの要素を別の変数に設定する

この記事は 2024 年 5 月 30 日に投稿しました。

1. はじめに

こんにちは、iOS のエディタアプリPWEditorとその後継PWEditor2の開発者の二俣です。
今回は業務で使用しているTcl/Tkでリストの要素を別の変数に設定する方法についてです。

2. Tcl/Tkでリストの要素を別の変数に設定する

TCL/TKでリストの要素を別の変数に設定するには、lassignコマンドを使用します。

書式

lassign<リスト> <変数1> <変数2> ... <変数n>

リストの要素数より変数の数が多い場合、空の文字列が設定されます。
リストの要素数より変数の数が少ない場合、残りの要素のリストが返されます。

実装例

# リストを作成します。
set l {Apple Banana Orange}

# 要素を変数に設定します。
# 要素数と変数の数が同じ場合
lassign $l value11 value12 value13

# 変数の内容を表示します。
puts $value11
puts $value12
puts $value13

# 要素を変数に設定します。
# 要素数より変数の数が多い場合
lassign $l value21 value22 value23 value24

# 変数の内容を表示します。
puts $value21
puts $value22
puts $value23
puts $value24

# 要素を変数に設定します。
# 要素数より変数の数が少ない場合
set ll [lassign $l value31 value32]

# 変数の内容を表示します。
puts $value31
puts $value32
puts $ll

実行結果

Apple
Banana
Orange
Apple
Banana
Orange

Apple
Banana
Orange

リファレンス

Tcl/Tk公式サイト(英語)

Tcl(Wikipedia日本語)

Tk(Wikipedia日本語)

list(英語)コマンド

lassign(英語)コマンド

目次へ

3. おわりに

lassignコマンドですが、便利そうですが使い道がちょっと思い浮かびません。

リンク

紹介している一部の記事のコードはGitlabで公開しています。
興味のある方は覗いてみてください。

目次へ

私が勤務しているニューラルでは、主に組み込み系ソフトの開発を行っております。
弊社製品のハイブリッド OS Bi-OSは高い技術力を評価されており、特に制御系や通信系を得意としています。
私自身はiOS モバイルアプリやウィンドウズアプリを得意としております。
ソフトウェア開発に関して相談などございましたら、お気軽にご連絡ください。

また一緒に働きたい技術者の方も随時募集中です。
興味がありましたらご連絡ください。

EMAIL : info-nr@newral.co.jp / m-futamata@newral.co.jp
TEL : 042-523-3663
FAX : 042-540-1688

目次へ

プログラムを書こう！

実務や自作アプリ開発で習得した役に立つソフトウェア技術情報を発信するブログ