簡易データベースの登録CSVに、ひとつずつにa00001、a00002、a00003、...
というようにシリアルNO.をふっていきたいのですが、出来ません。


open(READ,"$file") || &error("Read Error");
\,$no,$date_now,$NAME,$EMAIL,$SEX,$AGE,$HANDLE,$PREF,$REM= <READ>;
close(READ);

$no++;
if (!open(OUT,">>$file")) { &error('システムエラー','ファイルを書きこみオープンできません.'); }
print OUT "\,$no,$date_now,$FORM{'NAME'},$FORM{'EMAIL'},$FORM{'SEX'},$FORM{'AGE'},$FORM{'HANDLE'},$FORM{'PREF'},$FORM{'REM'}\n";
close(OUT);

これでは、だめですよねぇ。お願い致します。

最終行のNo.を取得する必要がありますね。
\,$no,$date_now,$NAME,$EMAIL,$SEX,$AGE,$HANDLE,$PREF,$REM= <READ>;
を
(\,$no,$date_now,$NAME,$EMAIL,$SEX,$AGE,$HANDLE,$PREF,$REM) = split(/\,/) while <READ>;
とでもすれば、とりあえずは動くと思います。

お礼を言うのが遅くなりました。
たいへん助かりましたありがとうございます。