#!/usr/bin/perl
use XML::XPath;
$file = "file.xml";
$xp = XML::XPath->new(filename=>$file);
$nodeset = $xp->find('//cleaner');
foreach $node ($nodeset->get_nodelist) {
$delete_time = $node->find('@seconds');
}
$fun = $delete_time / 60;
*ファイルの内容は以下の通り(必要箇所を抜粋)
<reports>
<cleaner seconds="1495">
</reports>
上記の処理をWin2003+IIS環境で行うと次のようなエラーが出力されます。
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:
Operation "/": no method found,
left argument in overloaded package XML::XPath::NodeSet,
right argument has no overloaded magic at C:\usr\bin\perl\test.cgi line XXX.
どうか解決方法をご教授下さい。
ありがとうございます!問題解決しました!!!