作者: 藤岡和夫
日時: 2005/9/03(11:03)
　藤岡です。jperlのスクリプトをPerl5.8に移植しようと検討しているのですが、
ActivePerl5.8/PXPerlの両方で下記のようなエラーが出て困っています。スクリ
プトのエラー行を==> Line xx で示しています。

# RSS URL データの取得
&ReadParse(*in);
if($in{'rss'}){
  # CGI で URL を取得する
  $getfile = $in{'rss'};
}elsif($ARGV[0]){
  # コマンドラインから URL を取得する
  $getfile = $ARGV[0];
}else{ ==> Line 26
  print "RSS URL データが存在しない。\n";
  exit;# 終了する
}

# CGI 最初の部分の出力
print <<HEADER;
Content-type: text/html

<HTML>
<HEAD>
  <TITLE>RSS Reader</TITLE>
  <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=Shift_JIS\">
上の行が==> Line 38
  <LINK REL=\"STYLESHEET\" TYPE=\"text/css\" HREF=\"/mystyle.css\">
</HEAD>
<BODY>
<div class=\"emph\">ニュース</div>
HEADER

スクリプトの実行結果は次のようになります。

C:\anhttpd\cgi-bin\awakening>perl rss2html58.cgi
http://homepage1.nifty.com/kazu
f/renewal.xml
Content-type: text/html

<HTML>
<HEAD>
  <TITLE>RSS Reader</TITLE>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
  <LINK REL="STYLESHEET" TYPE="text/css" HREF="/mystyle.css">
</HEAD>
<BODY>
<div class="emph">ニュース</div>
syntax error at (eval 25) line 38, near "("
  (Might be a runaway multi-line // string starting on line 26)

line 38には"("はないし、line 26には"/"も使っていないし、何かチェックすべ
きところがあるでしょうか。

追伸 PXPerlの消息は今のところ不明ですね。

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/