改造お願いします。
自動リンク集CGIを用いているのですが、
新しい登録が一番上に登録されてしまい、
古いものがどんどん下に流されてしまいます。
これを逆にして、新しいものが下に来るように改造したいのですが、
いかんせん厨房なもので……
おそらくこの部分が登録処理と思われます、
よろしくお願いします。
my (@log,@temp1);
open(IO,"+<$datafile");
eval{flock(IO,2)};
while(<IO>){
@temp1=split(/<>/,$_);
if ($temp1[2] eq $siteurl){
close(IO);
&error("このURLは既に登録されています。");
}
push(@log,$_);
}
splice(@log,1,0,"$sitecat<>$sitename<>$siteurl<>$sitebanner<>$sitecomment<>$sitemail<>$sitepass<>\n");
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close(IO);