Perl 调用短信

<pre name="code" class="sql">#!/usr/bin/perl 
$dir  = '/home/websphere/WebSphere/AppServer/profiles/AppSrv01/logs/server1';
$file = '1.log';
$mon_file = "$dir/$file";
print "\$mon_file is $mon_file\n";
@warn_arr = qw/连接已关闭 NullPointException IndexOutOfBound exception/;
foreach $a (@warn_arr) {
    undef @err_info;
    open( C, "<", "$a.tmp" );
    while (<C>) {
        $count = $_;
}
    print "$a is $count";

    open( A, "<", "$mon_file" ) || die "$!\n";
    $i   = 0;
    $num = 0;
    while (<A>) {
        $num++;
        if ( $_ =~ /$a/i ) { $i++; $b = $num }
}
    print "\$b is $b\n";

    if ( $i != 0 && $i != $count && defined($count) ) {
        open( B, "<", "$mon_file" ) || die "$!\n";
        while (<B>) {
            chomp($_);
            push( @err_info, $_ ) if ( $. >= $b + 1 and $. <= $b + 2 );
}
        print "\@err_info is @err_info\n";
        system("SMSsendx  111111111 \"@err_info\" 10.10.10.10");
}

    open( C, ">", "$a.tmp" );

    print C ("$i\n");

}