正規表現道場@2ch

**ヽ(´▽｀)ノ** · 2001/07/26(木) 09:03

以外と毛嫌いして居る人も多そうな正規表現、
でもperlを使いのなす上で避けて通れない道だったりするかもです。
そこで、スクラップブック的に目に止まったカッコイイ正規表現を
書き留めておこうと言うスレッドです。
質問する時は言語と、得たい結果をなるべく詳しく書いてね。

取り合えず僕が知ってる有用なリンクです。
http://www.din.or.jp/~ohzaki/perl.htm
http://www.kt.rim.or.jp/~kbk/regex/regex.html

もっとｲｲ（・∀・）リンクは>>2-10さん辺りが書いてくれるカモ････

**名無しさん＠お腹いっぱい。** · 2001/07/26(木) 09:13

名スレの予感…。
期待age

**_gunzip** · 2001/07/26(木) 09:16

http://www.cc.rim.or.jp/~midorin/mad-p/RegexDiagram.html
http://www.cc.rim.or.jp/~midorin/mad-p/perl/benkyou/PRC2kRegex/
この辺りも参考になるかな。

**名無しさん＠お腹いっぱい。** · 2001/07/26(木) 12:33

名スレへの期待･･･。

**加奈子** · 2001/07/26(木) 15:30

うふん♪うふふ♪
わたしの魔法で名スレにしちゃうわよん♪（らぶらぶはぁと）

素晴らしい正規表現教えてね♪
すっご～いの書いてくれた坊やには、ご褒美として
お姉さんが、やさ～しく、童貞を奪って・ア・ゲ・ル・わよん♪うふ★（はぁと）

**名無しさん＠お腹いっぱい。** · 2001/07/26(木) 16:42

foreach (@女友達) {
($輪郭,$目,$鼻,$口,$性格,$髪型,$マンコの臭さ,$締まり,$喘ぎ声) = split(/\t/, $_);

if ($目 =~ /ひとえ/) {
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
}
}

6 · 2001/07/26(木) 16:45

１人目が一重だったら素敵な出会いを逃してしまう・・・鬱だ逝ってくる

**初心者用** · 2001/07/26(木) 18:38

$hoge = 'ababab';

$hoge =~ s/ab/abab/g;
と
while( s/ab/abab/ ){}
のヤヴァイ違いを理解すべし。

**名無しさん＠お腹いっぱい。** · 2001/07/26(木) 20:42

>>8
それじゃ動かないだろ｡

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 00:07

有限オートマンコ

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 00:40

1の

もっとｲｲ（・∀・）リンクは>>2-10さん辺りが書いてくれるカモ････

という願いはほぼ崩れ去ったな。気の毒に…

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 06:26

わははは　まぁ良いじゃんまったりいこうや
$hoge =~ s/</</;

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 10:34

>>12 ??

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 16:33

@hoge = m/([0-9a-zA-Z.\-_]{3,20}\@[0-9a-zA-Z.\-_]{5,})/;

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 17:43

**名無しさん。** · 2001/07/27(金) 18:45

shift_jisの日本語にマッチさせるには？

**名無しさん＠お腹いっぱい。** · 2001/07/27(金) 22:53

>>13
$hoge =~ s/</</;
と書きたかったのだと思われ

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 13:17

$hoge =~ s/クソスレ/良スレ/g;

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 15:06

>>18
気持ちはわかる。願望だ。（ｗ

**出題君@fushianasan** · 2001/07/29(日) 15:47

出題
ﾏｯﾀﾘ、セックス、オナニーを
ﾏﾀｰﾘ、ｾｸｰｽ、ｵﾅｰﾆに換える

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 18:16

$hoge =~ s/>>20の出題センス//g;

**名無しさん＠お腹いっぱい。** · 2001/07/29(日) 23:15

PerlでHTMLからリンク抜き出すの教えてくだされ。　重複無しで整列して表示したりするのきぼー。
下のは練習に書いてみたやつ。　なぜか最後のprintでコンパイルエラー出まする。

study $html;
$pattern = '<A href="([^"]+)">';
while ( $html =~ /$pattern/is ) {
　$html =~ s/$pattern//is;
　push( @_, $1 );
　print "$1\n";
}
#print "$_\n" foreach(@_);

棺 · 2001/07/30(月) 00:50

$body =~ s/(<[^>]*\bhref\s*=\s*["']?)([^\s"'>]*)/$1.&url_extract($2)/gie;
foreach (sort keys %URL) {print "$_\n";}
.
.
.
sub url_extract {
my($href) = shift;
$URL{$href}++;
return $href;
}

某スクリプトの一部を拝借
経験上，マッチするごとにサブルーチンに渡した方が早く感じます(何故？

http://schwarzekatz.hypermart.net/test.cgi

そーす
http://schwarzekatz.hypermart.net/test.txt

**名無しさん＠お腹いっぱい。** · 2001/07/30(月) 01:06

>>22

#!/usr/bin/perl

use strict;
use HTML::LinkExtor;

my $p = new HTML::LinkExtor;

$p->parse(<<HTML);

HTML

my %link_set;
foreach my $l ($p->links ) {
my ($tag, %link) = @$l;
next if $tag ne 'a';

++$link_set{$link{href}} if exists $link{href};
}

foreach my $link (sort keys %link_set) {
print $link, "\n";
}

__END__

> $pattern = '<A href="([^"]+)">';
> while ( $html =~ /$pattern/is )
>　$html =~ s/$pattern//is;

+o

22 · 2001/07/30(月) 02:15

>>23, >>24
　置き換えする時にサブルーチン呼んだり、ハッシュ使ったり、モジュール使ったりと
いろんな技があるんですね。勉強になりますた。
　大きなのに固定正規表現使う時はoを使うことにします。
　感謝。

**棺＠ﾏﾀｰﾘ週間** · 2001/07/31(火) 00:34

>>24

わたすもべんきょうになりますた。感謝ヽ(´ー`)ﾉ

**名無しさん＠お腹いっぱい。** · 2001/08/02(木) 14:18

えっと、ここは質問してもいいんですよね？
激しく定番なのかもしれませんが、

<FOO>
hogehogehogehoge
hogehogehogehoge
hogehogehogehoge
hogehogehogehoge
</FOO>

のパターンようにある文字列Aと文字列Bに*囲まれた部分*
を表す正規表現の王道というのはどんなもんなんでしょうか

なんかやるたびにうまくいったりいかなかったりしてるんで
定番パターンというのがあれば知りたいです。

厨房くさくてｽﾐﾏｾｿ

**JAPU@ほえほえ** · 2001/08/02(木) 14:44

m[<FOO>.*?</FOO>]s では?

**名無しさん＠お腹いっぱい。** · 2001/08/02(木) 14:54

>>28
はぁ。やっぱ普通そうですよね。。。
ってsオプション？
知らない…調べてきます。

レスさんくすです。

27 · 2001/08/02(木) 14:56

29=27でした。
ちなみにJAPUタンとタメ歳なのです…。
この違いは…

27 · 2001/08/02(木) 15:00

>>28
おおお！なるほど。s,m。こんなのがあったんですね。
よさげです。試してみます。ありがとうございます。

**JAPU@スクルド萌え** · 2001/08/02(木) 15:35

通常 "." は [^\n] と等価ですが、"s" 修飾子を付けると "\n" にもマッチするようになりますにゃん。
この辺の説明はらくだ本だとちょっと不親切な気がする。

$_ = "\n\n";
print "moe\n" if /../;
print "hoe\n" if /../s;

>>27
たまたまこの分野で、少しだけ詳しいだけなので、
あまり気にしていてはダメよん。

**名無しさん＠お腹いっぱい。** · 2001/08/02(木) 15:51

良スレ認定します

**名無しさん＠お腹いっぱい。** · 2001/08/02(木) 16:11

&kaere if ( $人間 =~ /^ﾁｬﾝｺﾛ/i );

**名無しさん＠お腹いっぱい。** · 2001/08/04(土) 00:26

みんな、諸説正規表現は、読んでる？

**名無しさん＠お腹いっぱい。** · 2001/08/04(土) 02:38

>>22
面白そうなので、自分も作ってみた。
でも、ちょっとしか、テストしてない。
バグでたら、ゴメン。

#!/Perl/bin/MSWin32-x86-object/jperl -w
use strict;

undef $/;

while(<>){
my @urls = m/<a href\s*="(.*?)".*?\/a>/isg;#get url

@urls =sort @urls;#sort

my $prev = 'nonesuch';#uniqu(faqのコード、コピペ)
@urls = grep($_ ne $prev && ($prev = $_), @urls);

print "\n\n -----$ARGV------\n\n" ;
print join("\n",@urls);
}

**初期不良** · 2001/08/06(月) 01:45

>>28
類似性相似性を見るとむずむずするので
後方参照の例題的なものを利用。

for('FOO', 'BAA'){
　m[<($_)>(.*?)</\1>]s;
　$data{$_} = $2;
}

スレ違いだけどみんな foreach ってわざわざ書くの？
俺は for でいいって聞いてからずっと for なんだが...
わかりにくかったりするかな。

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 02:38

普通はforeach、短いスクリプトだとfor
#foreachは長くて目立つので

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 11:48

oオプション使うと、
mod_perlや、speedycgiで前のパターンが残ってしまいますが、
これの回避方法ってありますか？

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 12:27

>>39
oオプションを使わない
っつか正規表現とは関係ないと思うのだが？
>>38もな

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 16:43

>>40
死きり屋uZeeeeee

**名無しさん＠お腹いっぱい。** · 2001/08/06(月) 21:20

>>41
オマエモナー

**名無しさん＠お腹いっぱい。** · 2001/08/12(日) 14:24

gオプションでパターンマッチングした際にマッチングした回数が入っている
特殊変数は有りませんか? "$&"がマッチングした文字列みたいなんですが････
本にも　$`　$'　辺りしか載っていないのです。
他の方法でも大丈夫なのですが、前に何かで見た気がして必死でさがしてる
のですが、見つからないのです　　(汁;;
気のせいだったのかなぁ････

**名無しさん＠お腹いっぱい。** · 2001/08/12(日) 14:38

my $tmp = "pattern";
my $count = ($tmp =~ s/t/T/g);
print "$count 個の t を T に置換しました\n";

こんな感じ？

43 · 2001/08/12(日) 15:23

ええっ、、何ですかこれは　＠＿＠!!
聞いてみるものだなぁ。。。勉強になりますぅ
今までtでsplitして要素数をみてた馬鹿なおいら　　＾＾
>>44　　ありがとう、もっと精進します

**名無しさん＠お腹いっぱい。** · 2001/08/20(月) 06:59

優良スレage
ついでに前に掲示板スレかどっかにあった荒らし制限を載せてみる。
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ
s/(...+?)\1\1+/$1$1$1/;
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ

**名無しさん＠お腹いっぱい。** · 2001/08/20(月) 10:32

オプションじゃなくて修飾子ねsage

**名無しさん＠お腹いっぱい。** · 2001/08/20(月) 11:07

>>43
ちゃんとした解説本を読んでみよう、ちゃんとのってるよ

**名無しさん＠お腹いっぱい。** · 2001/08/21(火) 02:46

>>46 最初のしかできないじゃん。
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬｵﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮ
$char = 2; $repeat = 3;
s/(.{$char,}?)\1{$repeat,}/$1x$repeat/eg;
ｱﾋｬﾋｬﾋｬｵﾋｮﾋｮﾋｮ

**名無しさん＠お腹いっぱい。** · 2001/08/22(水) 03:34

まずオライリーの正規表現本買ってみ
目からウロコ

**名無しさん＠お腹いっぱい。** · 2001/08/22(水) 17:41

>>50
禿同！
鱗どころか、鎧が落ちた気がした。

**名無しさん＠お腹いっぱい。** · 2001/08/22(水) 17:44

>>50
ふくろう本ってやつですか?
買って見ようかな、、オークに嵌っている今日この頃　(^_^;

**名無しさん＠お腹いっぱい。** · 2001/08/25(土) 13:20

age

**名無しさん＠お腹いっぱい。** · 01/09/01 00:11

良スレあげ、、前に結構マニアックなWEBがあったんだけど
見失っちゃったよ。
sedとかも載ってて薄緑のページ。
確かorgドメインだったかな、、面白いサイトは無いかなー

**名無しさん＠お腹いっぱい。** · 01/09/03 23:49

なんちゃってプログラマーです｡

たとえば

$Form{comment} =~ s/くそ/●●/g;

とすれば「くそ」と書き込んだｺﾒﾝﾄを伏字にできますがこれだと
「へたくそ」も「へた●●」となってしまいます。文節に応じた
文字変換(伏字処理みたいなこと)ってどうすればいいんでしょうか。

既出事項であったらすみません。

**名無しさん＠お腹いっぱい。** · 01/09/04 02:02

PHPで、strlen($text)とやると、テキスト名のバイト数が返されるくせに
require($text)とやると中味のバイト数が返されるのはなぜだ？
教えろ。

**名無しさん＠お腹いっぱい。** · 01/09/04 23:35

>>55
なにをどうしたいのさ。
伏せ字でも少し載せて，伏せたいのと伏せたくないのも
載せたほうが答えもらえると思われ。

**名無しさん＠お腹いっぱい。** · 01/09/05 21:06

$input = $ARGV[0];
$input =~ s/([.]*)/-----$1-----/; #inputを-----で囲みたいです
print "$input\n";
ってやって、、
$.test.pl 111{}222{}333
ってやると
----------111{}222{}333
こうなります、
-----111{}222{}333-----
何故こうならないのでしょうか、
と言うか目的からは程遠い所なんですが、多分バックトラッキングが理解
出来てないからだと思うのですが。
絶対僕の思ったように動かないに決まってます。

**名無しさん＠お腹いっぱい。** · 01/09/05 21:15

>>58

$input =~s/(.*)/--------$1---------/;

てゆーか囲むだけなら

$input = '--------' . $input . '---------';

で良いべさ

**名無しさん＠お腹いっぱい。** · 01/09/05 21:27

ありがとうです、
えと、それはそうなんですが正規表現の勉強と言う事で　(^^
ちなみにevalして
$input =~ s/([.]*)/'-----'.$1.'-----'/e;
こんな風にしても結果は同じなんです。
何か一歩も前に進めない感じで　　　とほほ

**名無しさん＠お腹いっぱい。** · 01/09/05 22:13

>60
59が答を書いてるだろがｺﾞﾙｧ
.を[]の中に入れたら任意の1文字じゃねーぞｺﾞﾙｧ

**名無しさん＠お腹いっぱい。** · 01/09/05 22:37

>>60
とほほつながりでここでも見て勉強すれ。
http://tohoho.wakusei.ne.jp/wwwperl1.htm#Expr

**名無しさん＠お腹いっぱい。** · 01/09/06 01:36

ありがとう! 、何だかスレのレベルを一気に下げちゃったみたい
ですけど、　(＾＾;
しかし上手く動いてくれないんだよなぁ･･･
詳説正規表現って言うのは難しすぎるし
とほほに逝って来ますぅ

**名無しさん＠お腹いっぱい。** · 01/09/06 01:55

みんな*つかってるけど
(.*)じゃなくて(.+)じゃないの？

**名無しさん＠お腹いっぱい。** · 01/09/06 02:02

>>64
場合による

**名無しさん＠お腹いっぱい。** · 01/09/06 02:07

>>65
(.*)って，どんな時に使うんですか？
文字に反応しない時がありそうなんで，まったく想像がつかないんですが。

**名無しさん＠お腹いっぱい。** · 01/09/06 06:20

梅干し食べて酸っぱい時。

**名無しさん＠お腹いっぱい。** · 01/09/06 06:30

>>66

>>62のリンク先ぐらい見てから聞け。

**名無しさん＠お腹いっぱい。** · 01/09/08 10:24

(*^o^*)

**名無しさん＠お腹いっぱい。** · 01/09/08 13:08

今日の勉強のおと

正規表現の特殊文字 9連発

. (どっと）
*(アスタリスク）
+（ぷらす）
?（くえすちょん）
[（れふとすくえあ
]（らいとすくえあ
`（ばっくくおと
$（だら
\（ばくすらしゅ

**名無しさん＠お腹いっぱい。** · 01/09/08 19:26

>70
　大昔backslashをもじった「バクスラ」ってphotonのチームがありましたなぁ

　ちなみに「{」「}」と「<」「>」はどう読んでます?

**名無しさん＠お腹いっぱい。** · 01/09/08 19:47

れふとかーりーぶらんけっと {
らいとかーりーぶらんけっと }
れふとぱーれん (
らいとぱーれん )

**名無しさん＠お腹いっぱい。** · 01/09/09 14:29

　○
□＋／
　大

どらごんくえすと

**名無しさん＠お腹いっぱい。** · 01/09/09 20:23

>72
　どもでした:-)

>73
　ワラタ（笑）

**名無しさん＠お腹いっぱい。** · 01/09/11 12:31

任意の２文字以上続く文字
例えば

************************
とか

■■■■■■■■■■■■
とか

を

****

■■■■

とか短くする正規表現教えてくなさい

**名無しさん＠お腹いっぱい。** · 01/09/11 12:41

>>75 >>1のリンクぐらい見てから聞け。

#! perl

$str = '■■■■■■■■■■■■';
$str =~s/(?:■){2,}/■■/;

print $str;

**名無しさん＠お腹いっぱい。** · 01/09/11 18:42

ｐｅｒｌって奥深い

**petronius** · 01/09/11 20:22

>>76
「任意の」２文字以上続く文字だろ？
$str =~ s/(.)\1+/$1/g;

**petronius** · 01/09/11 20:27

ああ、■とかのときは $str =~ s/(..)\1+/$1/g; に変えてね。
しかし、これじゃ任意じゃないな。スマソ。

**名無しさん＠お腹いっぱい。** · 01/09/11 21:34

じゃあファイナルアンサー

$str =~ s/(.|..)\1+/$1$1/g;

**名無しさん＠お腹いっぱい。** · 01/09/12 02:40

ドロップアウト

**名無しさん＠お腹いっぱい。** · 01/09/24 10:09

変なスレばっかなので上げっ
詳説買ってきたよ～　でも難しい　　（鬱

**名無しさん＠お腹いっぱい。** · 01/09/25 05:55

英単語の先頭の文字だけを大文字に変換する方法があったら教えてくだされ。
this is a pen
を
This Is A Pen
とかにしたいの。よろしく～。

**JAPU@CGI関連のコンテンツは移動した...** · 01/09/25 06:16

$hoe = join " ", map { ucfirst } split /\s+/, $moe;
...と思ったけど、正規表現スレッドなので、
s/(?<!\S)(.)/uc $1/eg;
としておこう。:-)

# 詳説正規表現は難しいね。

**名無しさん＠お腹いっぱい。** · 01/09/25 12:35

>>83

別解で

s/(\w+)/ucfirst $1/eg;

**名無しさん＠お腹いっぱい。** · 01/09/26 00:14

s/\b(\w+)\b/\u$1/g

**名無しさん＠お腹いっぱい。** · 01/10/04 15:47

あのお、教えてください。
正規表現でShift_JISの半角カナを全角カナに変換することは
できますでしょうか。
ちなみに最初は下記のようなのを書いてみたけど、Shift_JISの下位バイトに
半角カナに一致するコードが含まれることがあって失敗しました。

%han2zen = ( 'ｱ'=>'ア', …以下半角=>全角の対応 );
my $re_hankana = '[｡-ﾟ]';
my $re_dakuten = '[ﾞﾟ]';

#成功例
my $good = "(ﾟДﾟ)ﾊｧ?(ﾟДﾟ)ﾊｧ?";
$good =~ s/($re_hankana$re_dakuten?)/$han2zen{$1}/g;
print "$good\n";

#失敗例
my $bad = "(ﾟДﾟ)ほげ？(ﾟДﾟ)ほげ？";
$bad =~ s/($re_hankana$re_dakuten?)/$han2zen{$1}/g;
print "$bad\n";

87 · 01/10/04 15:51

上の検証用に半角全角対応ハッシュも書いときます。

my %han2zen = (
'｡'=>'。', '｢'=>'「', '｣'=>'」', '､'=>'、', '･'=>'・', 'ｦ'=>'ヲ', 'ｧ'=>'ァ',
'ｨ'=>'ィ', 'ｩ'=>'ゥ', 'ｪ'=>'ェ', 'ｫ'=>'ォ', 'ｬ'=>'ャ', 'ｭ'=>'ュ', 'ｮ'=>'ョ',
'ｯ'=>'ッ', 'ｰ'=>'ー', 'ｱ'=>'ア', 'ｲ'=>'イ', 'ｳ'=>'ウ', 'ｴ'=>'エ', 'ｵ'=>'オ',
'ｶ'=>'カ', 'ｷ'=>'キ', 'ｸ'=>'ク', 'ｹ'=>'ケ', 'ｺ'=>'コ', 'ｻ'=>'サ', 'ｼ'=>'シ',
'ｽ'=>'ス', 'ｾ'=>'セ', 'ｿ'=>'ソ\','ﾀ'=>'タ', 'ﾁ'=>'チ', 'ﾂ'=>'ツ', 'ﾃ'=>'テ',
'ﾄ'=>'ト', 'ﾅ'=>'ナ', 'ﾆ'=>'ニ', 'ﾇ'=>'ヌ', 'ﾈ'=>'ネ', 'ﾉ'=>'ノ', 'ﾊ'=>'ハ',
'ﾋ'=>'ヒ', 'ﾌ'=>'フ', 'ﾍ'=>'ヘ', 'ﾎ'=>'ホ', 'ﾏ'=>'マ', 'ﾐ'=>'ミ', 'ﾑ'=>'ム',
'ﾒ'=>'メ', 'ﾓ'=>'モ', 'ﾔ'=>'ヤ', 'ﾕ'=>'ユ', 'ﾖ'=>'ヨ', 'ﾗ'=>'ラ', 'ﾘ'=>'リ',
'ﾙ'=>'ル', 'ﾚ'=>'レ', 'ﾛ'=>'ロ', 'ﾜ'=>'ワ', 'ﾝ'=>'ン', 'ﾞ'=>'゛', 'ﾟ'=>'゜',
'ｶﾞ'=>'ガ', 'ｷﾞ'=>'ギ', 'ｸﾞ'=>'グ', 'ｹﾞ'=>'ゲ', 'ｺﾞ'=>'ゴ',
'ｻﾞ'=>'ザ', 'ｼﾞ'=>'ジ', 'ｽﾞ'=>'ズ', 'ｾﾞ'=>'ゼ', 'ｿﾞ'=>'ゾ',
'ﾀﾞ'=>'ダ', 'ﾁﾞ'=>'ヂ', 'ﾂﾞ'=>'ヅ', 'ﾃﾞ'=>'デ', 'ﾄﾞ'=>'ド',
'ﾊﾞ'=>'バ', 'ﾋﾞ'=>'ビ', 'ﾌﾞ'=>'ブ', 'ﾍﾞ'=>'ベ', 'ﾎﾞ'=>'ボ',
'ﾊﾟ'=>'パ', 'ﾋﾟ'=>'ピ', 'ﾌﾟ'=>'プ', 'ﾍﾟ'=>'ペ', 'ﾎﾟ'=>'ポ',
);

**名無しさん＠お腹いっぱい。** · 01/10/04 17:00

>>87
jcodeじゃだめか？
ってここは正規表現スレだな

**名無しさん＠お腹いっぱい。** · 01/10/04 22:34

$hoge =~ s/([\x81-\x9F][\x40-\x7E]|[\xE0-\xEF][\x80-\xFC]|[\xA1-\xDF]|.)/$han2zen{$1} or $1/egs;

いつも通りこう書いたんだけど、$bad はやっぱり上手くいかない。
縦棒って最初にマッチした奴にマッチして終わりじゃなかったっけ？
誰か教えてくれ。

**名無しさん＠お腹いっぱい。** · 01/10/05 04:22

90 · 01/10/05 20:50

>>91
ああそうかぁ。サンクス。
http://ash.or.jp/ash/tips_prog/htm/code.htm
ココみてパターン書いたんだけど、見方間違えてたよ。

そういえば最後のドットは要らないかな、と思った。

87 · 01/10/07 17:56

>>89-92
ありがとー。

87 · 01/10/07 18:28

まとめ。Shift_JISの半角カナを全角に変換。
my %han2zen = { >>88参照 };
my $re_zen = '[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]'; # 全角
my $re_han = '[\xa1-\xdf]'; # 半角カナ
my $re_dak = '[\xde\xdf]'; # 半角の濁点と半濁点

my $s = "(ﾟдﾟ)ｳﾏｰ(ﾟДﾟ)げ？";
$s =~ s/($re_zen|$re_han$re_dak?)/$han2zen{$1} or $1/ge;
print "$s\n";

87 · 01/10/07 18:42

う。>>94だと"ﾏﾞ"が変換されずに残っちゃうです。
>>89-92の人の責任じゃなくて俺のせいっす。鬱だ。。。

87 · 01/10/08 01:19

よし！これで大丈夫。たぶん。。きっと。。。

# Shift_JISの半角カナを全角に変換する
my %han2zen = { >>88, 'ｳﾞ'=>'ヴ' } # 88のに1コ追加
my $re_zen = '[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]'; # 全角
my $re_han = '[\xa1-\xdf]'; # 半角カナ
my $re_dak = '[\xb3\xb6-\xc4\xca-\xce]\xde'; # 半角カナ濁点
my $re_hdak = '[\xca-\xce]\xdf'; # 半角カナ半濁点

my $s = "(ﾟдﾟ)ｳﾞﾏﾞｰ(ﾟДﾟ)げ？";
$s =~ s/($re_zen|$re_dak|$re_hdak|$re_han)/$han2zen{$1} or $1/ge;
print "$s\n";

**名無しさん＠お腹いっぱい。** · 01/10/10 00:05

apacheで、
ttp://hogehoge/cg\img.jpg
を↓にリダイレクトしたい。
ttp://hogehoge/cg/img.jpg

しかし↓これだと動かない。
RedirectMatch ^/([^\?]*)\\(.*)$ /$1/$2
なぜだか判る？

**名無しさん＠お腹いっぱい。** · 01/10/10 00:06

pathに\はおかしいのでは？

**名無しさん＠お腹いっぱい。** · 01/10/10 00:09

>>98
しかしIEだとちゃんと表示できるからユーザーは気が付かずに使っちゃうのよ。
他の正常なブラウザだと404になるからリダイレクトしたいの。

90 · 01/10/10 01:00

mod_rewriteでの記法はよく知らんけど、
最初の ^/ は、 / にしないと駄目でない？

90 · 01/10/10 01:04

mod_rewriteじゃなかった（恥

**名無しさん＠お腹いっぱい。** · 01/10/10 01:54

良く調べた！　SIFT_JIS決め撃ちの所で使えるね　(・∀・)♪

97 · 01/10/10 21:41

>>97
RedirectMatch ^/([^\?]*)\\\(.*)$ /$1/$2
なんか知らぬが解決した。

01/10/12 01:11

$http_URL_regex=「URLの正規表現」（長いので割愛）

として、掲示板スクリプトの書き込みの中にあるURLに
こうやって自動リンク貼ってる。↓

$data =~ s/($http_URL_regex)/<a href="$1">$1<\/a>/go;

現状だと
http://www.test.com/dir/index.html　が
<a href="http://www.test.com/dir/index.html>;http://www.test.com/dir/index.html<;/a>　に
置き換わるだけだけど、URL表示の/（スラッシュ）を「<wbr>/」に
置き換えるようにしたい。

具体的には、上の例でいうと
<a href="http://www.test.com/dir/index.html>;http://www.test.com<;wbr>/dir<wbr>/index.html</a>
って感じにしたい。

一行が長くてｺﾞﾒｿ。分かる人教えて。

**名無しさん＠お腹いっぱい。** · 01/10/12 02:04

>>104
分かるもなにも、その$http_URL_regexってやつを
見せてもらわんと。そんなに長いんか？
も、もしかして、大崎氏の「Perlメモ」にある
ものすごい正規表現のことかな。。。

**名無しさん＠お腹いっぱい。** · 01/10/12 02:04

>>104
$data =~ s/($http_URL_regex)/&convurl($1)/ge;
sub convurl {
my($url) = shift;
my($str) = qq{<a href="$url">};
$url =~ s|(?<!/)/(?!/)|<wbr>/|g;
$str .= qq{$url</a>};
}

こんなんしか思いつかんダサ

**104** · 01/10/12 09:48

>>105
bingo...
http://www.din.or.jp/~ohzaki/perl.htm#httpURL
にあるやつです。

>>106
うまくいった！ありがとう！

**名無しさん＠お腹いっぱい。** · 01/10/12 12:46

<a href="http://www.test.com/dir/index.html>;http://www.test.com<;wbr>/dir<wbr>/index.html</a>
　　　　　^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
リンク張るならここまでだろ。2chださい。

**名無しさん＠お腹いっぱい。** · 01/10/12 13:13

ちょいテスト

quoteなし
<a href=http://hoge.com/hoge.html>;http://hoge.com<;wbr>/hoge.html</a>

quoteあり
<a href="http://hoge.com/hoge.html">http://hoge.com<;wbr>/hoge.html</a>

quote閉じ忘れ
<a href="http://hoge.com/hoge.html>;http://hoge.com<;wbr>/hoge.html</a>

**109** · 01/10/12 13:15

>>108 禿しく同意！

01/10/15 01:18

**名無しさん＠お腹いっぱい。** · 01/10/15 01:29

>>108,109＝馬鹿

**名無しさん＠お腹いっぱい。** · 01/10/15 06:28

>>112
その心は「クォート閉じ忘れやクォートなしは不正なのに、
それに対応していない2chを批判するのは馬鹿」という理解でよいですか。

**名無しさん＠お腹いっぱい。** · 01/10/15 08:08

不正じゃなくても間違えますが何か?
<a href="http://example.com/">http://example.com/<;/a>
ということでお題。
&は含むけど<や>は含まないように
リンクを張る正規表現は?

**名無しさん＠お腹いっぱい。** · 01/10/15 08:11

ちなみに現行はこう。
$message =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;

**113** · 01/10/15 09:07

>>114
いや、そういう意味で言ってるんだとしたら間違ってるよ。
っていいたかったの。

> &は含むけど<や>は含まないように
> リンクを張る正規表現は?
URLという意味では<が含まれてても問題（よね？）と思うので、
<や>をはじく必要は無いと思うけど・・・
ちょっと考えるよ。

**名無しさん＠お腹いっぱい。** · 01/10/15 09:12

すんません。
$116 =~ s/(問題)/$1無い/;
$116 =~ s/</</g;
$116 =~ s/>/>/g;

**名無しさん＠お腹いっぱい。** · 01/10/15 10:07

>>116-117
問題あるよ。
http://www.isi.edu/in-notes/rfc2396.txt

**名無しさん＠お腹いっぱい。** · 01/10/15 10:08

つーか正しく伝わってないかも。
< や > が含まれてると問題あるけど、htmlソース上は
< や > だから含まれてしまうのを
修正したいってことなんだけど。

**113** · 01/10/15 10:18

s/</</g; s/>/>/g してから
リンク張ってるのがまずいんですね。
リンク張りつつ < > 除去すれば正確になるのかな。

s{
((?:https?|ftp|gopher|telnet|whois|news)://[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%]+)
| (<) | (>)
}{
$1 ? "<a href=\"$1\">$1</a>" :
$2 ? '<' :
$3 ? '>' :
''
}xeg;
とかはどうですか？

**113** · 01/10/15 10:37

単純に <、> を避けるならこんな感じっすかね？
s{(
(?:https?|ftp|gopher|telnet|whois|news)://
(?:[-_.!~*'()a-zA-Z0-9;/?:\@=+\$,%] | &(?![lg]t;) )+
)}
{<a href=\"$1\">$1</a>}xg;

**名無しさん＠お腹いっぱい。** · 01/10/15 11:23

news: の場合も // で始まるんでしたっけ?
s{(
(?:(?:https?|ftp|gopher|telnet|whois)://|news:)
(?:[-_.!~*'()a-zA-Z0-9;/?:\@=+\$,%] | &(?![lg]t;) )+
)}
{<a href=\"$1\">$1</a>}xg;

**名無しさん＠お腹いっぱい。** · 01/10/15 11:35

URI referenceの場合にもリンクを貼りたいから
s{(
(?:(?:https?|ftp|gopher|telnet|whois)://|news:)
(?:[-_.!~*'()a-zA-Z0-9;/?:\@=+\$,%#] | &(?![lg]t;) )+
)}
{<a href=\"$1\">$1</a>}xg;

**名無しさん＠お腹いっぱい。** · 01/10/15 11:51

一般的なCGIなら http と ftp 以外にリンク貼る必要も無いだろうから、
これで十分かな？
s{((?:https?|ftp)://(?:[-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)}{<a href="$1">$1</a>}g;
どっちにしても中途半端だけど。

**名無しさん＠お腹いっぱい。** · 01/10/15 12:21

oとtarget=_blankを付けてみる。
s{((?:https?|ftp)://(?:[-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)}{<a href="$1" target=_blank>$1</a>}go;

**名無しさん＠お腹いっぱい。** · 01/10/15 12:57

o修飾子はパターンに変数が入っていないときは影響なしとおもう。
ちがうの？

**名無しさん＠お腹いっぱい。** · 01/10/15 13:01

そうかも。

**名無しさん＠お腹いっぱい。** · 01/10/19 22:45

正規表現の火を消すな。

**名無しさん＠お腹いっぱい。** · 01/10/20 00:13

意味ﾜｶﾝﾈｰよ　　(藁
#詳説買って来たけどかなり本棚の肥やしになりそうな感じ・・・

**名無しさん＠お腹いっぱい。** · 01/10/20 08:13

&&&

**名無しさん＠お腹いっぱい。** · 01/10/20 16:58

正規表現って、オミトロンで使ってるマッチングルールと同じ？

**名無しさん＠お腹いっぱい。** · 01/10/20 22:31

それはちょっとおかしい。
良く突っ込まれる例：
あめぞうって、2chとかMAGABBSと同じタイプ？

**名無しさん＠お腹いっぱい。** · 01/10/25 02:00

テスト

http://www.2ch.
net/
<a href="http://www.2ch.net/">http://www.2ch.net/<;/a>

**名無しさん＠お腹いっぱい。** · 01/10/25 02:24

http://www.2ch.net/<;/a>

**名無しさん＠お腹いっぱい。** · 01/10/25 17:47

>http://www.2ch.net/a<;/a>

**名無しさん＠お腹いっぱい。** · 01/10/25 17:56

http://www.2ch.net/----This site is a Japanese famouse WEB site.

**名無しさん＠お腹いっぱい。** · 01/10/26 09:05

何をやりたいんだ

**名無しさん＠お腹いっぱい。** · 01/10/26 11:48

</a>までリンクされる現象が直ってるかどうかのテスト、でしょ。
read.cgiでは直ってるみたいね。

**名無しさん＠お腹いっぱい。** · 01/10/26 11:54

http://www.google.co.jp/search?q=%83S%83%8B%83A&hl=ja&lr=

**名無しさん＠お腹いっぱい。** · 01/10/27 00:02

道場は閉鎖されたようです。

**名無しさん＠お腹いっぱい。** · 01/10/28 01:33

移転あげ

**名無しさん＠お腹いっぱい。** · 01/11/08 04:45

あげっ！！
詳説難しいって言う意見が有るけど(確かに　＾-＾; )
俺は最初詳説買ってチンプンカンプンだったんで、ゆたか氏の正規表現入門を
買ったよ、それから詳説読んだら理解がすすみやすかった

**名無しさん＠お腹いっぱい。** · 01/11/17 19:17

[0-9a-z]++で、8文字までっていうのはどうやるんでしょう？

**吉野家シリーズでいってみよう!** · 01/11/17 22:44

そんな事よりちょいと聞いてくれよ。
先日、正規表現のエンジン書いたんです。NFA.
そしたら単語境界の処理とかどうとか聞いてくるんです。
もうね、アホかと。馬鹿かと。
お前な、正規表現で表せねー機能拡張するんじゃねーよ、ボケが。
機能拡張だよ、機能拡張。
なんか文字クラスかあるし。
よーしパパ繰り返し回数指定サポートだー、とか言ってるの。
ここでぶち切れたね。
正規表現はな、状態数有限、男同士でケツを挿すか挿されるか
そこがいーんじゃねーか、状態数爆発させる奴はすっこんでろ。
あのな、E{8}で8回繰り返すなんてきょうび流行んねーんだよ。ボケが。
得意げな顔して何がPerlの拡張正規表現だ。
お前は本当に前処理展開が必要なのかと問い詰めたい。
小一時間問い詰めたい。

**sage** · 01/11/17 22:57

>144
端折らないでちゃんとやってよ～。

**名無しさん＠お腹いっぱい。** · 01/11/18 00:31

>>143
[0-9a-z]{1,8}

**143** · 01/11/18 02:39

ありがうとざいました

**名無しさん＠お腹いっぱい。** · 01/11/18 02:44

マジでこれだけだったのか･･･
何かネタかと思ったが

**名無しさん＠お腹いっぱい。** · 01/11/18 03:00

>>148 何が？

**名無しさん＠お腹いっぱい。** · 01/11/18 04:31

何がって（゜∀゜）！ﾋｬﾋｬﾋｬ
BBSに削除機能付けるから仕方なくって所だな。。。

**ひ‎ろゆき＠管‎直人** · 01/11/18 04:41

ﾜｹﾜｶﾗﾝ

**名無しさん＠お腹いっぱい。** · 01/11/18 13:41

>147
「バオー来訪者」に出てきた九官鳥のほうが正しくお礼を言えてるぞ。

**名無しさん＠お腹いっぱい。** · 01/11/18 17:44

>>152
ｵﾓﾛｲ

**名無しさん＠お腹いっぱい。** · 01/12/12 17:13

"c:\Program Files\hoge.exe" "c:\Program Files\hankaku.mp3" "c:\Program Files\全角.mp3"

c:\Program Files\hoge.exe
c:\Program Files\hankaku.mp3
c:\Program Files\全角.mp3
を抽出する方法ｷﾎﾞﾝﾇ

m/"\S.*?\S"/g
だと
"c:\Program Files\hoge.exe"
にヒットします．
"なしでヒットする方法ｷﾎﾞﾝﾇ（後方参照を使わずに）

**名無しさん＠お腹いっぱい。** · 01/12/12 17:22

$hoge =~ s/あめぞう/だめぞう/g;

**名無しさん＠お腹いっぱい。** · 01/12/12 18:22

/\w:[^"]+/g でどう？

**名無しさん＠お腹いっぱい。** · 01/12/12 18:35

スンバらしい！！
目がうろこ

じゃあ
"hoge\\asdf\"hage"
から
hoge\\asdf\"hage
を抜き出す方法って無い？

**名無しさん＠お腹いっぱい。** · 01/12/12 18:38

>>157
そういうファイルがあるってこと？
ファイル名に使えない文字だよ？＞"

**名無しさん＠お腹いっぱい。** · 01/12/12 18:50

ファイル名じゃなくて単純に文字列です．

**名無しさん＠お腹いっぱい。** · 01/12/12 19:17

>>159
じぶんではやろうとしないんだね。。

/(?:").+(?!"\s)/

**名無しさん＠お腹いっぱい。** · 01/12/12 21:16

もう出てるのかもしれないけど
foreach my $n (2..100) {
my $number = '1' x $n;
print "$n\n" if $number !~ /^(11+)\1+$/g;
}
「ほう、正規表現でこんなんできんのかいなー」と思ったコードでした。

**デフォルトの名無しさん** · 01/12/12 22:31

正規表現だとめっちゃ遅そうだね　　(^ー^；

**名無さん＠お腹いっぱい** · 01/12/12 23:48

バックスラッシュでエスケープできる空白で区切られた文字の切り出し。

$_ ='today is monday. tomorrow\ is\ tuesday. I\ hate\ \\\\\\';

while( /\s*((?:\\\S|\\\s|\S)+)\s*/g ){
push( @x, $1 );
}

print join( "\n", @x ), "\n";

切り分けてからバックスラッシュを除去するタイプ。
まとめてやっちゃえないかな。

**名無しさん＠お腹いっぱい。** · 01/12/13 00:07

正規表現の起源をさかのぼるとどこまで行きますか？

**名無しさん＠お腹いっぱい。** · 01/12/13 00:10

インダス文明

**名無しさん＠お腹いっぱい。** · 01/12/13 00:12

>>165
そこまで古くない

**名無しさん＠お腹いっぱい。** · 01/12/13 00:37

メソポタミア文明

**名無しさん＠お腹いっぱい。** · 01/12/13 01:30

かつてヒッタイト人は正規表現に悩まされ海に沈んだ

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/13 03:25

>>163

求めているものとは異なると思うけど。
s{\s*((?:\\\S|\\\s|\S)+)\s*}{push @x, $1; $x[-1] =~ s/\G([^\\]*)\\(.)/$1$2/g}eg;

**名無しさん＠お腹いっぱい。** · 01/12/13 07:49

>>169
s///の中にs///いれちゃうってのがおもしろい。
級数的に遅くなっちゃうんだろうけど...

**名無しさん＠お腹いっぱい。** · 01/12/13 07:53

>>169
二つ目は s/\\(.)/$1/g で良いような。

my %escape = ( n => "\n", r => "\r"... );

s{\s*((?:\\\S|\\\s|\S)+)\s*}{push @x, $1; $x[-1] =~ s/\\(.)/$escape{$1}||$1/eg}eg

**名無しさん＠お腹いっぱい。** · 01/12/13 08:01

というか、ようするにタグの属性の'='より後を処理したかったわけで。

# だぶるくおーと
s{\s*"((?:\\[^"]|\\"|[^"])+)"\s*}{push @x, $1; $x[-1] =~ s/\\(.)/$escape{$1}||$1/eg}eg
# しんぐるくおーと
s{\s*'((?:\\[^']|\\'|[^'])+)'\s*}{push @x, $1; $x[-1] =~ s/\\(.)/$escape{$1}||$1/eg}eg

ひとつにまとめたーい
\s*('|")((?:\\[^\1]|\\\1|[^\1])+)\1\s*
うーー。[^\1]って動くのか？
今Perlなし環境なんでためせん....

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/13 08:50

たしかに s/\\(.)/$1/g で十分っぽい。
何やってるんだろ。

ちなみに、HTMLでは属性値の "..." 内に「"」を入れたいときには「\"」を
使いません。もちろん、「\n」と書いても改行にはなりません。

あと、欲張りではない .*? とか .+? を使うともう少し簡単に書けそう。
('|") は ['"] と書いた方が微妙に良いかも。

----
どうせなら思い切りトリッキーに
s{\s*((?:\\.|\S)+)\s*}{($x[@x] = $1) =~ s/\\(.)/$1/g }eg;
とか。:-p

# 良く考えたら \\\S|\\\s って \\. ですよね。

そろそろ寝ます。

**名無さん＠お腹いっぱい** · 01/12/13 10:04

>>173
" を使うのが正解なのかな？

<a title="get it from \"snake hole\"">spank spank</a>
<a title="get it from "snake hole"">spank spank</a>

改行を含める場合はどうしたらいいんだろう...

正規表現パート。
('|") と ['"] はどう違うんだろう。
選択と文字クラス(?) の違い？
諸説正規表現あたり読むとわかるんだろうか。

とりあえず、.+? を使って、

\s*['"]((?:\\.|.)+?)\1\s*

にすることにしました。イロイロサンクス!

**名無しさん＠お腹いっぱい。** · 01/12/13 10:05

>>174
"を使うのが正解です。

**174** · 01/12/13 10:59

>>175
あれー？ & と quot と ; を書いたはずなんだが... 2ch だと変換されちゃうのか。

もう一個。

今日は(*そりゃもう死ぬほど(ってほどじゃないけど))寒い。

みたいなので、 "(*" から ")" まで一発でマッチさせることって出来ないかな。
ネストしてた場合ってループで処理するしかないのだろうか...

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/13 16:38

>>174

> 改行を含める場合はどうしたらいいんだろう...

<a title="Mermione
moe">hoehoe</a>

とか。

> ('|") と ['"] はどう違うんだろう。
> 選択と文字クラス(?) の違い？

です。後者の方がバックトラックが発生しないので効率が良いです。
(この場合はそれほど違いは無いですけど。)

>>176

perl5.6以降限定作戦。

$_ = "foo (Hermione (Emma Watson) moe) bar";
$regex = qr/$(?:(??{$regex})|.)*$/;
($match) = /($regex)/;
print "$match\n";

**174** · 01/12/13 19:54

>>177
そろそろ尊敬しちゃっていいですか？

でも、
% perl -v
This is perl, version 5.004_05..

なので、諦めて寝ます。

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/13 21:54

ちと訂正。
$regex = qr/$(?:(??{$regex})|.)*?$/;
($match) = /($regex)/;
こうしないと欲張りマッチになってしまう。

2重まで限定で良ければ、($match) = /($(?:\(.*?$|.)*?\))/;
3重まで使いたければ、($match) = /($(?:\((?:\(.*?$|.)*?\)|.)*?\))/;
ってのはダメ?
もちろん、(??{ CODE }) 使った方は何重でも使えます。

ぴこ · 01/12/14 02:30

　文字列の先頭に有る全角スペース＆スペース＆改行を
無くすには、どうすればよいのでしょうか？

$piko =~ s/^[.\n\s　]*//g;

　これで無くすと？がＨに化けてしまうんです・・・

**名無しさん＠お腹いっぱい。** · 01/12/14 03:06

>>180
同じくらいのレベルの俺だけど…
$piko =~ s/^(?:\s|　|\n)+//g;

ぴこ · 01/12/14 03:34

>>181
　おぉお～出来ました感動です！
かなり不安でしたが2chに書き込みしてみてよかったです。

　自分の勉強不足が身にしみました
ただ、全角スペースが||で囲まれている理由が
全く分らないのでＣＧＩ＆Ｐｅｒｌポケットリファレンスを
片手に、がばってみます。

　このような質問に丁寧に答えていただき
真に有難う御座いました。

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/14 03:56

ちなみに、理由は...

$piko =~ s/^[.\n\s　]*//g;
これは、ソースコードが Shift_JIS で書かれている場合、
$piko =~ s/^[.\n\s\x81\x40]*//g;
と等価になります。

で、さらに言うと、

* (いわゆる) 全角スペースは Shift_JIS で "\x81\x40" です。
* Perlでは原則的に文字列をバイト単位で扱います。
* "？" は Shift_JIS で "\x81\x48" です。

頑張ってください。

あと、このままだと先頭の "." まで削除しちゃいます。
# 文字クラス [...] 中では多くのメタ文字はそのメタ性を失うため。

----
あと、本は少し高いけど「プログラミングPerl改訂版」が良いと思います。(
中身はperldoc に全部載っていますが、本の形態である方が最初のうちは何か
と便利です。)

**174** · 01/12/14 13:56

>>179
やりたいことってのは、
普通の文章の中にあらわれる (...) を切取るって作業なんです。
でも、普通の文章の場合、(...) の中に単体で '(' とか ')' が出ることもあるか...
諦めます。

**名無しさん＠お腹いっぱい。** · 01/12/18 00:11

正規表現で「宣教師と・・・」みたいな（名前忘れた）パズルを解くのが
あるってどこかで見て一度見てみたいんだけどgoogleで調べても出てこない。
だれか、コード or コードを載せてあるページ知ってる人いない？

恥ずかしながら、どうやって解いているのか見当もつかない。

**名無しさん＠お腹いっぱい。** · 01/12/18 00:31

恥ずかしながら、何を言っているのか見当もつかない。

**名無しさん＠お腹いっぱい。** · 01/12/18 00:39

>>186
人食い族と宣教師がボートに乗って川を渡る
とかいうやつじゃないの?

**名無しさん＠お腹いっぱい。** · 01/12/18 01:14

>>186
スマン。
問題書いてなかったね。

3 人の宣教師と 3 人の人喰い土人が川の左岸にいます．
1 隻の 2 人乗りボートを使って，
右岸に渡るにはどうすれば良いでしょうか?
ただし土人の人数が宣教師の人数よりも多くなると，
宣教師は喰われてしまいます

という問題。

**名無しさん＠お腹いっぱい。** · 01/12/18 01:52

>>187 >>188 ぁ、わかった。けど、肝心のサイトを知らないな…。

**名無しさん＠お腹いっぱい。** · 01/12/18 02:36

http://pc.2ch.net/test/read.cgi/php/991313362/
でプログラム技術板で解いてたとか。(18,52あたり)
ちょっと違う問題っぽいけど。
肝心のムの板スレは見つからず・・・

**190** · 01/12/18 02:41

ムの板スレ・・・ → ム板のスレ

**名無しさん＠お腹いっぱい。** · 01/12/19 00:58

>>190
おもしろそうだから探してみたけど見つからなかった　(-ｖ-；
正規表現のコンパイラを上手く使って分岐するのかな？
と言うかこの問題ニ分木で解いたけど難しかった。。。

**名無しさん＠お腹いっぱい。** · 01/12/19 19:57

アクセスログ解析でUserAgentを見てみるとあきれるほどMSIEのバージョン違いが多くて
まとめようと思いました。IEのバージョンとwinのバージョン以外は無視するつもりで
/MSIE.*5\.5.*Windows.*98/
とやっても
Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
などにマッチしてくれません。正規表現道場の師範の方々にご教授願いにあがりました。

環境はActivePerl(perl5.6.1 built for MSWin32-x86-multi-thread) on Windows2000proです。
一応分け方としてはMSIE5.01, 5.0, 5.5, 6.0とWindows 95, 98 ,NT5の組み合わせを
考えています。

#それにしてもヴァージョン違いの多さにあきれてしまいます。そういえばMeがでてきません。
#98の3rdエディションともでていなかったけど

**名無しさん＠お腹いっぱい。** · 01/12/19 20:11

>>190
最短は何手なの？
自分も解いてみたけど13手だった。

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/19 20:56

>>193
マッチしますが?

**名無しさん＠お腹いっぱい。** · 01/12/19 21:53

>193
コーディングの問題でした。
処理が下に抜けていた。

修行し直します。

**名無しさん＠お腹いっぱい。** · 01/12/20 17:08

ある正規表現にマッチするような文字列を自動生成する方法ってなんかある？
例えば、/\d+/とかだったら、0、/\d+\w+/だったら、0aとか。

**JAPU@ハーマイオニー萌え** ◆JAPUTeX. · 01/12/20 18:04

一般的には無理です。

**名無しさん＠お腹いっぱい。** · 01/12/20 23:34

コンパイラを書く、で、途中で挫折これ最悪(って訳でも無い,,)

**名無しさん＠お腹いっぱい。** · 01/12/20 23:46

>>188
ちょっと違うけど。

問題ｸﾚｸﾚ
http://piza.2ch.net/tech/kako/989/989687023.html

船渡し問題
http://piza.2ch.net/tech/kako/990/990503990.html

スクリプト
$_='i=FMBBGGSD;@n=(F,M,B,G,S,D);Yp{_X!(/D/&!/S/&/[^D]/|/F/&/G/&!/M/|/M/&/B/&!
/F/)}Yz{_X!_|/[FMS]/}Yr{aXbXp(a)&p(b)&p(a.b)&z(b)}Yt{my(@o,c,d,e,f,g,h,i,j);c=k
%2;e=iXf=jXif(c&!f){push@m,join"\n",@l,k,"";return}_=e;y/FB/MG/;return if Z&Z<=
k;Z=k+1;@o=(@n,"");for g(@n){shift@o;for h(@o){e=i;d=g.h;f=j.d;next if e!~s/g//
|h&e!~s/h//|!r(e,d);a="e->d j";a="j d<-e"if c;push@l,a;k++;t(f,e);k--;pop@l;}
}}t i;print@m,@m+0';s/X/=shift;/g;s/Y/sub /g;s|Z|\${c}{join"",sort split//}|g;s
/[|&]/$&$&/g;s/\b[_-k]\b/\$$&/g;eval