[過去ﾛｸﾞ] 正規表現道場@2ch Part3 s/煽り|荒らし/あぼーん/g (989ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
802: 04/10/16 21:05 ID:??? AAS
>797 => >798 orz
このスレ馬鹿しかいないってことでFA?
803(1): 04/10/16 22:19 ID:??? AAS
>>781
if ($n =~ /[1-9]\d{2}/ and 550 <= $&) { マッチ; }
804(2): 04/10/16 23:10 ID:??? AAS
>>803
マジレスすんなよ！空気嫁！！
805: 04/10/16 23:28 ID:??? AAS
>804
だから？
806: 779 04/10/17 00:19 ID:??? AAS
779ですが、なんかうまくいったようです。みなさんありがとう。
807: 04/10/17 00:28 ID:??? AAS
>>804
まだ続けるつもりだったのか？どう見ても終焉の空気が流れてるだろ。食う清め。
808: 04/10/18 04:08 ID:aBkVRsoL(1) AAS
if($type =〜 /image＼/.*/){
はどういう意味ですか？
809: 04/10/18 04:13 ID:??? AAS
おそらくcontent-typeかmime-typeかが画像であるかってことじゃない？
810: 04/10/18 11:03 ID:??? AAS
いや、'\' じゃなくて '＼' だから、parse error・・・・
って、MLとマルチポストするなよ。
811: 04/10/18 11:29 ID:??? AAS
〜 これにはつっこまんのか
812: 04/10/18 12:01 ID:??? AAS
'＼' 俺が悪いのか？
-
v'\'v そうさ。
o
813(1): 04/10/18 12:42 ID:??? AAS
ML にはちゃんと半角で '~', '\' としてるからわかってそう書いてるんだと思うけど。
ていうか、記号をわざわざ全角で書いてるひとが多いけど、なんでなんでしょ？
'&' や '"' と同じような罠にはまるのを避けてるのかな？
814: 04/10/18 13:11 ID:??? AAS
>>813
SafariだとASCII or Unicode以外でポストするとき、迷惑にも
？ -> ＼, ？ -> 〜 に変換しやがるのです。
815: 04/10/18 13:13 ID:??? AAS
なぜか数値参照が化けた..orz
バックスラッシュ・チルダが全角バックスラッシュ・全角ウェーブダッシュにされるんです。
816: 04/10/18 13:43 ID:??? AAS
そうだったのかあ。
よくプログラミングネタや UNIX のトラブルシュートネタで、
コードやエラーメッセージをそのまま貼れ、って言うことがあるけど、
そういうのがあるとすると厄介ですなあ。
817(1): 04/10/22 17:38 ID:xzmN9eHo(1) AAS
perlのサブルーチンを抜き出すような正規表現はどう書けばいいでしょうか？
言語はperlです。
-----------
sub aaa{
1
2
}
\n
sub bbb{
3
省20
818: 04/10/22 18:28 ID:??? AAS
つまらん
819: 817 04/10/23 01:25 ID:fB1MfhBi(1/2) AAS
そう言わず、ヒントだけでも下さい！
820: ◆7CWqH7Oesg 04/10/23 13:26 ID:??? AAS
$data=~ s/[\x0A\x0D]=\w+.*?=cut//gs;
$data=~ s/([\s;{}]*)#[^\x0A\x0D]*/$1/g;
$data=~ s/[\x0A\x0D]__(?:END|DATA)__.*//s;
@result= $data=~ /\s+sub\s+([a-zA-Z_]\w*\s*(?:\([^)]*\))?\s*\{(?:[^}]|\{[^}]*\})*\})/g;
これでどう？
821(1): 04/10/23 13:52 ID:fB1MfhBi(2/2) AAS
$data = "sub aaa{\n1\n2\n}\n\nsub bbb{\n3\n}\n\n\n";
$data=~ s/[\x0A\x0D]=\w+.*?=cut//gs;
$data=~ s/([\s;{}]*)#[^\x0A\x0D]*/$1/g;
$data=~ s/[\x0A\x0D]__(?:END|DATA)__.*//s;
@result= $data=~ /\s+sub\s+([a-zA-Z_]\w*\s*(?:\([^)]*\))?\s*\{(?:[^}]|\{[^}]*\})*\})/g;
print @result;
を実行しても
bbb{
3
}
省1
上下前次1-新書関写板覧索設栞歴
あと 168 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.021s