はじめまして。
この度perlで組まれたCGIプログラムの機能について解らない点があり、
ご助力の程お願い出来ればと思い依頼させて頂きます。
datファイルに以下の様な内容のファイルが書き出されており、
1<>リンゴ<><>…
7<>キウイ<><>…
4<>モモ<><>…
5<>ナシ<><>…
3<>ブドウ<><>…
6<>パイン<><>…
2<>バナナ<><>…
このファイルの末尾に一行ごとに情報を追加するプログラムがございます。
(また他にこの各行の並び替えを行うプログラムが有りますが、この度は関係しないと思われます)
現在情報が入力された際、最末行の頭にある数字に+1されファイル最末尾に追加されますが、
その数値を各行頭の数値より最大値を求め、その数値に+1追加された数値としたいと考えております。
その為にはどの様なプログラムを組む事が良いでしょうか?
現在組まれているプログラム内の当該部分は以下となります。
Perl
1 2#$proflileは上記のdatファイルの事です 3open (PROF,"$proffile") || &error("指定された書込みファイルが開けません。",'NOLOCK'); 4@PROF = <PROF>; 5close (PROF); 6 7($new_id) = (split(/<>/, $PROF[-1]))[0]; 8$new_id++; 9 10〜 11 12print "<input type=hidden name=up0 value=$new_id>\n";
この様な説明で伝わりますでしょうか?
どうぞご助力の程、お願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/08/28 06:40
2015/08/28 07:31
2015/08/28 07:50
2015/08/28 09:47