站长百科 | 数字化技能提升教程 数字化时代生存宝典 
在Debian系统中，解释型语言脚本通常用于自动化任务、系统管理等，这些脚本可以用Bash、Python、Perl等编程语言编写。本篇教程将介绍Debian调试解释型语言代码、使用 shell 脚本的 GUI 程序和定制 GUI文件管理器的行为等方面。
解释器相关软件包列表：
| 软件包 | 流行度 | 大小 | 文档 |
| dash | V:883, I:997 | 191 | sh: 小和快的 POSIX 兼容的 shell，用于 sh |
| bash | V:837, I:999 | 7175 | sh: 由 bash-doc 包提供的“info bash” |
| mawk | V:437, I:997 | 285 | AWK: 小和快的 awk |
| gawk | V:286, I:351 | 2906 | AWK: 由 gawk-doc 包提供的“info gawk” |
| perl | V:702, I:989 | 673 | Perl: perl(1) |
| libterm-readline-gnu-perl | V:2, I:29 | 380 | GNU ReadLine/History 库的 Perl 扩展： perlsh(1) |
| libreply-perl | I:0 | 171 | Perl 的 REPL : reply(1) |
| libdevel-repl-perl | V:0, I:0 | 237 | Perl 的 REPL : re.pl(1) |
| python3 | V:714, I:951 | 81 | Python: python3(1) |
| tcl | V:25, I:223 | 20 | Tcl: tcl(3) |
| tk | V:20, I:217 | 20 | Tk:tk(3) |
| ruby | V:85, I:211 | 29 | Ruby: ruby(1), erb(1), irb(1), rdoc(1), ri(1) |
当你希望在 Debian 上自动化执行一个任务，你应当首先使用解释型语言脚本。选择解释型语言的准则是：
- 使用 dash，如果任务是简单的，使用 shell 程序联合 CLI 命令行程序；
- 使用 python3，如果任务不是简单的，你从零开始写；
- 使用 perl、tcl、ruby……，如果在 Debian 上有用这些语言写的现存代码，需要为完成任务进行调整。
如果最终代码太慢，为提升执行速度，你可以用编译型语言重写关键部分，从解释型语言调用。
一、调试解释型语言代码
大部分解释器提供基本的语法检查和代码跟踪功能。
- “dash -n script.sh” - Shell 脚本语法检查；
- “dash -x script.sh” - 跟踪一个 Shell 脚本；
- “python -m py_compile script.py” - Python 脚本语法检查；
- “python -mtrace --trace script.py” - 跟踪一个 Python 脚本；
- “perl -I ../libpath -c script.pl” - Perl 脚本语法检查；
- “perl -d:Trace script.pl” - 跟踪一个 Perl 脚本。
为了测试 perl 代码，尝试下 Perl 的 REPL 环境，它为 Perl 提供了 Python 类似的 REPL (=READ + EVAL + PRINT + LOOP) 环境。
二、使用GUI程序
shell 脚本能够被改进用来制作一个吸引人的 GUI（图形用户界面）程序，其技巧是用一个所谓的对话程序来代替使用 echo 和 read 命令的乏味交互。
对话（dialog ）程序列表：
| 软件包 | 流行度 | 大小 | 说明 |
| x11-utils | V:197, I:564 | 651 | xmessage(1)：在一个窗口中显示一条消息或疑问（X） |
| whiptail | V:274, I:996 | 56 | 从 shell 脚本中显示用户友好的对话框（newt） |
| dialog | V:11, I:101 | 1227 | 从 shell 脚本中显示用户友好的对话框（ncurses） |
| zenity | V:76, I:362 | 183 | 从 shell 脚本中显示图形对话框（GTK） |
| ssft | V:0, I:0 | 75 | Shell 脚本前端工具 (zenity, kdialog, and 带有 gettext 的 dialog 封装) |
| gettext | V:57, I:259 | 5817 | “/usr/bin/gettext.sh”：翻译信息 |
这里是一个用来演示的 GUI 程序的例子，仅使用一个 shell 脚本是多么容易。
这个脚本使用 zenity 来选择一个文件 (默认 /etc/motd) 并显示它。
#!/bin/sh -e # Copyright (C) 2021 Osamu Aoki <osamu@debian.org>, Public Domain # vim:set sw=2 sts=2 et: DATA_FILE=$(zenity --file-selection --filename="/etc/motd" --title="Select a file to check") || \ ( echo "E: File selection error" >&2 ; exit 1 ) # Check size of archive if ( file -ib "$DATA_FILE" | grep -qe '^text/' ) ; then zenity --info --title="Check file: $DATA_FILE" --width 640 --height 400 \ --text="$(head -n 20 "$DATA_FILE")" else zenity --info --title="Check file: $DATA_FILE" --width 640 --height 400 \ --text="The data is MIME=$(file -ib "$DATA_FILE")" fi
这种使用 shell 脚本的 GUI 程序方案只对简单选择的场景有用。如果你写一个其它任何复杂的程序，请考虑在功能更强的平台上写。
三、定制GUI文件管理器
GUI（图形用户界面）文件管理器在选定的文件上，能够用外加的扩展软件包来扩展执行一些常见行为。通过增加特定的脚本，它们也能够用来定制执行非常特殊的行为。
四、Perl短脚本
处理数据时，Shell 脚本经常依赖于创建子进程来运行诸如 cut、grep、sed 等外部命令，这种多进程的方式往往会导致执行效率降低。相对而言，Perl 拥有强大的内部数据处理能力，能够更迅速地完成数据处理任务。
让我们考虑下面一行 AWK 脚本片段和它在 Perl 中的等价物。
awk '($2=="1957") { print $3 }' |
这等价于下列的任意一行。
perl -ne '@f=split; if ($f[1] eq "1957") { print "$f[2]\n"}' |
perl -ne 'if ((@f=split)[1] eq "1957") { print "$f[2]\n"}' |
perl -ne '@f=split; print $f[2] if ( $f[1]==1957 )' |
perl -lane 'print $F[2] if $F[1] eq "1957"' |
perl -lane 'print$F[2]if$F[1]eq+1957' |
最后一个简直就是个迷。它用上了下面列出的这些 Perl 的特型。
- 空格为可选项；
- 存在从数字到字符串的自动转换；
- 通过命令行选项： perlrun(1) 的 Perl 执行技巧；
- Perl 特异变量：perlvar(1)。
注意：Perl的灵活性有时也可能导致代码变得难以理解和维护，因此编写 Perl 代码时应当谨慎行事，避免过度复杂化。
