[vine-users:023028] Re:Perlの構文エラーがわからない。

[ministry _at_ xxxxxxxxxxx]

こんにちは、ministryです。

＞鈴木さん
大変失礼しました。
とりあえずあの後色々悩みつつ考えつつ試してみたの後、
実はあれはミスプリントでした。

というのも私が試していたのは
書籍に載っていたサンプルのものなのです。
以下が文書に記載されているとおりになるのですが、
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#! /usr/local/bin/perl

require '../lib/cgi-lib.pl';

$ReadParse(*input_data);
$mail = $input_data{'mail'};

$position = 0;
$status = 0;

while(($position = index($mail, "@", $postion))>0)
{
	print "$position\n";
	$status ++;
	$postion ++;
}

〜 省略 〜

exit;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
と、御覧のようにwhile文の中に
何故か「print "$position\n";」
と書籍には記載され、
これをはずしたことにより、
求めた結果が得られました。

ご指摘大変ありがとうございます。
本当に失礼致しました。