- 901 名前：改造依頼です [2006/02/16(木) 17:48:39 ID:vUs8kAED]
- CJ-CLUBのChild Treeをトリップ実装したいのですが・・。
配布元はwww.cj-c.com/cgi_s/cbbs.htmです。
CJ-CLUBのサポート掲示板のログを見て参考にしたのですが、出来ませんでした。
www.cj-c.com/sp/cbbs.cgi?mode=al2&namber=9723&rev=&no=1&KLOG=10
これは同じ配布元のI-BOARDのスクリプトなので多少の違いがあるんだと思うんですが・・。
サポート掲示板にあったサブルーチンだと、500エラーが起こったので他の掲示板のサブルーチンから引用して↓のようにしました。
sub trip {
local( $data ) = @_;
$data =~ s/◆/◇/;
if ($data =~ /(#|＃)(.+)$/) {
$tripword = $2;
$salt = substr($tripword."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$c_tripword = substr(crypt($tripword, $salt),-8);
$data =~ s/(#|＃)(.+)$/◆$c_tripword/;
}
return $data;
}
すると、「名前◆トリップ」と表示されるのではなく、ただ「名前」しか表示されませんでした。
私はPerlの知識が全く無いので、これ以上何をやっていいのかがわかりません＾＾；
どなたか教えていただけないでしょうか？
|
 |
