同一脚本中的函数和调用

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值