同一脚本中的函数和调用

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