perl 子程序传递参数不同类型变量 设置
2006-01-18 10:43
555 查看
#!/bin/perl
$str_my1='_old1';
$str_my2='_old2';
&sub_test(*str_my1,*str_my2);
sub sub_test{
($str_my1,$str_my2)=@_;
print "sub:$str_my1/n";
print "sub:$str_my2/n";
$str_my1.='_new';
$str_my2.='_new';
print "sub:$str_my1/n";
print "sub:$str_my2/n";
}
print("/n$str_my1/n$str_my2/n");
#给子程序传递变量参数时
#可传递一般变量($var)也可以传递别名(*var)
#在子程序中设置用来接收参数的变量时可以用 my(vars) 或 local(vars)
#其中用my 只能接收 一般变量($var)不能传递别名(*var)
#而用local则两种都可以,但是 $vars 获得$var的值,而获得*var的变量名 ,*vars取得*var的指针(类c指针,但不一样),×vars不能获取$var(为空)
#如果不用my or local 则规则同local但是操作的都是指针
$str_my1='_old1';
$str_my2='_old2';
&sub_test(*str_my1,*str_my2);
sub sub_test{
($str_my1,$str_my2)=@_;
print "sub:$str_my1/n";
print "sub:$str_my2/n";
$str_my1.='_new';
$str_my2.='_new';
print "sub:$str_my1/n";
print "sub:$str_my2/n";
}
print("/n$str_my1/n$str_my2/n");
#给子程序传递变量参数时
#可传递一般变量($var)也可以传递别名(*var)
#在子程序中设置用来接收参数的变量时可以用 my(vars) 或 local(vars)
#其中用my 只能接收 一般变量($var)不能传递别名(*var)
#而用local则两种都可以,但是 $vars 获得$var的值,而获得*var的变量名 ,*vars取得*var的指针(类c指针,但不一样),×vars不能获取$var(为空)
#如果不用my or local 则规则同local但是操作的都是指针
相关文章推荐
- C语言学习4: 函数返回值与传入参数,关于函数值传递和类型隐性转换,变量不同的作用域,static变量,多文件编译例如两个C文件,显示函数调用语句跳转,递归,斐波那契数列,多文件编译相同变量的问题。
- *函数参数传递类的类型,在函数内部动态创建不同类型的实例
- 基础才是重中之重~值类型与引用类型作为参数传递的不同表现
- C++中将字符串作为参数传递,应采用什么类型变量
- perl 子程序传递参数
- uboot环境变量(设置bootargs向linux内核传递正确的参数)
- php接收curl传递不同参数类型的情况分析
- Mybatis深入-如何使用传递不同类型的参数(以及等量替换符号的使用)
- js 基本类型和引用类型 变量复制 参数传递
- Array of const 形式的参数可以传递不同类型的参数
- 引用传递的参数类型,加不加ref是不同的
- 引用传递的参数类型,加不加ref是不同的
- uboot环境变量(设置bootargs向linux内核传递正确的参数)
- PERL语言入门:第四章:子程序(函数):参数与子程序的私有变量
- uboot环境变量(设置bootargs向linux内核传递正确的参数)
- 将多个不同类型的控件放在一个动态数组(ArrayList)中作为参数(控件数组)传递
- Android C++向java传递不定长且不同类型的参数
- 参数传递中某些情况下数组和变量的不同
- perl基础:传递hash类型参数
- 通过环境变量设置将外部参数传递到qooxdoo应用系统内部