【スクリプト改造依頼スレ】(丸投げ) part3

【スクリプト改造依� ..

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

222:203
 05/02/05 23:04:08 
>>213 
どうもありがとうございます。 
今から試してみますです。

223:199
 05/02/06 02:33:47 
>>214 
ありがとう御座います。 
 
行数の検索はできたのですが、どのように組み込んでいいかよく理解出来ません 
何度かチャレンジしたのですが　エラーがでてしまいます。 
4031行, 4013行目のどの辺を書き換えるのか？それともそのままコピペなのか 
4008行目もそのままコピペすればいいのでしょうか。お手数ですがアドバイスお願いします。

224:201=216
 05/02/06 05:17:41 
>>223 
ttp://marunage.web2.poporo.net/joyful/img/280.txt 
imgboard.cgiにリネーム 
 
漏れは>>214のをちょっと改造したやつだから、動かないとか位置が違うとか動作が完全じゃないっていうクレームは>>214が担当しますｗ

225:199
 05/02/06 10:48:18 
>>224 
動きましたお手数をおかけしました　ありがとうございました。

226:nobodyさん
 05/02/06 15:09:44 
>>161 
WWWBOARD.PL 最後 
sub sub_page{my($in,$out)=@_;open MAIN,$in or die$!;read MAIN,my$html,-s MAIN; 
close MAIN;$html=~s{(?<=\n<ul>\n)(.+)(?=\n<\/ul>\n\n)}{my@data;my$html=$1;my$i 
=0;while($html=~/<li><a href="([^"]*)">(.*)<\/a> - <b>(.*)<\/b> <i>(.*)<\/i>/g) { 
my@tmp=($1,$2,$3);my@date=split/\D+/,$4;$date[0]+=1900;@{$data[$i++]}{qw/url 
subject name date/}=(@tmp,sprintf"%04d/%02d/%02d %02d:%02d:%02d",@date);}join"\n",map 
qq{<li><a href="$_->{'url'}">$_->{'subject'}<\/a> - <b>$_->{'name'}</b> <i>$_->{'date'}</i>}, 
sort{$b->{'date'}cmp$a->{'date'}}@data;}eis;open SUB,">$out"or die$!;print SUB 
$html;close SUB;} 
 
436行目 
sub_page("$basedir/$mesgfile", "$basedir/sort_$mesgfile"); 
 
77行目 
read DATA,my$code,-s DATA;my$add_code=<<'EOD'; 
my$html='';sub TIEHANDLE{bless{}}sub PRINT{$html.=$_[1]}BEGIN{tie*STDOUT,'main'} 
END{untie*STDOUT;$html=~s/以下の情報が伝言板に記入されました:// if$FORM{'preview'}; 
$html=~s{(<textarea.*?>)\s*(.*?)\s*(?=</textarea>)}{$1$2}gis;print$html;}if 
($FORM{'preview'}){return_html();rest_of_form();exit;} 
EOD 
$code=~s{(?=</form>)}{プレビュー<input type=checkbox name=preview value=1>}gi; 
$code=~s{(?<=\&get_variables;\n)}{$add_code}; 
eval$code;END{print$@} 
__DATA__ 
 
WWWBOARD.HTM 
プレビュー<input type=checkbox name=preview value=1>

次ページ