參數(shù)調(diào)用問題

z0415010

各位大神，小弟初學(xué)perl,想寫個小程序，在參數(shù)調(diào)用的時候，一直沒達到預(yù)期的結(jié)果，還請各位大神看看呢。

。。。。。。。。。。

#獲取指定name的狀態(tài)信息

sub Get_Status
{
        my ($name) = shift;  ---------------------------------->就是這個地方一直不知道怎么去調(diào)用參數(shù)??????????。
        my @info = &Execute(" check -info  $name ");

        foreach my $Info (@info) {
        if ($Info =~ / Status:\s+([\S\s]+)/){
                $status = $1;
                }
        print "the current  $name status is $status\n";  --------------->每次執(zhí)行Stop_Check,就會打印所有的Name 狀態(tài)
        }
        return $status;
}

。。。。。。。。。。。。。。。。。。

sub Stop_Check
{       
        &Get_Name();
        my $status;
        foreach my $name (@Name) {
        &Get_Status($name);  ----------------------------------------------->我的想法是每獲取到一個name，就執(zhí)行一次函數(shù)Get_Status，可實際輸出結(jié)果是打印出來所有Name的狀態(tài)
        if ( $status =~ /Complete/ ) {
                print " XXXXXXX\n";
                }       
        elsif ( $status =~ /Session is active/) {
                my @info = &Execute(" check -stop  $name");
                print "___________\n";
                }
        }
}

z0415010

自己頂一下，還請幫忙解決一下問題啦。謝謝！

z0415010

搞定了，變量問題

q1208c

回復(fù) 3# z0415010

給兄弟兩個建議,
第一個, 發(fā)貼時, 最好把 源代碼 放在 "code" 中, 這樣, 格式會比較容易看得明白.
第二個, 解決了問題, 最好能說明一下原因, 和解決方法, 方便其它的兄弟們解決自己同樣的問題.