Perl里面调用子程序,这个没有特别的地方。如果需要跟子过程传入传出参数,就变成了函数。这也没什么特别,只在函数里获得传入参数的语句需要注意下。
==>例子trim_test.pl,脚本里建trim函数,消除前后的空格、制表符等空白
#!/usr/bin/perl -w
#
# trim_test.pl
use strict;
my ($var,
$var1,
$var2);
sub trim($)
{
my $string = shift; #获得传入的参数
$string =~ s/^/s+//;
$string =~ s//s+$//;
return $string;
}
$var=" abcd ";
$var1=$var."ef";
$var2=trim($var)."ef";
print "Before Trim => $var1/n";
print "After Trim => $var2/n";
==〉执行结果
C:/temp1>perl trim_test.pl
abcd
Before Trim => abcd ef
After Trim => abcdef