06/07/19 19:54:09 NSduSNRS0
ｽﾚﾘﾝｸ(chakumelo板:133番)
> 133 ：携帯電話情報通知しません ：2006/07/19(水) 17:34:08 ID:HGOwIHG50
> 'ツール類'を追加しようとしたところで500が出ちゃうよ(;´д⊂ヽﾋｯｸﾋｯｸ
> 一応使えるんですけど板一覧にごみが残ります
> URLﾘﾝｸ(nov.s56.xrea.com)
> ##/設定部分/################################################
> my $menu = 'URLﾘﾝｸ(menu.2ch.net)'; #板一覧の取得URL
> my @skip = ('おすすめ','特別企画','2chプロジェクト','チャット','運営案内');
> my $last = '<BR><BR><B>まちＢＢＳ</B><BR>';
> ############################################################
> 板リスト自動生成スクリプトをうまく動作させるにはどうすればいい?達人な方お願いします＿|￣|○
URLﾘﾝｸ(www.web-ware.org)を参考にして真似をして、こんな感じに。。。
#正規表現エスケープ用関数
sub esc4re{
my $str = shift;
$str =~ s/([\x21\x24-\x26\x28-\x2b\x2e\x2f\x3f\x40\x5b-\x5e\x7b-\x7d])/\\$1/g if $str;
return $str;
}
$teststr = 'ツール類';
$restr = &esc4re($teststr);
##/設定部分/################################################
my $menu = 'URLﾘﾝｸ(menu.2ch.net)';
my @skip = ('おすすめ','特別企画','2chプロジェクト','2NN+','いろいろランク','チャット','運営案内',$restr);
my $last = '<BR><BR><B>まちＢＢＳ</B><BR>';
############################################################