★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

722:807@丸投げスレ
 05/07/19 00:35:41 
　　# 更新 
　　unshift(@new,$top); 
　　open(OUT,">$logfile") || &error("$logfileが開けません。","lock"); 
　　print OUT @new; 
　　close(OUT); 
　　# ロック解除 
　　if (-e $lockfile) { unlink($lockfile); } 
#投稿フォーム表示 
　&header; 
　$get = $_[0]; 
　# クッキー情報を取得 
　&get_cookie; 
　# 書きこみ部デザインシートを読みこむ 
　&read_file("$input_sheet2"); 
　&read_file("$foot_sheet"); 
　print "</body></html>\n"; 
　exit; 
} 
以上

723:711
 05/07/19 01:20:43 
どうやら、色々調べたのですが。write.cgiから直接DBに対して 
ソートを仕掛けるのが無理そうなので 
write.cgiに 
open DATA,"<db/$open_file" || die "Could not open the file"; 
@templine = <DATA>; 
@templine = sort @templine; 
close DATA; 
$line=@templine; 
 
という構文を入れたら、whiteは理想通り更新順に並び替えできましたが 
問題のディスプレイ部分に反映されません… 
以下、本体のCGIより抜粋 
 
if ($disp eq "on") { 
 
&top("$page_title"); 
    open DB, "<db/db$page_id.txt" || die "Could not open the file"; 
 { 
    ($page,$goods_id,$name,$price,$com,$picture,$picture2,$picture3,$limit,$comment) = split (/:=:/, $_); 
多分、ここも 
@templine = <DB>; 
foreach (@templine) 
あたりに、同じ構文を入れたら…80エラーが出ます 
何か、解決策はありませんでしょうか…writeは完了しました 
お騒がせしてすみませんでした。

次ページ