1
my $url = "\'http://".$server.":4080/cgi-bin/gen_graph.pl?view=5&SUBSYS=\'";
my $html = HTML::TagParser->new($url);
my @list = $html->getElementsByTagName("pre");
print $list[0];
foreach my $elem (@list) {
if($elem->innerText =~ /APIs/){
my $text = $elem->innerText;
if ($text eq "") {
} else {
@API_list = split(/\s+/, $text);
print $API_list[1];
}
}
}
return \@API_list;
}
my @list = $html->getElementsByTagName("pre");
無法正常工作。如果我把它作爲一個單獨的腳本來運行,那麼它運行良好..但是如果我將它包含在另一個腳本中,那麼@list中沒有值。誰能幫我?
雅謝謝。這是問題的地方..我認爲單引號將是一個問題,並使它有兩層...我現在明白了...... – Cara 2011-05-06 05:30:46