局部变量
局部变量在过程执行完毕返回时自动销毁，结束其生命周期。所以过程内定义的变量，在过程外无法访问。例如，下面例子中定义了过程add，调用过程add后，无法访问变量c，因为c是局部变量。
% proc add {a b} {

set c [expr $a+$b]

}

% add 3 4

7

% set c

can't read "c": no such variable
全局变量
特指全局名字空间（::）中的全局变量
举例如下
定义了全局变量c，赋值2；
% set c 2

2
定义过程add1，在过程中通过::c的方式使用了全局变量c；
% proc add1 {a b} {

set ::c [expr $a+$b]

return $::c

}
调用过程add1

% add1 3 4

7
之后查看全局变量c的值也随add1的调用改变。

% set c

7
另外一种在过程中调用全局变量的方法
% set c                              ;#c的初值为7

7

% proc add2 {a b} {     
global c                             ;#引用全局变量c
set c [expr $a+$b+$c]

return $c

}

% add2 4 5                        ;#调用过程add2

c

% set c                                ;#调用过程add2后，c的值变成16

16
名字空间的变量
也有全局和局部之分，与上面类似，只是名字空间不同。
举例如下
% set len 300

300

% set wid 100

100
% namespace eval cc {

  variable len 30

  variable wid 10

  proc area {a b} {

    variable len                          ;#引用名字空间cc的全局变量len和wid
    variable wid
    puts "$len,$wid\n"             ;#输出名字空间cc的全局变量len和wid

    set area [expr $a*$b]

    return $area

  }

}

% cc::area $len $wid            ;#调用全局变量len和wid，注意与下面的差别  

30,10
30000

% cc::area $cc::len $cc::wid  ;#调用名字空间cc的全局变量cc::len和cc::wid
30,10
300

%
总结 global关联的是全局名字空间（::）中的全局变量，
          varible关联的是命令所在名字空间的全局变量。

sample.txt:

this is a teacher

this is a professor

that is a boy

that is a girl

she is beautiful lady

he lost his way





sed命令使用变量

1. 搜索指定字符串的行，并打印出来

root# sed -n '/this/p' sample.txt

this is a teacher

this is a professor



将this以变量替换来搜索，并打印出来

root# word=this

root# sed -n '/'$word'/p' sample.txt

this is a teacher

this is a professor



2. 搜索指定行号，并打印出来

root# sed -n '2p' sample.txt

this is a professor



将行号以变量形式替换，并打印出来

root# lineno=2

root# sed -n "$lineno"'p' sample.txt

this is a professor



3. 搜索双模式匹配的行，并打印出来

   (a):A与B关系

root# sed -n '/that/{/is/p}' sample.txt

that is a boy

that is a girl



将that和is以变量形式替换，并打印出来

root# sed -n '/'$word1'/{/'$word2'/p}' sample.txt

that is a boy

that is a girl

   (b):A或B关系

root# sed -n '/that\|way/p' sample.txt 或者用（ sed -n -e '/that/p' -e '/way/p' sample.txt）

that is a boy

that is a girl

he lost his way





4. 替换指定字符串，如用THAT 替换that

root# sed  's/that/THAT/g' sample.txt

this is a teacher

this is a professor

THAT is a boy

THAT is a girl

she is beautiful lady

he lost his way

只显示替换行

root# sed -n 's/that/THAT/g''p' sample.txt

THAT is a boy

THAT is a girl



将THAT以变量形式替换掉that，并显示替换行

root# sed -n 's/that/'$word'/g''p' sample.txt

THAT is a boy

THAT is a girl

word不加单引号则打印出：

$word is a boy

$word is a girl



5. 替换模式boy的匹配行中指定字符串that，并打印出来

root# sed -n '/boy/  s/that/THAT/g''p' sample.txt

THAT is a boy



将THAT以变量形式替换掉that，并显示替换行

root# sed -n '/boy/  s/that/'$word'/g''p' sample.txt

THAT is a boy



6. 替换模式（that与girl中有任意个字符）匹配行中指定字符串，并打印出来

root#sed -n '/that.*girl/  s/that/THAT/g''p' sample.txt

THAT is a girl

当模式中任意个字符用“.*”作为通配符。



7. 替换多模式匹配

多个匹配可以用匿名管道方式过滤

root#$ sed -n '/that/{/is/p}' sample.txt |sed -n 's/boy/BOY/g'p

that is a BOY

但是这样替换不能够将sample.txt文件中对应部分替换，如果要替换，可以先获取改行行号，然后做替换动作。



root# linenos=`sed -n '/that/{/is/=}' sample.txt`

root# echo $linenos

3 4

root# for lineno in $linenos

> do

> sed -i ''"$lineno"' {s/boy/BOY/g; s/girl/GIRL/g}' sample.txt

> done

root# cat sample.txt

this is a teacher

this is a professor

that is a BOY

that is a GIRL

she is beautiful lady

he lost his way

--引用型变量

--打开oracle的输出口
--set serveroutput on

declare
    --定义引用型变量，查询并打印1232的姓名和薪水
    --pename varchar2(20);--这2句和下面的2句效果一致
    --psal number;
    pename emp.ename%type;
    psal emp.sal%type;
begin
    --得到1232的姓名和薪水
    --赋值的方式有:=和into
    select ename,sal into pename,psal from emp where empno=122;
    
    --打印姓名和薪水
    dbms_output.put_line(pename||'的薪水是'||psal);
    
    
end;
/
    

记录型变量程序举例：
--记录型变量:取表中的一行的类型作为变量的类型，
--可以把记录型变量理解成一个数组，而数组中的每一个元素代表每一列

--举例 rec是记录的简写,row是行,type是类型，就是行类型
 -- emp_rec emp%rowtype;
--记录型变量分量的引用
 -- emp_rec.ename:='ADAMS';
 
 --使用记录变量，查询并打印123的姓名和薪水
 --set serveroutput on
 declare
     --定义记录型变量：注意代表一行
     emp_rec emp%rowtype;
 begin
    --得到123一行的信息
    
    select * into emp_rec from emp where empno=123;
    
    --打印姓名和薪水
    dbms_output.put_line(emp_rec.ename||'的薪水是'||emp_rec.sal);
   end;
   --/

#include <stdio.h>
#include <stdlib.h>

//定义结构体类型xyCdnt
struct xyCdnt
{
	int x;
	int y;
};

//求和函数（输入变量是结构体变量）
int myAdd(xyCdnt xyCdntLoc)
{
	int sum;
	sum=xyCdntLoc.x+xyCdntLoc.y;

	return sum;
}

//求和函数（输入变量是结构体类型指针）
int myAddP(xyCdnt *xyCdntLocP)
{
	int sum;
	sum=xyCdntLocP->x+xyCdntLocP->y;

	return sum;
}

//求和函数（输入变量是基本变量int型）
int myAddInt(int x,int y)
{
	int sum;
	sum=x+y;

	return sum;
}

int main()
{
	//结构体变量声明
	xyCdnt xyCdntObj0;
	xyCdntObj0.x=1;
	xyCdntObj0.y=2;
	printf("row1: x=%d y=%d\n",xyCdntObj0.x,xyCdntObj0.y);
	
	//结构体类型指针
	xyCdnt *pXyCdntObj;
	pXyCdntObj=&xyCdntObj0;
	printf("row2: x=%d y=%d\n",pXyCdntObj->x,pXyCdntObj->y);

	//用结构体指针改变成员值
	pXyCdntObj->x=3;
	pXyCdntObj->y=4;
	printf("row3: x=%d y=%d\n",pXyCdntObj->x,pXyCdntObj->y);
	
	int sum1,sum2,sum3,sum4,sum5,sum6,sum7;
	sum1=myAdd(xyCdntObj0);	//传递结构体变量
	printf("row4: sum1=%d\n",sum1);
	sum2=myAdd(*pXyCdntObj); //传递结构体指针的内容
	printf("row5: sum2=%d\n",sum2);
	sum3=myAddP(pXyCdntObj); //传递结构体指针
	printf("row6: sum3=%d\n",sum3);
	sum4=myAddP(&xyCdntObj0);  //传递结构体的地址
	printf("row7: sum4=%d\n",sum4);
	sum5=myAddInt(xyCdntObj0.x,xyCdntObj0.y); //传递结构体变量的成员
	printf("row8: sum5=%d\n",sum5);
	sum6=myAddInt(pXyCdntObj->x,pXyCdntObj->y); //通过结构体类型指针传递成员
	printf("row9: sum6=%d\n",sum6);
	sum7=myAddInt((*pXyCdntObj).x,(*pXyCdntObj).y); //通过结构体类型指针的内容传递成员
	printf("row10: sum7=%d\n",sum7);

	system("pause");

	return 1;
}