天堂1111 发表于 2019-1-5 09:34:45

关于lvs的一个脚本

　　这个脚本老早之前完成的，还是在刚开始学perl的时候
　　lvs添加realserver的时候，一大堆的命令，记不住，索性写一脚本方便操作
http://blog.运维网.com/attachment/201101/125829742.png
　　后面的pringlog 以及usage函数是这样写的
　　sub printlog {
    my $messages = shift;
    open(SYSLOG,">>/var/log/messages") || die "$!\n";
    print SYSLOG "$messages";
    close SYSLOG;
}

sub usage {
    print
页: [1]
查看完整版本: 关于lvs的一个脚本