《ns路由模拟专题》由会员分享，可在线阅读，更多相关《ns路由模拟专题（51页珍藏版）》请在金锄头文库上搜索。
1、NS 路由模拟,-蔡飞,主要内容,Tcl和Otcl语言 NS基础 gawk语言 Gnuplot画图工具,Tcl语言,Tcl（tool command language）Tcl是一种解释型的脚本语言。脚本解释器为tclsh，同时它也是一个shell环境。Tcl和C语言有着天然的亲缘关系，即相近的数据类型与控制结构；通过规范的API，能够比较方便的用C进行Tcl的扩展开发。1、Tcl首先是作为一种简单的命令脚本语言而发明，以便控制和调用各个系统命令。2、与C相似的数据类型与控制结构，使其具有处理高级事务的能力。3、强大的文本处理能力。,变量,Tcl中变量由字母、数字、下划线组成，区分大小写，变量名
2、长度没有限制 Set命令-变量赋值：set 变量名 值set a “a”set b aset $b,变量,Unset命令-删除变量Unset var1 var2.Info命令-查看变量是否存在 If ！info exist foobar Set foobar 0 else incr foobar #incr命令整数+1 ,组合和替代,命令替代 用中括号“”嵌套命令实现，中括号中的命令成为嵌套命令。解释器把中括号中的所有字符最为一条命令，并返回执行结果，作为上一层命令的参数。 set foobar “1234” set len string length foobar =4,组合和替代,反斜杠替
3、代 特殊字符的使用前面加“”，如“$”表示“$”本身。 set dollar $foo =$foo set x $dollar =$foo,组合,“” 内容作为一个整体，里面支持$ 的作用 内容作为一个整体，但里面不支持$ 及转义字符的作用 %set s hello %puts stdout “the length of $s is string length $s” %puts stdout the length of $s is string length $s,过程,基本命令格式： proc name arglist body Name是自定义的过程名，arglist是参数列表，body
4、是过程体，过程体可以包含一个或者多条Tcl语句。 可包含任何字符，过程名和变量名没有任何冲突。习惯是过程名首字母大写。,数学运算,expr命令expr 1+2set len exprstring length foobar = 7 内嵌函数set pi expr 2*asin(1.0),过程,Proc Max a b if $a $b set aelse set b ,流控制命令,if expr . . . 或者：if expr1 . . . elseif expr2 . . . else . . .表达式的值应该为逻辑值，表达式支持逻辑运算（与C相似）。 例子if $x = “Mark” &
5、 $y = 1 puts Hello!,流控制命令,for 循环按照C语言的教程，if语句后应该是for循环了。for start_expr test_condition next or step body;for set x 0 $x10 incr x puts “x is $x“循环里可以有break ，continue。实际上，for 的语法形式很简单，你完全可以用C的语法来考虑它。表达式也可以是复合的：% for set x 0; set y 10 $x 3 incr y puts “$x - $y“在写程序时需要注意的是整个句子里，变量有的地方带$，有的地方不带$，这是经常容易笔误的
6、地方。,流控制命令,while 循环while test_condition body;set x 0while $x0 print $1 $2 conf.data1 conf.data2 没有输入文件时执行gawk $2 0 print $1 $2当没有输入文件时,将从标准输入中读取,3.GAWK变量和运算符,字段变量一个字段变量是通过此变量的前缀美元符号 来加以识别.$1 $2 gawkresult=$3 * $4 ;print result print_file 用户自定义变量pi=3.14,3.AWK变量和运算符,内部变量,3.AWK变量和运算符,3.AWK变量和运算符,FS :ech
7、o 10.10.s90.20 |awk -F “s“ print $1 OFS:awk $1=“d“OFS=“n“;print $1,$2 test.file NF:echo 10.10.s90.20 |awk -field-separator=“.“ print NF NR:echo 10.10.s90.20 |awk -field-separator=“s“ print NR echo 10.10.s90.20 |awk -F “.“ OFS=“n“;print $1, $2, $3, $4 /sbin/ifconfig | awk if(match($0,/(192|10).0-9+.(
8、24|242|90).0-9+/) print substr($0,RSTART,RLENGTH);,3.AWK变量和运算符,算术运算符 复制运算符 条件表达式 比较表达式?表达式1:表达式2 逻辑和关系运算符AWK中的关系运算符匹配运算符,4.AWK内部函数已及优先权,内部算术函数 内部字符串函数 优先权,4.AWK内部函数已及优先权,Awk得内部算术函数,4.AWK内部函数已及优先权,内部字符串函数index(s,t)eg:index(“this is a test”,”test”)length(s)eg:echo 10.10.90.20|awk print length($0) subs
9、tr(s,p) substr(s,p,n)eg:awk print “year is“,substr(“04-17-09“,7)/sbin/ifconfig | awk if(match($0,/(192|10).0-9+.0-9+.0-9+/) print substr($0,RSTART,RLENGTH);match(s,r)eg:awk print match(“this is an example of match“,/example/)gsub(r,s) gsub(r,s,t) sub(r,s) sub(r,s,t)eg:sub(/coatings/,”Adhesion”,”The coatings conference examines coatings technology”),
