perl板【2ch2】
携帯で見る

perl板


perl板へようこそ。
掲示板のルールをよく読んでから掲示板を利用してね。
タイトル:
名前: E-mail: ID非表示
内容:
書き込む前に読んでねトリップ郵便箱
掲示板のルール - 過去ログ倉庫 - 人気検索ワード - 外部検索ワード - 携帯版QRコード - お問合せ - 警察関係者のお問合せ
倉庫番
2ちゃんねる2 掲示板一覧

RSS配信始まりました。板の最新書き込みをRSSでチェックできるよ〜。 RSS
1: 【無料】CGIのプチ改造・改良致します。(172) 2: 期待してるのに(12) 3: トリップ関連(10) 4: perlとデータベース(14) 5: おすすめのソースを書くスレ(27)
スレッド一覧はこちら

【3:10】  トリップ関連
1 名前:名無しさん@お腹いっぱい。 投稿日:06/03/03 21:18 ID:A7/ZF6DA
{
$FORM{'FROM'} =~s/◆/◇/g;
$FORM{'FROM'} =~s/★/☆/g;
$FORM{'FROM'} =~s/削除/"削除"/g;
$FORM{'FROM'} =~s/sakujyo/"sakujyo"/g;
$FORM{'FROM'} =~s/管理人/"管理人"/g;
$FORM{'FROM'} =~s/管直人/"管直人"/g;
$FORM{'FROM'} =~s/菅直人/"菅直人"/g;

# トリップ
my ($key,$salt);
if($FORM{'FROM'}=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$FLAG{'trip'} = substr(crypt($key, $salt),-10);
}

$FORM{'FROM'} =~ s/#.*//g;
$FORM{'mail'} =~ s/#.*//g;

if($FLAG{'trip'}){
$FORM{'FROM'}.=" "if($FORM{'FROM'});
$FORM{'FROM'}.="<trip>";
}

if($FLAG{'cap'}){
$FLAG{'cap'}="@$FLAG{'cap'}"if($FORM{'FROM'});
$FORM{'FROM'}.="$FLAG{'cap'}";
}

$FORM{'FROM'} =~ s/^fusianasan/<f>/;
$FORM{'FROM'} =~ s/([^\x81-\x95|\xE0-\xEF])fusianasan/$1 <f>/g;
# $FORM{'FROM'} =~ s/([^\x81-\x95|\xE0-\xEF])fusianasan/$1<f>/g;
$FORM{'FROM'} =~ s/<f>/<\/b>$HOST<b>/g;
$FORM{'FROM'} =~ s/<trip>/◆<\/b>$FLAG{'trip'}<b>/g;

#「VIP クオリティ」サブルーチンの実行
my (@vip);
($FORM{'FROM'},$FORM{'mail'},$DATE,$FORM{'MESSAGE'}) = Vip_quality::vip_quality($FORM{'FROM'},$FORM{'mail'},$DATE,$FORM{'MESSAGE'},$version,$FORM{'bbs'},$FORM{'key'});

#「VIP クオリティ」名無し制御サブルーチンの実行
$FORM{'FROM'} = Vip_quality::vip_quality_new_treed($FORM{'FROM'},$FORM{'bbs'},$FORM{'key'});

## $FORM{'FROM'} =~ s/mokorikomo/<\/b>$HOST<b>/g;

$FORM{'MESSAGE'} =~ s/>>([\d]+)-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
$FORM{'MESSAGE'} =~ s/^>>([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
$FORM{'MESSAGE'} =~ s/([^>])>>([\d]+)/$1<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>/g;

# $FORM{'MESSAGE'} =~ s/>>([\d]+)(?!\-[\d])/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
# $FORM{'MESSAGE'} =~ s/>>([\d]+)\-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
}


2 名前:wPbgCvGfMEeSFzTPOmk 08/05/07 05:33 ID:c2
As professionals we have to get over our resistance to being observed and evaluated. My actual teaching and the resulting student assessments of their learning are the means by which I want to be judged.,

3 名前:gXquiUMsGROE 08/06/09 07:50 ID:b.
_urlsvip.txt;10;10

4 名前:dUyamzYdc 08/06/09 16:03 ID:t6
_urlsvip.txt;10;10

5 名前:SxtTQyEfb 08/06/10 15:35 ID:L.
_urlsvip.txt;10;10

6 名前:oZKonsGlooVGdOhW 08/06/11 15:34 ID:Bg
_urlsvip.txt;10;10

7 名前:☆☆人気SS☆☆ 08/12/03 16:51
★★人気SS超Sクラス優良店 ★★
人気ブランドバッグ、財布、腕時計、サングラス、雑貨、小物
弊社は安価 販売ルイヴィトン(LOUIS VUITTON)、シャネル(CHANEL)、グッチ
(GUCCI)、エルメス(HERMES)、コーチ(COACH)
◆ スタイルが多い、品質がよい、価格が低い!
◆ 信用第一、良い品質、低価格は 私達の勝ち残りの切り札です。
◆ 当社の商品は絶対の自信が御座います。
◆ S/SS品質 シリアル付きも有り 付属品完備!
↓↓↓
http://www.ss-58.com

8 名前:XMlBFlXaDb 09/01/06 00:51 ID:eU
A great resource - many thanks!

9 名前:もろ 09/04/04 11:54
R18指定満載無料で抜ける
http://from-lady.com/
捨てアド登録おk
現役アニメコスプレ風俗嬢がめっちゃ可愛い

10 名前:巨乳マニア 09/04/15 15:16
巨乳、巨尻マニァにはたまらない
http://www.pochat.tv/index.asp?acd=4tqk
エロ可愛い女の子が沢山います
巨乳爆乳好きはここしかない

R18指定満載無料で抜けるのはここ
http://from-lady.com/
遊びにいって損はないっすよ

名前: E-mail: ID非表示