關于lvs的一個腳本

這個腳本老早之前完成的，還是在剛開始學perl的時候

lvs添加realserver的時候，一大堆的指令，記不住，索性寫一腳本友善操作

<a target="_blank" href="http://blog.51cto.com/attachment/201101/125829742.png"></a>

後面的pringlog 以及usage函數是這樣寫的

sub printlog {

    my $messages = shift;

    open(SYSLOG,"&gt;&gt;/var/log/messages") || die "$!\n";

    print SYSLOG "$messages";

    close SYSLOG;

}

sub usage {

    print &lt;&lt;EOT;

No arguments!

Usage: $0 &lt;-add|-del&gt; &lt;ipadd&gt; [weight] 

Options

-add 

    this options means you will add a host to lvs pool

-del 

    this options means you will del a host from lvs pool

weight 

    the weight for lvs host 

EOT

本文轉自dongfang_09859 51CTO部落格，原文連結：http://blog.51cto.com/hellosa/487015，如需轉載請自行聯系原作者