Perlについてご教示お願い致します。

質問

Perl初心者です。ご教示お願い致します；；
～text.txt～
3,name,text
2,あ,あ
1,あ,あ

上記のようなテキストファイルがあり、
my $NAME = $form->param('name');
my $TEXT = $form->param('text');
unshift(@DATA,"$NO,$NAME,$TEXT\n");

と、略してますが、
NAMEとTEXTは、ページフォーム内のテキストを入力で
CGI.pmを使用し、入力することはできました。

そこで、NOなのですが、次回入力する際、「４」と
テキストファイルの１行目の１列目に＋１した数字を
書き込むようにしたいのですが、
どのようにすればいいでしょうか？

my $NO = $ここに１行目の１列目の数字　+ 1;
これを,unshiftの前に入れるまではわかるのですが、
「$ここに１行目の１列目の数字」
これがどう求めるのかわりません；；

回答No.1

kichi8000 · ベストアンサー

@DATAの配列の要素数を関数で数値化し＋１するだけです。

余計な行をいれない場合。
my $NO = @DATA;
$NO++;

もう少し調整すると

my $NO = @DATA;
my $NOnum = 0;
if ($NO > 0){
foreach my $val (@DATA) {
($NOnum, $dmy1, $dmy2) = split( /,/ ,$val);
# できれば$NOnumから改行とスペースを削除する
if( $NOnum =~ /^[0-9]+$/ ) {
last;
}else{
$NOnum = 0;
}
}
}
$NO = $NOnum + 1;

お礼

ありがとうございます！