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

★三　【スクリプト� ..

901:改造依頼です
06/02/16 17:48:39 vUs8kAED
CJ-CLUBのChild Treeをトリップ実装したいのですが・・。
配布元はURLﾘﾝｸ(www.cj-c.com)です。

CJ-CLUBのサポート掲示板のログを見て参考にしたのですが、出来ませんでした。
URLﾘﾝｸ(www.cj-c.com)
これは同じ配布元の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の知識が全く無いので、これ以上何をやっていいのかがわかりません＾＾；
どなたか教えていただけないでしょうか？

次ページ