[過去ﾛｸﾞ] 正規表現道場@2ch Part3 s/煽り|荒らし/あぼーん/g (989ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
320(1): 04/03/03 11:51 ID:??? AAS
リモートホストを
1.英数字のピリオド区切り
2.英数字のみ
のいずれかの条件でマッチさせようと思い、
(リモホ) =~ m/^(\w+\.?)+\w+$/
などとやったのですが駄目なようで、これ以上思い浮かびません。
どうすれば良いのでしょう。
321(1): 04/03/03 15:08 ID:??? AAS
>>320
こうじゃね？
m/^(\w+\.)*\w+$/
もうちょっと仕様どおりちゃんとやるならこう？
m/^(?:[0-9a-z]+\.)*[0-9a-z]+$/i
322: 04/03/04 01:43 ID:??? AAS
ああそうか区切る時は前の方(やや不適切な言い方ですが)の
有無を調べれば良かったんですね。
ありがとうございました。
323(1): 04/03/05 07:43 ID:??? AAS
$charactorにひらがな（あーん）以外が含まれているかどうか判断したいのですが
if ( $charactor =~/[^あ_ん]/) {
print "あーんを以外含んでいます。\n";
}
というふうにしてみたのですが
上手くいきません
自分では見当がつかないのでアドバイスをください
324(1): 04/03/05 10:53 ID:??? AAS
>>323
-
325(2): 04/03/05 11:00 ID:??? AAS
Perlメモによると
># 全角ひらがな [ぁ-ん]
>$Zhiragana = '(?:\xA4[\xA1-\xF3])'; # EUC-JP
>$Zhiragana_sjis = '(?:\x82[\x9F-\xF1])'; # SJIS
なので、EUC-JPならこうかな。つかPerl分からん。
if (!$charactor =~/^(\xA4[\xA1-\xF3])*$/) {
print "ひらがな以外を含んでいます。\n";
}
326(1): 04/03/05 11:53 ID:??? AAS
>>324
コピペするときに間違えました。
>>325
ありがとうございます！
if ( $charactor =~/[^\x82\x9F-\xF1]/) {
print "あーん以外を含んでいます。\n";
}
これで出来るようになりました。
327: 325 04/03/05 12:00 ID:??? AAS
>>326
ちょっと待て、それじゃ誤判定しない？
ひらがな以外にマッチではなく、「『文字列がひらがなのみ』にマッチしない」としないと。
if ($charactor !~ /^(?:\x82[\x9F-\xF1])*$/) {
print "ひらがな以外を含んでいます。\n";
}
328: 04/03/06 21:48 ID:??? AAS
>321
ハイフンも使えるから
m/^([\w\-]+\.)*[\w\-]+$/
のような気が。
#ハイフンのエスケープ要るか要らないか忘れたけど
329: 04/03/07 22:19 ID:??? AAS
ＰＨＰ4で＠の読みの「アットマーク」「アトマク」「アツトマァク」「アット」「アツトマアク」らに
マッチする正規表現をお教え下さい。
ア[ッツ]?ト{マ[ーアァ]?ク}? とか アッ?ツ?ト{マ[ーアァ]?ク}?
初心者なので全然だめです・・。
330: 04/03/07 23:11 ID:??? AAS
上のはメルアドはじきなのでしたけど、
@|＠|(あ[っつ]?と).*|(ア[ッツ]?ト).*|(ｱ[ｯﾂ]?ﾄ).*
でいくことにします。
アットローンでもマッチしちゃうけどいいや・・・・・。
331: 04/03/07 23:11 ID:??? AAS
[アットマーク|アトマク|アツトマァク|アット|アツトマアク]
332(1): 04/03/08 03:41 ID:??? AAS
ア[ッツ]?ト(マ[ーア]?ク)?
333(1): 04/03/08 05:41 ID:??? AAS
>332 どうも。
アットローンでもアトムでもマッチしちゃうよね？
^ア[ッツ]?トマ[ーアァ]?ク$ だと「アット」「アト」がマッチしない・・・
「アット」と「アットマーク」にマッチして「アットローン」にマッチしないなんてできないのかなo(~ρ~)o zzz･･･
334: 04/03/08 10:05 ID:??? AAS
>>333
「＠ローン」の読みは「アットローン」なんだけど。
マッチしなかったらおかしくないか？＠はアットって読んでもいいんだろ？
335(1): 04/03/08 13:19 ID:??? AAS
PHPで簡単なweb上思いついたスクリプトを書き残すメモ帳のようなものを作成してるんですが
その中で「//〜〜〜\n」や「/* */」などのいわゆるコメントの部分を
色分けして表示したいのですがコメント部分とマッチさせる正規表現がどうしてもわかりません。
「/* */」については/*を<FONT COLOR=RED>/*にし
*/を*/</FONT>にしたのですがこれだと
「""」に囲まれたコメントではない部分も色分けされてしまいます。当たり前ですが・・・。
336: 04/03/08 15:37 ID:??? AAS
>>335
こんなんでいいんじゃないか
<?php
header("Content-Type:text/html; charset=Shift_JIS");
$comment[0] = "\/\/[^\n]*?\n";
$comment[1] = "\/\*(.*?)\*\/";
$msg = "TextTextText // TextText
TextText
TextTextText /* TextText */
TextText
省9
337(2): 04/03/10 21:20 ID:??? AAS
use Jcode;
$jis=Jcode->new($ARGV[0],'utf8')->jis;
$jis=~s/([^a-zA-Z0-9])/sprintf("%%%02lX",unpack("C",$1))/eg;
$jis=~s/%1B%28B$//; $jis=~s/^%1B%24B//; # <= separate
$jis=~s/%/\\x/g;
こいつで16進にして正規表現かけてんですが
___ファイル内のjisコード文字列____
ああ接続FTP接続うう
__________________________________
FTP接続 <= なら引っかかってくれます
省2
338: 未承諾広告※ ◆aiY4htt2.2 04/03/10 21:39 ID:??? AAS
>>337
テストもせずに s/\G と逝ってみるテスト
339: 337 04/03/10 22:49 ID:QeEknFJh(1) AAS
perl FTP接続 <= だとOK
FTP\x1B\x24B\x40\x5CB3
perl 接続 <= これもOK
\x40\x5CB3
perl 接続FTP <= だと駄目でつ
\x40\x5CB3\x1B\x28BFTP
s/\G と逝ってみたいんですがどこで使うんでつか
アホですまそ
上下前次1-新書関写板覧索設栞歴
あと 650 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.022s