1.捕捉外部命令输出结果:反引号``
即用反引号括起来的任何命令均有perl作为外部命令来运行，就行通过system运行的一样，其输出被捕获，并且作为反引号的返回值返回。如：
my $svnbakversion = `svnlook youngest $bkrepos1`
print $svnbakversion;
如果输出结果不是单字符串,反之是列表,则可将其赋值给数组@dirdata
2. 代码
if ($svnbakversion =~ /\d+/)
{
push (@baksucces, $myrepos);
}
else
{
push (@bakfailed, $myrepos);
}
说明:
a. 检测svnbakversion 是否全为数字
b. push 添加数组元素,即将$myrepos值加入到数组@baksucces/@bakfailed
如果你使用的邮件发送地址,需要验证即使用$smtp->auth('user','pwd');
那么你需要安装Perl模块Authen::SASL (optional Perl module for SVN::Notify)
安装步骤如下:
# wget http://search.cpan.org/CPAN/authors/id/G/GB/GBARR/Authen-SASL-2.12.tar.gz
# chmod a+x Authen-SASL-2.10.tar.gz
# tar zxvf Authen-SASL-2.10.tar.gz
# cd Authen-SASL-2.10
# perl Makefile.pl
==> Auto-install the 1 optional module(s) from CPAN? [n] y // 首次执行的时候，需要CPAN 初始化设置。
==> Auto-install the 1 optional module(s) from CPAN? [n] y //之后一路按回车
# make test
# make install //安装完成
Posts
