くだすれPerl（超初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
96:nobodyさん 07/02/24 08:30:18 vuvrJgei 最近外国人が宣伝目的で掲示板に書き込むので、なんどかしたい。 他の掲示板でも攻撃を受けているのをよく見かけます。 特徴としては、アルファベットのみで書き込むので、アルファベットのみの投稿の場合は エラーにしたいのですが、そんなことは可能でしょうか？ 97:nobodyさん 07/02/24 10:17:57 >>96 EUC-JPだけど # $str に ASCII 以外が含まれているか判定する if ($str =~ /[\x8E\xA1-\xFE]/) { print "含まれている\n"; } 引用元 http://www.din.or.jp/~ohzaki/perl.htm#JP_Exist 98:nobodyさん 07/02/26 13:07:30 bWsttIN4 改造です。 先頭行でなく最終行を取得しないとマズいことに気づいたんですが どうすればいいでしょうか。 --------- if ($in{'ori_ie_id'} eq "admin"){ $bbs1_log_file = "./member/admin/bbs".$in{'bbs_num'}."_log.cgi"; }else{ $bbs1_log_file = "./member/$in{'ori_ie_id'}/bbs1_log.cgi"; } open(IN,"$bbs1_log_file") || &error("Open Error : $bbs1_log_file"); # 先頭行を取得 $total_counter = <IN>; ($total_counter,$all_total_counter)= split(/<>/, $total_counter); $top = <IN>; local($b_num,$b_name,$b_date,$b_res,$b_count,$b_com)= split(/<>/, $top); --------------------------
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4293日前に更新/307 KB
担当:undef