ぜろちゃんねるスクリプトを改造するスレ

681 ：名無しさん＠ぜろちゃんねる：2006/07/20(木) 23:28:31 ID:???0

最小限の改造で、レスコピーらしきものを可能にさせてみる。
まぁ、これだけで満足する人はいないと思うけど。

sub PrintResponse
{
my ($Sys,$Page,$n) = @_;
my ($pDat,@elem);
$pDat = $Sys->{'DAT'}->Get($n -1);
@elem = split(/<>/,$$pDat);
$elem[3] =~ s/<br>/\n/g;
if($elem[1] ne ''){$elem[1] ='['.$elem[1].']';}
foreach (@elem) {$_ =~ s/<.*?>//g;}
$Page->Print("<form><textarea>$n:$elem[0] ：$elem[2]$elem[1]\n$elem[3]</textarea></form>");
}

>>675
そんな記述で「こんな感じ」が他人に伝わると思ってんのかね。