正規表現道場@2ch

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

ちょいテスト

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>

>>108 禿しく同意！

>>108,109＝馬鹿

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

そうかも。

正規表現の火を消すな。

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

&&&

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

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

テスト

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

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

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

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

何をやりたいんだ

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

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

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

移転あげ

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

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

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

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

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

ありがうとざいました

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

>>148 何が？

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

ﾜｹﾜｶﾗﾝ

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

>>152
ｵﾓﾛｲ

"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"
にヒットします．
"なしでヒットする方法ｷﾎﾞﾝﾇ（後方参照を使わずに）

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

インダス文明

>>165
そこまで古くない

メソポタミア文明

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

>>163

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

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

>>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

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

# だぶるくおーと
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なし環境なんでためせん....

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

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

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

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

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

そろそろ寝ます。

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

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

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

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

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

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

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

>>174
&quot;を使うのが正解です。

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

もう一個。

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

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

>>174

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

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

とか。

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

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

>>176

perl5.6以降限定作戦。

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

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

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

なので、諦めて寝ます。

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

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

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

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

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

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

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

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

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

ちなみに、理由は...

$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 に全部載っていますが、本の形態である方が最初のうちは何か
と便利です。)

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

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

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

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

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

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

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

という問題。

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

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

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

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

アクセスログ解析で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エディションともでていなかったけど

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

>>193
マッチしますが?

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

修行し直します。

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

一般的には無理です。

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

>>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

やっぱ無理か。

>>200
おお、どうもありがとう。
こっちの船渡し問題は昔Cでhash使って、最短手数出るように
解いたんだけど、このスクリプトもちゃんと同じ17手になるんだね。


しかし、見にくいコード・・・。

>>197
ああ、それたまに欲しくなるよね。

$pattern ="hogehoge";

$dummy =/^${pattern}_[Gg][Ee][Tt]\s*=\s*(.*)/;

while( // ){
...
}

$patterm も case を ignore してほしいのよ。

素直に i つかえばいいんだろうけどさぁ...

>>203
ああ、ちょっと違う。

$pattern ="[Hh][Oo][Gg][Ee][Hh][Oo][Gg][Ee]";

だった。

んで、$dummy をどうするかって話...

>>203
何が言いたいのか良く理解できないので、想像して書きます。

$pat = "abc"; のとき、/${pat}de/ で "ABCde" も受理されるようにしたいっ
てこと? それなら/(?i:$pat)de/ とかいう感じで。(The letters between ? and
: act as flags modifiers, see the (?imsx-imsx) manpage.)

繰り返しになるけど、ある正規表現が受理する文字列は無限に存在する可能性
があるので、正規表現 => 受理する文字列を全て見つける は不可能だよ。正
規表現じゃなくて単純なパタンならある程度可能だけどね。
# 単純な例として、// とか /moe/ とかの場合考えると分かると思う。

とりあえず、>>203 は分かりやすい日本語でも書いてろってこった。

>>203
の言ってることは意味不明だけど、>>197は「全て」とはひとことも
書いてない。一つだけでいいんだろ。

とりあえず、JAPUは脳内変換やめろってこった。

>>197
できないことはないだろうけど、正規表現パースして解析して
とかカナーリめんどくさいことになりそう。

パースして解析してってのは脳内長島用語ですか？

( ´,_ゝ`) 　　・・・

( ´,_ゝ`) 　　ぷ

197みたいなのを作るのは面白そうだね。
学生さんの冬休みの自由研究としてちょうどいい分量かも。

1. 正規表現をparseしてオートマトンを作る。
2. オートマトンからゴールに向かって状態を遷移させていく。(無限ループに注意)

みたいな感じか。

1で作るオートマトンでのNFAとDFAの比較、2で最短の解を求めるアルゴリズム
なんかを考察してみるのも楽しそう。

197です。

perlはあまり使ったことがないので、203さんの言ってることは
ちょっとよくわかんないんですが、

全てヒットする必要はありません。
一個でもヒットする文字列ができればいいんです。

if ($str =~ /\d+/) {
}
とかあったときに、ifが成立するようなstrを生成したいというだけなので、
全ては必要ないですし、長さが最低でなければならないというわけでもありません。

>>206
自分でもいろいろ考えた結果、自分でパースするしかないかと思い
かなりめんどくさそうだったので、もしかしたらなんかいい方法あるかも？
とか思い質問したんですが、やっぱ地道な方法しかありませんか……

>>207
脳内長島用語って脳内長嶋用語のことですか？

>>211
仕様が曖昧すぎるな
もう少し簡単に絞ればいくらでも実現方法はあるだろ

良スレあげ
http://123http://456http://789
↑ 1つのURLに… 笑！

かっこわるいね

>>214
よく意味が判らないのですが...

偏執クンだよ　ｗ

https://123:456.7890123.456:789//0/00//...

意味わからなくてヨーソロ

http://teri.2ch.net/test/read.cgi/bobby/1008921769/
http://tmp.2ch.net/test/read.cgi/kitchen/1009247793/

http://1.　　　　　　　　　　　　　　？？
http://1.　　　　　　　　　　　　　　？？
http://1.　　　　　　　　　　　　　　？？
http://1.　　　　　　　　　　　　　　？？
http://1.　　　　　　　　　　　　？？？？？？
http://1.　　　　　　　　　　？？？？？？？？？？
http://1.　　　　　　？？？？？？？？？？？？？？？？？？
http://1.　　　　？？？？？？？？？？？？？？？？？？？？？？
http://1.　　？？？？？？？？？？？？？？？？？？？？？？？？？？
http://1.？？？？？？？？？？　　？？？？？？　　？？？？？？？？？？
http://1.？？？？？？？？　　？？　　？？　　？？　　？？？？？？？？
http://1.？？？？？？？？　　？？　　？？　　？？　　？？？？？？？？
http://1.？？？？？？？？？？　　？？？？？？　　？？？？？？？？？？
http://1.？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
http://1.　　？？？？？？？？？？？？？？？？？？？？？？？？？？
http://1.　　　　　　？？？？？？？？？？？？？？？？？？

http://www.　ヾ　 　 　∧∧
http://www.　　ゝ′￣(　∀)
http://www.　　　UU￣U U

>AA
青くなってないぞ・・・。

ね、残念
フォームの中では絵になってたよ（ｗ

↓こっちで楽しんでくれ
http://tmp.2ch.net/test/read.cgi/kitchen/1009247793/

http://www..ヾ　 　 　∧∧
http://www...ゝ′￣(　∀)
http://www......UU￣U U

文字列と数字が混ざってるのを分離するうまい正規表現を教えてください。

>225
よく意味がわからないなあ。
たとえば"14giko9mona033zonu7:@dd+i100"を、"14","giko","9","mona","033","zonu","7",":@dd+i","100"
に分割したいってこと？

>>226
よくわからんけど、例えの労力に感動。
「ちがいます」の一言で終わりそうだけど。
たとえば・・・てのは、質問者がやらなきゃいけないことでしょう？(笑)

>>226
その通りです！
例えば…を書かなくてすみません。お願いします。

wakata
imakara
tukuruyo
mattetene

@mozi = (a..z);
$mozi = join("", @mozi);
@suzi = (0..9);
$suzi = join("", @suzi);

$data = 'abc940ab？！あkcc873ilo';
$naga = length $data;

for (0..$naga) {
$base = substr($data, $_, 1);
if ($mozi=~$base) { $char = 'mozi'; }
elsif ($suzi=~$base) { $char = 'suzi'; }
else { $char = 'hoka'; }
if ($oldchar eq $char) { $form[$#form].=$base; }
else { push(@form, $base); }
$oldchar = $char;
}

print "Content-type: text/html\n\n";
print join("<>", @form);

できた。

>>230
ありがとうございます。まずコードを読んで勉強します。
でも、正規表現でもっとスマートにはできないでしょうか？
やはり、これくらいコードを書かなきゃだめですか

これでどう？ >>226のヤツ
$giko = '14giko9mona033zonu7:@dd+i100';

@kazu = $giko =~ /(\d+|\D+)/g;
$moji .= '"' . join('","' , @kazu) . '"';
print "$moji\n";

わわ…
○ $moji =
× $moji .=

>>225

;### これでどうでしょう？
$_= '012abc$%@987ABC/=!';
$SEPA= '^K';
s/(\d)(\D)/$1$SEPA$2/g;
s/(\D)(\d)/$1$SEPA$2/g;
s/(\w)(\W)/$1$SEPA$2/g;
s/(\W)(\w)/$1$SEPA$2/g;
for ( split(/$SEPA+/) ){
　　print $_,"\n";
}

これだけでも出来た…。
$giko = '14giko9mona033zonu7:@dd+i100';
print '"' . join('","' , $giko =~ /\d+|\D+/g) . '"';

俺も書いてみた。
たとえば数字とそうでないものとに分けて２つの配列に格納したい場合。

my $str = '14giko9mona033zonu7:@dd+i100';
my @num;
my @notnum;
($1) ? push(@num, $1) : push(@notnum, $2) while $str =~ /(\d+)|(\D+)/g;

"033"の先頭の0をこの段階で取り除いて、数値として @num に格納したいのなら、
$1 の箇所は $1 + 0 に変更だね。

>>235

;### 1行で書くと↓のようになります。(ピリオドで連結しないでカンマで区切って出力したほうが処理が速い）
print '"',join('","' , ($giko= '14giko9mona033zonu7:@dd+i100')=~ /\d+|\D+/g),'"';

>>235
それだと、もはや$gikoに意味が無いような…。これと同じ。
print '"',join('","' , '14giko9mona033zonu7:@dd+i100' =~ /\d+|\D+/g),'"';

間違えた
○ >>237
× >>235

;### 新たに作ってみました。
$_= 'aa14giko9mona033zonu7:@dd+i100';
$SEPA= "\033";
s/((\d+)|(\D+))/$1$SEPA/g;
for ( split($SEPA) ){
　　@catch= (@catch, $_); ## または push(@catch, $_);
}

>>240 自己レス

;### 不要なカッコを書いていました。
s/((\d+)|(\D+))/$1$SEPA/g;⇒s/(\d+|\D+)/$1$SEPA/g;

;### 236を改造してみるとこうなります。
my $str= '14giko9mona033zonu7:@dd+i100';
push(@catch, $1 ? $1 : $2) while $str=~ /(\d+)|(\D+)/g;

>>235
で一番シンプルな解が出てるのに延々続いてるのはなぜ？
@catch = ( $str =~ /(\d+|\D+)/g );

間違えた。
@catch = ( $str =~ /\d+|\D+/g );

>>232-244
いろいろな書き方があるのでとても勉強になりました
たくさんの方々、本当にありがとうございます^^

良スレ認定。

40あげ

良スレだとは思うけど、WebProgとは直接関係ないし。
なぜプログラム板にスレを立てなかったか問い詰めたい。

>>248
そんなことないでしょ？
Perlだってhttpd.confだっておけらだってあめんぼだって
みんなみんな生きているんだ。
ていうか、WebProg意外に正規表現使わない人だって結構いますから。

>>248
いや、それがですね旦那、旦那みたいな方ばっかりなら良いんっすけどね
あっちもアレな人が増えてきたんで、
正規表現 → 氏らねー → Perlじゃﾈｰｶ?? → よっしゃ煽ったろ
みたいになって荒れるより、こっちで静かに余生を送りたいなと思ったんすよ

// 試しにたててみます？　　^^;;

>>250
試しに立ててみましたみたいな立て方すると、結果が予見できる・・・(笑)

= 予想された展開 =
普通の人：どの言語でも良いの?、それともオートマトンとかエンジンの話するの?
　　↓
R**y屋さん：正規表現も積んでない言語は糞！！p**lはもっと糞！！r**y!!!
　　↓
D**phi屋さん：ﾊｧ？？ライブラリ使えば良いだろ？R**y逝ってよし！
　　↓
R**y屋さん：でるｐｈなんか使うやしはあふふぉｆ　R**y!!!!>>>>>>>D**phi

以下糞スレを増殖しつつ、無限ループ　

// 嫌すぎます･･

>>252
いや、Perlでいいじゃんとか。
PHP・・・とか書いて放置されるとか、
漢はshつかえとか、入り乱れてのバトルロワイヤル。

でもないか。

なるほど、たしかに使用言語がらみの厨な応酬が起きそうで嫌ですね　 >ム板
スクリプト言語だと特に。

そこまで考えてませんでした。やぼなツッコミしてすみませんです。

２ちゃんとかで引用に使われる">>"を判別して自動リンクつけたいんですが、

$text = ">>2は逝ってよし！";
$text =~ s/>>[0123456789]{1,3}/<a href="">$&<\/a>/g;

ココまではできたんですが、アンカーのURLに引用もとの数字を入れたいんですが
（この場合だと"2"）、それをどう取得したらよいか分かりません。
この正規表現の書き方では無理ですか？

$_ = q|>>255は逝ってよし！|;
s#>>(\d+)#<a href="http://pc.2ch.net/test/read.cgi/php/996105815/$1">$1</a>#g;
print;

$_ = q|>>256修正|;
s#>>(\d+)#<a href="http://pc.2ch.net/test/read.cgi/php/996105815/$1">$&</a>#g;
print;

>>256,>>257
ありがとうございます。
ここでつまってて、もう文字列解析しようと思ってました（藁

もの凄く基本的な事のような気がして恐縮なのですが、
「文字Aが含まれる行」は正規表現でどのように書くのでしょうか？
Aが含まれる行を全て削除（又は置換）したいんです。

/.*ё.*/´д｀/

open(FILE,"+<$file");
@data = <FILE>;

map {
if ($_=~/A/) { $_=''; }
} @data;

seek(FILE, 0, 0);
print FILE @data;
close(FILE);
----------------------------
なんか間違ってたら直して

なんも間違ってないけど、明らかに間違ってるな。

頼むぜ、ブラザー。

while(<>){ print unless m/A/ }

\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

メールアドレスの入力チェックなんだけどどーゆー意味？

$str = '<font size="5">冬は"寒い"。</font>夏は"暑い"。';

この<と>に囲まれてない部分の"だけ（"寒い"と"暑い"）
"に変換するには正規表現でどう書くんでしょうか？

$str =~ s/>(.*?)"(.*?)</>$1"$2/g;
と書くと2個目の"が変換されませんでした。

変換されてしまった。訂正です。

> "に変換するには正規表現でどう書くんでしょうか？
↓
> &quot;に変換するには正規表現でどう書くんでしょうか？

>>261
とりあえず気が付いたことだけ。

1. 繰り返し処理``だけ''を行いたいならgrepやmapではなくforeachを使うのがよろし。
2. データの一部が削除されているので、truncateしてやらんと末尾にゴミがくっ付いてしまう。

>>266
$str = '<font size="5">冬は"寒い"。</font>夏は"暑い"。';

こんなのしか考えつかない…。正規表現一発で出来るの？偉い人〜
foreach (split /(<[^>]+>)/,$str) {
    !/</ and s/"/&quot;/g;
    print;
}

>>269
ありがとうございます。
そこから考えて、汚いですがとりあえずこんなので解決しました。
while ($str =~ s/>([^<]*)"/>$1"/g or $str =~ s/"([^>]*)</"$1</g) {}

もし正規表現一発で出来る方法があったらよろしくお願いします。

$str =~ s/\"/&quot\;/g; $str =~ s/<([^\>]*)=&quot\;(\w)&quot\;([^\>]*)>/<$1=\"$2\"$3>/g;

じゃだめなのか。

URLとかスタイルシートがあるからだめだろうね -> \w

一行だけど、なんだか。
こんなんしか出来ませんでした。

$str = join '', map { /^</ or s/"/\@/g; $_ } split /(<[^>]*>)/, $str;

訂正。
$str = join '', map { /^</ or s/"/"/g; $_ } split /(<[^>]*>)/, $str;

正規表現より良い表現(マッチ方法)って無いの？

マッチョ法ってのがあるよ。

>276
それどんなかんじ？

あぼーん

>>277
ぐぐーるしてください。

>>275
これなんかどうよ？
文脈依存文法表現案
http://www.try-net.or.jp/~yoji/idea/gramagic/codgex.html

まだ案だけど、これが完璧になれば、圧縮ファイル中の html ファイルの
a 要素の href 属性の中で 2ch に関係してるものを検索、
とか出来るようになるのかな。まだ案だけど。

>>278は何？

マッチョ法age

あ・・・そうだ・・・ありがとう。

半角スペースは\sでいいんでしょうか？
複数スペースを一個にしたいので
$string =~ s/\s+/\s/g;
とやったらうまくいきません。ていうか
$string =~ s/\s/test/g;
とやっても半角スペースに反応しなかったんですけど、\sの理解が間違ってますか？
宜しくお願いします。

tr/\x20\x09/ /s;

ああ、やっぱりそういうややこしいのになっちゃうのね。ありがとう。
ちなみにどうして284のは間違ってるんですか？

>284
２番目のは反応したよ。

\sは[ \t\n\r\f]と同意。
半角スペースだけでなく，タブや改行にもマッチする。

あやや、それじゃあ僕の試験が間違っていたかな。
もっかいやってみます。ありがとうございました。

s/pattern/replace/[geoi];
左側のくくりのパターンには\sのような複数の意味をまとめたエスケープ表現は
使えるが、リプレイス部分に複数の意味を持つエスケープを書いても何に置き換えて
いいものかが曖昧になることを考えるとおのずと使えないということがわかります。
したがって、かくならつぎのようにも書けます。
s/\s+/ /g;
s/\s+/\x20/g;

なるほどなるほど。そのとおりだ。僕もそう思ってました(笑)。
ところで、
s/ +/ /g;
これじゃあだめですか。いや、だめだったんですけど．．。

>290
Perl5.004でうまくいったよ。
スレ違いぎみなのでsage

> 290
できるはずなんですが．．．

$_= 'a   b   c';
s/ +/ /g;
print $_,"\n";

なんでできないんだー。でもなんか、ド素人なんで疑う要因多すぎなんです。
勉強して出直してきます。ごめんなさい。

長すぎる半角英数等を（省略）と表示されるようにしようと思いましたが、
オートリンクのa要素のhref属性の値まで省略されたので、

$comment =~ s/(<a (.+)>)?(([\w\.\/\:]){20})([\w\.\/\:]){35,}(<\/a>)?/$1$3 \(省略\)$6/g;
と書いたのですが、今度は適用されるのが最後にマッチしたヤツだけになりました。

最後にgを付けてるのに全てにマッチされないのは何故ですか？
また、この記述より(･∀･)ｲｲ!!のがあればご教授ください。
おながいします。

>295
なっ、なるほどぉ。

勉強になりました。

今日はもう、枕濡らして寝ます。枕ないけど。

>>294
複雑で私の頭じゃあまり理解できなかったのだけど
s/(\w{20})\w{5,}/$1(略)/g;
じゃダメ？

>>294
試してないけど最初を
<a [^>]+>
にしてみてはどうか？

>>294
一応できたよ．a要素だけに限らずタグの内側の文字列はいじらないようにしてみた．
つうか思いッきり>>273-274をパクッてます(w．制限は単純に5文字．

$comment = join '',
    map { /^</ or s/([:\.\/\w]{5})[:\.\/\w]+/$1(省略)/go; $_ }
    split /(<[^>]*>)/, $comment;


ついでにファイルから読み込みつつ変換するスクリプトも用意してみたよ．

my ($char, $tail) = (q{[:./\w]}, '');
open IN, "./in.html" or die;
open OUT, ">./out.html" or die;
while (my $comment = <IN>) {
    my @tmp = split /(<[^>]*?>)/, $tail . $comment;
    $tail = ($tmp[-1] =~ /^<.*>$/ ? '' : pop @tmp);
    $comment = join '', map { /^</ or s/($char{5})$char+/$1(省略)/go; $_ } @tmp;
    print OUT $comment;
}
close IN;
close OUT;

↓こんなふうにタグが複数行にわたって記述されていた場合を考慮してます．
<a
　href="http://hoge.hoge.hoge/"
　accesskey="h"
　title="ほげ〜">

>>297-300
みなさん、ありがとうございます。
300氏の方法で上手くいきました。
教えられた関数等について調べてみます。
ホントにありがとうございました！

>>297
むしろ
「枕ないけど」にもらい泣き
（ ´Д⊂ヽ ｳｴｰﾝ

http://sasurai.gaiax.com/home/tonakari

>>302
バカヤロウ！あのセリフの後には
「枕ないけど（彼女の膝枕で）」と続くんだぞ！？

…くやし泣き（ ´Д⊂ヽ ｳｴｰﾝ

・・・彼女もいませんが。
（ ´Д⊂ヽ ｳｴｰﾝ

age

age

print $a || $b == 0 ? "●" : "◯";
ってどういう意味なんですか、おしえてください。

>>308
三項演算子とorだ。

or dieの応用編かつPerl4仕様だ。

if ($a) {
  print $a;
} elsif ($b == 0) {
  print "●";
} else {
  print "◯";
}

>308
単に三項演算子の結果を印字してるだけのこと。

>309
なんでここで die が出てくるんだ？ あたまの弱い人か？

>310
認識違いもはなはだしい。はなしにならない。価値のない人間か？

>>311
お前から見て、価値のない人が世の中には多いけど、
それはお前自身の価値が高すぎるからじゃなくて、
お前の価値が、社会の常識とかけ離れているからなんだよ。

if ($a || $b == 0) {
print '●'
}else{
print '○'
}

print ($a || $b == 0) ? "●" : "◯";
こう書くと誤解がないかも

309は「or dieの応用編だ」といっているわけで

>>311
たとえ話って言葉を知らない融通の利かない方ですか？

>>311じゃないが、

print open IO, $a || $b ? "ok" : "not ok";

これを "or dieの応用編かつperl4仕様だ。"といわれりゃ、そりゃ"ﾊｧ?"だろ。

open(IO, $a) || print("not ok");

これならそう言えないこともないが。

>315
たしかにそうだよね。
or die ってのを応用したものが ($a || $b == 0) ってのは矛盾してるよね。
ってことは、３０９は 「(print $a) || ($b == 0 ? "●" : "◯");」だと
勘違いしていたのでは？

つまり３１１の言うあたまの弱い人ってのは図星かも．．．

で、どこらへんが正規表現なんでしょうか？

まあ、釣れた、とだけ言っておきましょうか　藁

あたまの悪い人を除去するせいきひょうげんをおしえて下さい。

die if /(BASIC|COBOL)/cgi;

顔文字を正規表現で表すには!?

>>321
ヒアドキュメント

漢字、ひらがな、英数文字で、書かれているテキストファイルから、
ひらがなだけを、抽出したいのだが
頭が悪いのでよく分からん、教えてくれ。

テキストファイルの入出力は置いておいて。こんな感じの事が行いたいのだ。

$str = "頭が悪い";
$str = ~/[あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん]/;
print $str,"\n";

頭が悪いのでこのように書いたのだが、実行すると

「頭が悪い」
になってしまうのだ、

本当は

「がい」

を求めたいのだができん。
わしより頭の良い、２チャンネラー達宜しく頼む。

>>323 ＝ 某研究者

>>323
# SHIFT_JIS用
my $str = "書き込みえらー出そうだね。";
print $str =~ /\x82[\x9F-\xF1]/g;

>>325
すまんが、EUCの時はどうするかついでに教えてくれくれぬか。
頼む。

>>326
Perlメモを熟読しる。
ttp://www.din.or.jp/~ohzaki/perl.htm#Character

>>327
ジョークのセンスも真似たかったが、
頭が悪いので、今宵そこまで気が回らぬ

ありがたく承ったぞ。

my $str = "書き込みえらー出そうだね。";
print $str =~ /\xA4[\xA1-\xF3]/g;

perlで半角英数字を"a"という文字に変更する書き方を教えてください。

>>329
$val = $text
$val =~ s/[A-Za-z0-9]/a/g;

ありがとうございます。

あっ間違えた。半角英数字以外の文字を1文字ずつaにする方法が知りたかったのだ。
$val=~s/[^A-Za-z0-9]/a/g;でいいのでしょうか。

OKです。
また、エスケープシーケンス使ってこんなのでもOK。
$val=~s/\W/a/g;

1文字ずつ変更するものなのかわからなかったもので。ありがとうございます。

>>333
\Wだと'_'が変換されない罠

>>335
すまった！（ﾜﾗ

>>332
これってタブとか文字コードやスペースも変換してくれるのでしょうか。

(´-`).｡ｏＯ（文字コードの変換ってなんだろう…）

絵文字のように文字にならないコードのことと思われ

>>337
&hearts;のような実体参照はaにはならず&aaaaaa;になる。

>>337
&hearts;のような実体参照はaにはならずaheartsaになる。

340は間違えた。

>>340
実体参照でなく絵文字のようなコードは。
CGIぽん
ttp://specters.net/cgipon/labo/it_emoji.html

部分文字列としてabとbaを同じ数だけ含むような文字列にマッチする正規表現を教えてください。

「abとbaを同じ数だけ含むような文字列」とやらを教えてください。

abaとかabaaaabaaです。

>>346
my $str = 'abaaaabaa';
my (@ab, @ba);
print 'Matched' if (@ab = $str =~ /ab/g) == (@ba = $str =~ /ba/g);

"aba" みたいにマッチ箇所がオーバーラップしていても良いのなら上のやつで．
正規表現一発でいけるのなら漏れも知りたい．

マッチ箇所のオーバーラップが許されていなくて
"ababab" でも "ab a ba b" と分けられるからマッチだ！　とかいう難問かとｵﾓﾀﾖ…

>>347
> マッチ箇所のオーバーラップが許されていなくて
> "ababab" でも "ab a ba b" と分けられるからマッチだ！　とかいう難問かとｵﾓﾀﾖ…

これって出来るの?

オレにはパターンマッチ・置換を正規表現でできなかったためしがない。
なんでもオレに聞きやがれ。適切な答えをはじき出してオマエに叩きつけて
やるゼ！

きっ、きまったぁ！

ばーｋぁいｌ７いｌ７いｌ７いｌ７いｌ７い
ｌ７いｌ７いｌ７いｌ７いｌ７いｌ７いｌ７ｋｙそｐｒ
＠いｈｗ４５えｓっｙｙｙｙｙｙｙｙｙｂｈんｔｒｓ５じゅｈじゅ
ｈじゅｈじゅｈじゅｈじゅｈじゅｈじゅｈじゅｈじゅｈじゅｈじゅｈ
ゅｈじゅｈじゅｙ２３４ｒｔｈじゅｒｔｈｊｒｓｔｗ４５ｈｊｈｊｔ５
ｈｊｔ５３４６
コテハンは死ね！

すいません、perl で URL の表記を区切って使用したいのですが、
正規表現の理解が浅く、まだ上手くできません。
存在しないサービスや、表記の規則違反はあとで考えるとして、
どのようなパターンで取り出せば良いものでしょうか。

my $rule = '([a-z]+)://([^:/@]*):?([^@:/]*)@?([\d\w._\-]*):?(\d*)([\d\w._/\-]*)\??([\w\d%=+&]*)';
my $url = 'http://user:[email protected]:21/path/?key=value&query';
my ($service, $user, $pass, $host, $port, $path, $query) = $url =~ m/$rule/;

このままですと http://host.net/path/ のような user@pass が
全く省かれた場合に、前に詰まってしまいました。
読み難い上に無駄な指定も多いのですが、何方かご教授願えませんか？

>>351
他にも問題は山積しているんだけど、取り敢えず ? がどこまで有効なのか考えよう。
(〜)@? → (〜@)? とか。

>>352
有難う御座います。() の後に ? を置けるのは初めて知りました。
マッチするのは直前の単なる一文字ではなく、一パターンだったのですか。

# http URL の正規表現
# http://www.din.or.jp/~ohzaki/perl.htm#httpURL
ココを参考にしながら精進する事にします。

御陰様でなんとか出来たような感じです。

(?:([a-z]+)://)? 　　　　　　# Service
(?:([^:/@]*)?:?([^@:/]*)?@)? # ID:PASS
([\d\w._\-]*) 　　　　　　　 # Host
(?::(\d*))? 　　　　　　　　 # Port
(?:([\d\w~._/%\-]*))? 　　　 # Path
(?:\??([\w\d%=+&]*))? 　　　 # Query

よく考えると皆さんが正規表現に凝ってらっしゃるのは
エラー (汚染) チェックも兼ね備えているからなんですかね。
私も早く安心して任せられるようになりたいです。

>>354
頑張ってなー。あと、質問する時はなるべくageてなー。

>>355 ハイです (*´ー`*)

>>354 自己レスですが、\w を [A-Za-z] だと勘違いしてました (汗

特定の文字列以降の文字を消すのはどうやるのですか？
厨質問ですみませんです。

>>358
$_ = 'Look-behindで文章中の特定文字列以降の文字を消すよ．';
s/(?<=特定文字列).*//s;

Perl 5.005 以前のバージョンならこっちで．
s/(特定文字列).*/$1/s;

>>359
どうも、ありがとうございます。
やってみます。

タグの中からパスを取り出そうとしているのですが
$str = "<a href=\"./hoge/hoge.html\"><img src=\"./hoge.jpg\"></a>";
if($str =~ /<a href="(.*?\.jpg)">/i){print $1."\n";}
とすると、何も出力されないはずなのに
./hoge/hoge.html"><img src="./hoge.jpg
と出力されてしまいます。どうすればよいのでしょうか？

>何も出力されないはずなのに
いや、.*?なら出力されると思うよ。(<a href="になってるのは間違い?)
./hoge.jpgが欲しいなら /<img src="([^"]+\.jpg)">/に変えてみれば？

>>362
いや、./hoge.jpgが欲しいんじゃなくて
aタグの""の中身にはマッチしないから何も出力しないようにしたいのですが。
(もちろんhtmlとかにすると出力されるようにはしたい)

>>361
/<a href="([^"'>]*?\.jpg)">/i

[^]の使い方でも勉強すればぁ？(ﾟДﾟ)

HTML::LinkExtorを使うのが正しいかと。

>>364
すいません。>>362の解答を応用してなんとかできした。

すんません、
http://pc.2ch.net/test/read.cgi/php/1011460833/24
これお願いします

m{<a\s+[^>]*href=["]?((?:http://)?[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%#]+)["]?[^>]*>([^<]+)</a>}i

>>367
Perlでド適当に書くとこんな感じ．

my ($href, $title);
while ($str =~ m{<a\s+(?:href\s*=\s*(["'])(.+?)\1|.)+?>(.+?)</a>}gis) {
    ($href, $title) = ($2, $3);
    $href or next;
    print  "href: $href\ntitle: $3\n\n";
}

>>369
細かいけど、*(["'])(.+?)\1 の部分、
(.+?)だと空白入りません？

>>368-370
ありがとうございます。
参考にして
$u="dsffds<a target=\"_self\" href=\"http://www.age.sage/\" name=\"lewraw\">age</a>aaa";
$pt="<a.*href=\"?(http://.[^\"[:space:]>]*).*>(.*)</a>";
if(ereg($pt,$u,$a))print_r($a);
みたいにしてみたらうまくいきました。
Array
(
[0] => <a target="_self" href="http://www.age.sage/" name="lewraw">age</a>
[1] => http://www.age.sage/
[2] => age
)
なんか問題があったら指摘よろしくです。

>>370
うん，空白どころか何でも入るよ．だからド適当なの．許して．

名前にtaroかjiroが含まれてたら云々、、ってので、
(taro|jiro)って書いたら動きませんでした。アホですか？

>>373
それしか情報を出さずに意図が伝わると思ってるならアホだな。

それしか、、と言われればそれしかなんですが、これ以上書いても意味ないかなと。。
一応書いておくと、PHPで、
ereg((taro|jiro),$name)
と書いてあります。アホですか？

>>373
アホだな。
コードはもちろん言語も書いてない。
どういうデータをマッチ対象にしてるのかも書いてない。
373の質問で答えが出ると本気で考えている？
それだけの状態で「taroかjiroにマッチさせるならそれでいいはずです。」
としか答えられないぞ。

ereg( 'taro|jiro', $name)
PHPは良く知らないけどその>>375のコードでエラー無く動くの？

上のコードだとエラーは起きないけどマッチしてくれません。
正規表現苦手でして、、すいません、、

PHP スレで聞けば？

俺、PHP全然解らないから、 ereg 関数の第１パラメーターが
正規表現もオッケーなのか解らないから答えようがない…

$hoge = tr/hoge//d;
こういう場合に、「hoge」に完全にマッチした場合のみ削除するにはどうすればいいのですか？

$hoge=~ s/hoge//g;

「100から150までの数字をチェックするには、"[#100:150]"」
これはProxomitronのヘルプにあったんですが、Perlでこれをやるにはどうすればいいのでしょうか？

あっ　1[0-5][0-9]という事ではなくて、
[38-523]のような・・・

この場合は正規表現を使う必要はなくて、演算子を使います。

100 <= $hoge && $hoge <= 150;

これが真を返すか偽を返すかです。

>>380
ありがとうですた

うーん　なるほど。

****************
/root
/hoge
/root/hoge
/root/some/hoge
****************

で、/rootと/hogeだけ取り出すのって
どーやったらよいんでしょうか？

/*だと、/も含まれちゃうんで。

/がでて、その後に/以外の文字列が続くものを
検出したいんですけど。

[^/]とか使う感じのイメージはあるんですが。

あ、/が二回でてこないのでもいいかもです。

>387
@set= qw(/root /hoge /root/hoge /root/some/hoge);

for ( @set ){
    /^(\/[^\/]+)/ && print $1,"\n";
}

386の別解。388のほうが効率よさげだけど。
@set= qw(/root /hoge /root/hoge /root/some/hoge);
@selected = grep { /^\/[^\/]+$/ } @set;

>389
末尾一致させないので $ が要らない罠

>389
マッチ部分の取り出しができていない罠

>389
書くんなら
@selected = map { /^(\/[^\/]+)/ ? $1 : () } @set;

あーっ、ひょっとしてわたしが勘違い？
よく読んだらリストの上２つを取り出すってことか。

てっきり勘違いして /root および /hoge ディレクトリを含むパス
のリストを抜き出すのかと思ってた。

>393

>389の方の答えが望んでた答えっす。

ありがとうございますた。

>>389
ねね？ qw って何？

>>390-393 ウザイ。氏ね

>>395
ここで聞く前に調べろクズ！

>>389
@selected = grep m{^/[^/]+$}, @set;

せめてこれくらいの可読性は確保しよう。
grepにブロックを使うのは、どうしても必要な時だけにした方が
いいかもしれない。

>>396 ﾈﾀﾆﾏｼﾞﾚｽ（･∀･）ｶｺｲｲ!!

title>url って文字列があったとき、
title と url を切り分ける処理をするとします。
ただし、> と < と & と " あたりは &..; に置き換えられてるから
実際は title>；url を処理することに。

で、問題はバックスラッシュによるエスケープを導入するとき
どうしたらいいのかなんですが...

title\>；hoge>；url -> ( title\>；, url )

^(?:((?:\\.|.)+?)>；)?(.*)$

で出来なくてお手上げです。
どうしたらいいんでしょう…

>399
質問もまともに書けないのか？

>>399
意味不明

>>399
病気か？

>>399
あらてのアラシか？

>399-403
ジサクジエンデシタ

ahaann

教えて下さい
　ログイン名をsageで登録しようとすると、すでに登録されていて
あと、sage1、sage34が登録可能です。みたいに、するにはどうすれば
宜しいのでしょうか？
お願い致します。

>>406
データベースをつかうかファイルにデータ保存してもっておくかすればいいじゃん。

>>406
あるかどうか調べて、あったらランダムに数字を付け足した文字を出せばいいんじゃない？

/((19(0[48]|[2468][048]|[13579][26])|20([02468][048]|[13579][26]))\/02\/29|(19|20)\d{2}\/((04|06|11)\/(0[1-9]|[12]\d|3[0])|(0[13578]|10|12)\/(0[1-9]|[12]\d|3[01])|(02\/(0[1-9]|1\d|2[0-8]))))/
YYYY/MM/DD 形式で、1900年から2099年まで処理可能な日付チェック。

わざわざ、正規表現で行う必要あるのかと…（略

たとえば、
１．$rei = abc?def?ghi? というのと、
２．$rei = abc?def?ghi というのがあるとして、

?が最後につくかつかないかを判別する方法って
なにかありますか？
それで、２の場合、
$rei = abc?def?ghi　を
$rei = abc?def?　と、最後のghiをカットする
のも知りたいです。

やってみたのは、
１．$rei =~ s/(\?)(ghi)(\?)(jklm)$/$1$2$3/g;
２．$rei =~ s/(\?)(ghi)(\?)(jklm)(\?)$/$1$2$3$4$5/g;
でした。
(ghi) や (jklm) のところを正規表現したいんですが、
何をあててやればいいんですか？
\w{0,} とかやってみたんですが、うまくいかなくて。

　if( /\?$/ )

　s/^(.*)\?(.+)$/$1\?/;

>>410
それはプログラム技術板で半年くらい前に見たやつだ。半ばネタとして作られたものだが、
要件は満たしている。

・・・・・・・・・・・遅いけど。

> 412
やってみます

m!\d{4}/\d{2}/\d{2}!;
($year, $month, $day) = ($1, $2, $3);
next unless (($year >= 1900) and ($year <= 2099) and ($month > 0) and ($month <= 12) and ($day > 0) and ($day <= 31))

ま、>>409 はネタだと思うが。

HTTP::Request関数を使うとき、メソッドがPOSTの場合、

my $req = new HTTP::Request POST => $URL;
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');

って書いたけど、GETの場合は、

my $req = HTTP::Request->;new(GET => $URL;

だけでよい？

<BODY background="aaa.jpg" bgcolor="#000000">
ってあった場合""の中身だけ取り出すのはどうしたらいいでしょうか？
(つまりこの場合、aaa.jpgと#000000)

>>417
/"\w"/g;

>>417
/"([^"]+)"/g;

どもです。/"\w+"/g　で出来ました

>>420
\wには.と#が含まれんが本当にできたのか？

>>421
昨日書き込みしたあとから思ってた。
（あーこれ#とかはいらねーからだめだわ。でも書き直すのめんどくさいしいいか。）

/(^-^)/

s/>>423//;

s/424の人生//g;

s/425の将来/鬱/g;

$2ch =~ s/2ch/3ch/g;

s/>>428/俺/g;

$here =~s/^.*$/削除依頼/s;

すんません。正規表現わかんないですー。
半角英数文字のパスワードのチェックをかけたくて，言語PHPなんですが。。。

echo ereg('([a-zA-Z0-9_])',"123=$");

結果は1と返ってきます。FALSEと評価してほしいのですが？
どなたかご指導くださいな。

http://www1.ocn.ne.jp/~kado77/mimi/

お役立ちリンク集
必ず役立ちます

コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/

なんか最近、アクセス数を荒稼ぎするためにスレ違いのURLアドレスを
リンクさせてるﾔｼが目につくから、そのサーバ自体をDOSるのもこれ
たのし！

しつもんさせてちょ。
perl使ってます。
if ($line !~ /\w{3,12}/) {&error;}
ってやってます。僕的には英数3〜12文字じゃなかったらエラーって意味のつもり
なのですがうまく行きません。下限は有効なんですが、上限12文字超えても
エラーが出ないんです。どこかおかしなところありますか？宜しくお願いします。

if ($line !~ /^\w{3,12}$/) {&error;}
先頭から行末までがないだろうが。

！！なんと！！
僕は1年以上もマッチングというものの使い方を間違えていました！
なぜ今までうまく行っていたんだろう。
取り合えず、どうもありがとうございました。大変助かりました。

>>433
文字列の中に埋もれてる連続英数字数を判定したいなら最短マッチで。
if ($line !~ /\w{3,12}?/) {&error;}

>>436
ｱﾌｫでつか？ レベルが低過ぎるね！

感じわる〜

>>437　こらこら。人のステハン拾うな。
>>436　ありがとうございます。ていうか?って半年くらい使ってないから何なのか忘れちったよ。
とステハンの名誉を守ったり。何やってんだ俺。

以上、自作自演でしたー。

<BR>と<A>以外のタグを取り除くにはどうすればよいのでしょうか？
素人的発想で

$data2 =~ s|<BR>|kaigyo|ig;
$data2 =~ s|<A(.*?)>|ri$1nk|ig;
$data2 =~ s|</A>|rinktoji|ig;
$data2 =~ s|http:(.*?)<BR>|jido$1rin|ig;

$data2 =~ s|<(.*?)>||g;

$data2 =~ s|kaigyo|<BR>|ig;
$data2 =~ s|ri(.*?)nk|<A$1>|ig;
$data2 =~ s|rinktoji|</A>|ig;
$data2 =~ s|jido(.*?)rin|<A HREF="http:$1">http:$1</A><BR>|ig;

とかやってみたけど駄目でした…

>>441 Perlメモ見れ

>>441
こんなのしか書けない。しかも合ってるか分からない。

$data2 =~ s/<(A|\/A|BR)/<>$1/ig;
$data2 =~ s/<[^>]+>//g;
$data2 =~ s/<>(A|\/A|BR)/<$1/ig;

一発でやるの教えてください。

ttp://www.din.or.jp/~ohzaki/perl.htm#Tag_Remove

この程度のこともできんのか？
s/<(?:(?!BR|\/?A[^>]*).)*>//g;

>>445
>>444に書いてあったモジュールで遊ぼうかと思ったところに…

おおお！と思ったんですがエラーが出ます。なんで？

できました！

でも全然意味が分からない。

>>445
んならこーじゃねーの？
s/<(?:(?!BR|\/?A[\s>][^>]*).)*>//ig;

Perlの正規表現で悩んでいます。
[[と]]の間に囲まれていないabcを置き換えしたいのです。
[[zzzabczzz]]や[[zzzabc]]や[[abczzz]]や[[abc]]にマッチさせず、
[zzzabczzz]やzzzabczzzなどのabcの部分を置き換えたいのです。
助けてください。

[^\[\[.*abc*\]\]]

http://freehome.kakiko.com/tuk/iiyo.html

>>449
WikiWiki ですか？いいもの出来たら公開してね〜

$dataの中に、id=とurl=とname=が含まれていて、なおかつ=が3個含まれていたら
真の値を返すようにしたいのですがどうやるのでしょうか？

(($data =~ /id= && url= && name=/) && ($data =~ /={3}/)) || exit;

すいません間違えました。

id=とurl=とname=が含まれていて、なおかつ&が2個含まれていたらの場合です。

($data =~ /(?=.*id=)(?=.*url=)(?=.*name=)/ && $data =~ /^(?:[^&]*&[^&]*){2}$/)

($data=~ /(?=.*id=)(?=.*url=)(?=.*name=)/ && $data=~ tr/&//== 2);

フツーに
$_ = $data;
(/id=/ and /=url/ and /name=/ and (tr/&// == 2))
でいい気が。

s/=url/url=/

リンクを張りたいのですが。http://aaa.bbb.ccc/ddd/ee.ff

但し、URLの中に「AaA」又は「BaB」という文字列があるならば、
リンクさせない方法はどうすればいいのでしょうか。
http://aaa.bbb.ccc/ddd/ee.ffAaA
http://aBaBaa.bbb.ccc/ddd/ee.ff

$mes=~s/http:\/\/([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"http:\/\/\:$2\" target=\"_blank\">http:\/\/\:$2<\/a>/ig;

/AaA|BaB/;

>>459
大文字にマッチさせたくないんだったら、
\wをa-z0-9、iを削除でいいんじゃないの？
どうでもいいけど、エスケープしすぎ。

区切りに / でなく | でもつかえばエスケープする回数も減るだろ。

傾斜つまようじ症候群というやつですな。

掲示板で特定のタグ「以外の」タグが書き込まれたら真を返す, というのがやりたいのですが.
とりあえず "<" で始まり, こちらが指定(a, em, dl, etc...)したもの以外の文字列(font, blink, hogehoge, etc...)があったら, というカンジで.

unless ( $_ =~ /<(a|img|font).*>/ )

>>465
正規表現わからんなら書くな。

if(/<(?!\/|a\s|img|font)[^>]*>/g);

if(/<(?!\/|a\s|img|font)[^>]*>/i);

>>468
正規表現わからんなら書くな。

>>466
>>469
そう言うおまいも正規表現わからんくせに書くな。

>>470
>>466>>469が正規表現わかってないという根拠は？
少なくとも>>468のようなとんちんかんな正規表現を見ての意見だと思うが…。

あぼーん

34 ：（*ﾟДﾟ）さん ：02/07/20 14:53 ID:???
http://eclat.gaiax.com/home/rx72watanabe
ﾏﾀｰﾘ観察中。。。。。 盛り上って来たら一気に攻撃をしかけろ！！！！


35 ：：02/07/20 18:45 ID:???
http://isweb44.infoseek.co.jp/family/kmk25y/km-aa.swf
http://isweb44.infoseek.co.jp/family/kmk25y/km-aa2.swf
http://isweb44.infoseek.co.jp/family/kmk25y/km-aa3.swf
http://isweb44.infoseek.co.jp/family/kmk25y/km-aa4.swf
http://isweb44.infoseek.co.jp/family/kmk25y/klist1.swf
http://isweb44.infoseek.co.jp/family/kmk25y/klist2.swf

つーか正規表現って最初に訳した香具師ﾄﾞｷｭｿだな
もっと適切な日本語使ってくれよ

って別に検索に用いるためだけのじゃないし。
言語処理関係の勉強すれば正規表現ってのは
自然な訳だと思えるようになるよ。

regular expression
正規 表現

これを自然な訳と思えるあなたとは日本語で話したくありません

>>476
じゃあ、英語かなんかで話したいのか？

$c =~ m|[^A-Za-z0-9;/&?:@=+$,\-_.!~*'()%]|

で、2つの | はどういう役割をしているのでしょうか？

>>478
$c =~ /[^A-Za-z0-9;/&?:@=+$,\-_.!~*'()%]/
でもいいし
$c =~ m｛[^A-Za-z0-9;/&?:@=+$,\-_.!~*'()%]｝
でも何でもいいよ。

　/ 以外も区切りに使えることを知らないのか？結局正規表現だよ。

$c =~ /[^A-Za-z0-9;/&?:@=+$,\-_.!~*'()%]/
はだめでした。
$c =~ /[^A-Za-z0-9;\/&?:@=+$,\-_.!~*'()%]/
です。
デリミタは普通　/　を使います。この場合先頭の　m　は省略できますが、
中身のパターンに　/　が含まれる場合は　\/　というようにエスケープしないといけません。
それを避けるためにデリミタを　/　以外のもの　｜　に変えているのです。

>>479-481
空白文字を除く任意の非英数字が
区切り文字に使えるとは知りませんでした。
どうもありがとうございました。

オレも勉強になった。

$data = '１<br>２３<Br>３<br>４５<br><br>６６６<br>
５４<br>３５４<br>５４<Br>４３<br>';

の時、例えば
６個目の<br>から先を削除する方法ってわかります？
理想結果はこんな感じです。

$result = '１<br>２３<Br>３<br>４５<br><br>６６６<br>';

>>484
最後の<br>が入んないけど、まぁこんなのどうでしょう。
my $data = ...;
my $foo = join( "<br>", (split( /<br>/i, $data))[0..5] );

できました！ありがとうございました。

>>476
言語処理の勉強するか首つって死んじまえ。

さっくりとage

>>488
sageてんじゃねえか！

$_= 'この板、人いっぱいだね';

s/っぱいだ/ない/;

CGIに適したPerl以外の言語は何？Ruby?

誤爆った

perl の「正規表現」って実は正規表現ではない罠。

perlで文字列中の一番後ろの()内を切り出したいのですが、
どうもうまくいきません。

(A)B
B(A)
(C)B(A)
(A)B(C)
B(C)(A)
A

いずれもAを切り出したくて、

if ($foo =~ /(\(([^\(]+)\))+$/) {
$foo = $2;
};

とかやってみたのだけど、なんか変です。
簡単に記述できそうな気がするのだけど……。

＞一番後ろの()内を切り出したい
とあるのに
＞(A)B(C)
においてもAを切り出したいって意味わからん。

while(<DATA>){
chomp;
my $rev = reverse $_;
$rev =~ m/^.*?\)(.*?)\(/ and print "[$_]--$1", "\n";
}
__DATA__
(A)B
B(A)
(C)B(A)
(A)B(C)
B(C)(A)
A

>>496
まわりくどっ！

>>495
あああ、それ無し無し。恥ずかしい間違いでした。

>>496
ありがとうございます。
なるほど、いっぺんreverseするんですね。
どこかで使えそうな手なので、覚えておきます。

>>498
ほんとにそれで納得できた？ リバースは(A)のように括弧内の文字が１文字固定
ならいいんだろうけど…。

s#\(A\)(\r\n|\r|\n)?$#$1#;

>>500
質問？

切り出すってそう言う意味かあ
はは

>>499
最後にもう一回reverseしてやれば良いように思いますが、
甘いですか？

>>503
まぁ、満足ならそれでいいけど。効率よりもとにかく処理ができればいいなら。

>>504
reverseしないでマッチさせられないか、無い頭しぼって考えました。
/^.*\((.*?)\)/
駄目ですか？

>>505
文字列の最後が必ず ) で終わる？

>>506
いま扱ってるデータだと終わります。
が、この先、そういうのが出てこないとも限らない……
出直してきます。

おはようございます。

my @values = qw[(A)B B(A) (C)B(A) B(C)(A) A B(C(A)DEF BC(D(A)))E) BC(A)(D B)C(D(AAA)(E(FG BC(A)()];

for my $value (@values) {
my @hits = $value =~ /\(([^\(\)]*)\)/g;
print "$value = ",$hits[$#hits],"\n";
}

(A)B = A
B(A) = A
(C)B(A) = A
B(C)(A) = A
A =
B(C(A)DEF = A
BC(D(A)))E) = A
BC(A)(D = A
B)C(D(AAA)(E(FG = AAA
BC(A)() =

…こういう感じであってますか？

>>508
とりあえず()を全部マッチさせてリストにいれておくわけですね。
なるほど。思ったより簡単にできるものですね。
効率とか速度とかいわれると、よく分からないけれど……。

不必要な配列をつくるし、
必要以上にパターン試すから、
メモリも多く使うし、速度もわるいよ、、、。

すみません、いまいちタコなのですが、
メールのsubjectなんかで、たとえばこんなのがあったとします。
[ABCDE:0110]ああ〜〜
他のパターンとして、
[ABCDE:]いい〜〜
というのもあるとします。まれに、
Re:[ABCDE:0110]うう〜〜
なんてのもあるとします。
これの数字部分“0110”を取得したいのですがうまくいきません。
$subject=~s/.*\[.*:(\d*)\].*/$1/;
なんてやったら$subject == "" になってしまいます。
いまは仕方なく、
($dummy,$subject)=split(/\[/,$subject);
($subject,$dummy)=split(/\]/,$subject);
($dummy,$subject)=split(/\:/,$subject);
なんてひどいコードですが・・・
どうも、.*ってのを使った瞬間全部がそれにマッチしてしまう気がします。
やはり正規表現でエレガントに行ってみたいのですが、どんな感じになるのでしょう？

($num)= $subject=~ /:(\d*)]/;

>>512
ありがとうございます。
なるほど。余計なところまで書きすぎだったわけですね。ありがとうございました！(^^)/

Googleの検索結果ページの
●●件中 ●●- ●●件目 検索にかかった時間●●秒
の行から特定の単語を切り出す正規表現を作っています。
例えば、
re = /日本語のページから(.*)を検索しました。/
re2 = /(\d+)件中(\d+) - (\d+)件目/
re3 = /検索にかかった時間(\d\.\d\d)秒/
のように３つの正規表現に分けて生成するとマッチします。
しかし、
re = /日本語のページから(.*)を検索しました。\s\s約?(\d+)件中(\d+) - (\d+)件目・・?検索にかかった時間(\d\.\d\d)秒/
のようにまとめるといくら頑張ってもマッチしません。

使用言語はrubyですが、
日本語の正規表現ってあまり長くならない方がいいのでしょうか？

Googleの検索結果ページの
●●件中 ●●- ●●件目 検索にかかった時間●●秒
の行から特定の単語を切り出す正規表現を作っています。
例えば、
re = /日本語のページから(.*)を検索しました。/
re2 = /(\d+)件中(\d+) - (\d+)件目/
re3 = /検索にかかった時間(\d\.\d\d)秒/
のように３つの正規表現に分けて生成するとマッチします。
しかし、
re = /日本語のページから(.*)を検索しました。\s\s約?(\d+)件中(\d+) - (\d+)件目・・?検索にかかった時間(\d\.\d\d)秒/
のようにまとめるといくら頑張ってもマッチしません。

使用言語はrubyですが、
日本語の正規表現ってあまり長くならない方がいいのでしょうか？

半角スペース２個を全角スペース１個で置換することって
出来ますか？
できるかどうかが知りたいです。

>>516
できる。

>>515
タグが入っていることを考慮しているかい？

>>518 タグはw3m -dump で取り除いています。
--------------------------------
!/usr/bin/env ruby
keyword_file = ARGV.shift
suffix_file　= ARGV.shift
# 正規表現生成
re = /日本語のページから(.*)を検索しました。/
re2 = /(\d+)件中(\d+) - (\d+)件目/
re3 = /検索にかかった時間(\d\.\d\d)秒/
File.foreach(keyword_file) do |kw|
File.foreach(suffix_file) do |sf|
w3m = IO.popen("w3m -dump 'http://www.google.com/search?ie=euc-jp&oe=euc-jp&hl=ja&meta=lr=lang_ja&num=10&q=#{kw}+#{sf}'","r")
　　pat=/件中/
　　w3m.each_line do |line|
　　　if pat =~ line
　　　　re.match(line)　　　　　　　
　　　　key = $1
　　　　re2.match(line)
　　　　cnt,from,to = $1,$2,$3
　　　　re3.match(line)
　　　　second = $1
　　　　printf("%16s %10s　 => %5d件　%10s 秒 \n",kw.chop,sf.chop,cnt,second)
　　　end
　　end
　　w3m.close
　end
end
------------------------
だとOKですが、
正規表現を一つにするとだめっぽいのです。

>>519で
w3mでパイプしている奴を
Net::HTTPで高速化させたいですが、正規表現で
引っかかります。

なお、ほしい部分の周辺は
以下のようなHTMLです。
----------------
<table width=100% border=0 cellpa dding=1 cellspacing=0 bgcolor=#3366cc><tr><td bgcolor=#3366cc nowrap><font size=-1 color=#ffffff>
<b>日本語</b>のページから<b>hoge</b>を検索しました。 </font></td>
<td bgcolor=#3366cc align=right nowrap>
<font size=-1 color=#ffffff>約<b>37,500</b>件中<b>1</b> - <b>10</b>件目 ・検索にかかった時間<b>0.54</b>秒</font></td></tr></table>
-------------------------------------
#!/usr/bin/env ruby
require 'net/http'
host = 'www.google.co.jp'
path = '/search?num=10&lr=lang_ja&q=hoge'
http = Net::HTTP.new(host)
page=http.get(path)[1].delete("\n")
print page.scan(%r|ffffff><b>日本語.*秒</font>|i)[0].gsub(%r|<.*?>|,'')
-------------------------------------
rubyのscanの使い方が違うのかな？

もう少し、勉強してきます。

>>520 さんは、スレッド 【Ruby】RubyでCGI   http://pc.2ch.net/test/read.cgi/php/988948655
とのマルチポストです。
速やかに回線を切って首を吊って下さい。

チョッチュネー、下がり過ぎッチュネー！

なにも言うな！ あげとく。

すみません、「<」と「>」の間に挟まれる文字(半角英数字、記号含む)を抜き出す
というのはどうすればいいんでしょう？

>>524
ｶﾞｲｼｭﾂ

@hoge = ($str =~ /<(.*?)>/g);

0001海
0003水着
0005スイカ
0002花火
・
・
・

というデータが入った配列があって
これをGrepで
0003以上(0003水着 0005スイカ)のデータを
抽出したいのですが
どのように記述してよいのかわかりません。
>= とか <=　とかは正規表現では使えないですよね？

全件ループしてIF文で抽出してもよいのですが
Grepの方が速い？と思い質問させていただきました。お助け下さい。

@result= grep($_ gt '0003', <DATA>);

間違った
@result= grep($_ ge '0003', <DATA>);

>>528さん
おぅ！！！！！完璧です！！！感謝！！！！
わかると簡単だけど、最高に感謝です！！

あなたに幸がある事を祈ります！！！
本当にありがとうございました。<(..)>

$b =(?=.*犬)(?=.*柴):

ループ開始
　if ($a ~ /$b/){処理}
ループ終了

ある配列をループさせて $a　にその値を入れて
数千回ループさせて検索しているのですが
ものすごく遅いです。

やりたい事は $aの文字列に　ある文字(複数)があるかを高速に
検索したいです

もっと高速に検索する方法はないでしょうか。
ちなみに $b の部分は検索条件が何個でも対応できるようにしたいです。
どなたかお願いします、、、

>>531
index連呼。

>>532さん
index連呼ですか?
すいません。どのような意味なのでしょうか。。。

条件の数だけループして普通通り検索すると言うことでしょうか。

すいません。
文字列検索の　index(STR,SUBSTR)　ですね。
やはり単純にそれがよいのでしょうか。

index連呼で検索するのと
=~ // 連呼で検索するのは理論上はどちらが早いのでしょうか。

>>534
まず試せば？

$a = 'sadfasfj犬okewrworwa';#含まれない
$aa = 'sadf柴asfj犬okewrworwa';#含まれる

use Benchmark;
timethese(300000,{
1=>q{if ($a =~ /(?=.*犬)(?=.*柴)/){$c = 0;}},
2=>q{if ($aa =~ /(?=.*犬)(?=.*柴)/){$c = 0;}},
3=>q{if(index($a,'犬') >= 0 && index($a,'柴') >= 0){$c = 0;}},
4=>q{if(index($aa,'犬') >= 0 && index($aa,'柴') >= 0){$c = 0;}}
});

#Benchmark: timing 300000 iterations of 1, 2, 3, 4...
#1: 13 wallclock secs (12.53 usr + 0.00 sys = 12.53 CPU) @ 23944.45/s (n=300000)
#2: 2 wallclock secs ( 2.60 usr + 0.00 sys = 2.60 CPU) @ 115251.63/s (n=300000)
#3: 1 wallclock secs ( 0.51 usr + 0.00 sys = 0.51 CPU) @ 588235.29/s (n=300000)
#4: 0 wallclock secs ( 0.97 usr + 0.00 sys = 0.97 CPU) @ 308959.84/s (n=300000)

http://www2.freenet.jp/muneo/index.htm
超悪徳会社　Ｊ−ＣＯＭ（ジェイコム）の定期点検を大儀名文とした
勧誘営業に困っていませんか？
点検と言いつつ何もせず、結局はインターネット等の契約をして欲しい
の話へもっていく腐れ外道集団。
断ると「テレビの映りが悪くなっても知らんぞ」と脅迫メッセージをぶつけてくる。
苦情は総務省へ直接電話をすること。
マスコミはケーブルＴＶとは仲がいいので、テレビで取り上げることはまず無い。
2ちゃんねるパワーでジェイコムを追い詰めよう！！

の記述の中で『090』を禁止語句にするにはどうしたらいいのでしょう？？

elsif ($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メールアドレスが間違っています。");}

とりあえず理解可能な日本語で書くように。

　＿γ⌒⌒ヽ
　＼＼ノハ)ヽ)∩
　　(○) ´∀｀ﾉ丿 　／￣￣￣￣
　　⊂二 ｙ / 　　＜　ﾏﾙﾁですー。
　　　 /　＿二⊃ 　＼＿＿＿＿
　⊂二ノ

>>537
まるちぃ〜ん

From: =?ISO-2022-JP?B?xxxxxxxxxxxxx=?= <[email protected]>
From: [email protected]
上記のどちらの時でもメールアドレスだけを抜き出す方法を教えてください。
また、メールのヘッダー内の「From:」や「To:」は
これ以外の形で送られるときはありますでしょうか？
例えば
From: <[email protected]> =?ISO-2022-JP?B?xxxxxxxxxxxxx=?=
の様になっていることなど...
どのような形でも確実に（無理で有ればほぼ確実に）抜き出す方法を教えてください。
よろしくお願いします。
色々と試していたのですが
/^From: .*?([\w\+\-\.]+@[\w\+\-]+\.[\w\+\.\-]+).*$/
これで思い通りに抜けるのですが問題有りますでしょうか？

大崎さんのperlメモを拝見させていただいたのですが、
下記のようでよいのでしょうか？
$mail_regex =
q{(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\} .
q{\[\]\000-\037\x80-\xff])|"[^\\\\\x80-\xff\n\015"]*(?:\\\\[^\x80-\xff][} .
q{^\\\\\x80-\xff\n\015"]*)*")(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x} .
q{80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff])|"[^\\\\\x80-} .
q{\xff\n\015"]*(?:\\\\[^\x80-\xff][^\\\\\x80-\xff\n\015"]*)*"))*@(?:[^(} .
q{\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\0} .
q{00-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[^\x80-\xff])*} .
q{\])(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,} .
q{;:".\\\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[} .
q{^\x80-\xff])*\]))*};
$hoge = 'From: =?ISO-2022-JP?B?xxxxxxxxxxxxx=?= <[email protected]>';
$hoge =~ s/^From: .*?($mail_regex).*$/$mail=$1/e;

>>541
多少削れる部分があると思いますが、特に問題は無い様に思います。

>>542
質問内容が解りませんが。
正規表現道場ですから、マッタりと待てば誰かが解析してくれるかも知れません。

>>541
（　´,_ゝ`） ﾌﾟｯ　　　　　　

>>544 は何しにこのスレに来てるのデスカ

あのぅ
すいませんが…
正規表現で困っています
『file "〜』か『FILE "〜』っていう
キーワードで検索したいんですけど
おながいしますた

>>546
/『file "〜』|『FILE "〜』/;

早速のレスですいやせんが
訂正と補足します。
grepで
from や FROM の次に半角の空白と"以外の
列を探したいのです
/[^from "]|[^FROM "]/;
では無理っぽいですた

>>548
/form[^ "]/i

549さん
早速のレスはありがたや
なのですが…

from が form になってます…

出来ませんでした。
補足します秀丸でのgrepです

/from [^"]|FROM [^"]/;
でもだめれす…
お助けを

秀丸なんて使ったことないよ。作ったﾔｼに聞けよ。秀 丸男だっけ？

っつーか、VIM使えよ

VIM？

教えてくださいヴぃあいえむを

ほんとに困ったﾔｼだね
fileとかformとかfromとか…とりあえず言ってる意味がよくわからないので
どういうパターンなのか他人に分かるように説明してもらわないと
あと、秀丸のヘルプくらい読んでね

はいどうも困ったﾔｼです
fromとﾊﾝｶｸの空白とﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝ以外の文字のキーワード
冷)from う
冷)FROM あ
なんかにひっかかってほしいんでしゅ
どうですかぁ？お客さん

あのぅ
すいませんが…
正規表現で困っています
『困ったﾔｼ』を削除したいんですけど
s/『困ったﾔｼ』*?$//g;
では無理っぽいですた

>>556
[from|FROM] [^"]

>>557
s/『困ったﾔｼ』//g;
*?$って書くと、行末の『困ったﾔｼ』にしか対応線。

>>558
(from|FROM)[^"] ﾃﾞｼｮ

>>560
（　´,_ゝ`） ﾌﾟｯ　　　

ｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!!
(from |FROM )[^"]
で逝きますた

>>561
（　´,_ゝ`） ﾌﾟｯ

その
（　´,_ゝ`） ﾌﾟｯ
てやつやめてくれませんか。お願いします。
間違いがあるなら指摘しテク浅い。

（　´,_ゝ`） ﾌﾟｯ 　だってさぁ、半角スペースがどこにも入ってないから

（　´,_ゝ`） ﾌｰﾝ

やめなよう
揉めごとはぁ。
(´Д｀)ﾊｧﾊｧ

(´Д｀)ﾊｧﾊｧ

まぁ、質問者当人が喜んでいるので万事解決って事で。

性器表現

男性器→　おちんちん
女性器→　おまんこ

で？

URLで使用できる文字を教え頂きたいのですが、
英数字と;/?:@&=+$,-_.!~*'()] だと思うのですが、検索しても
見つかりませんでしたので・・・

%

>>572

perldoc -q url

http://europa.ath.cx/content/computers/docs/o'reilly/book/

>>572
http://openlab.ring.gr.jp/k16/htmllint/explain.html#excluded-url

jperlも[^２バイト文字]の場合、1バイト単位で処理するんですね。
sjisでは、全角記号は、ほとんど（全部？）\x81から始まっているので、
/[^※]+/とすると全角記号が入っている場合は合致しないんです。
この理解で合っていますか。

てすと

>>572
ftp://ftp.iij.ad.jp/pub/rfc/rfc2396.txt
http://www.japu.org/tmp/http.c

２ちゃんねるのＩＤはこれでいいですか？
^[A-Za-z0-9/]{8}$

PHPなんですけど

「＞」で始まってて「;」で終わっていたら、

「＞」から「;」の前までの文字の色を青くして
「;」は消去したいんですが、

$hoge =~ s/(^＞[.]);/<font color=blue>$1</font>/ig;

ではダメみたいです。

全角文字がいけないのか、半角のセミコロンはつかえないのか、
そもそもなにか間違ってるのかわかりません。

だれか正解を教えてください。

いろいろ間違いを見つけて

$hoge =~ s/(＞.+);/<font color=blue>$1<\/font>/ig;

ここまで行きました。

まだ間違ってますか？

>>582
英文字使ってないならオプションのiはいらんだろ。
.+? か [^;]+ にしないと＞の後にセミコロンが複数あった時
最後のセミコロンまでの全ての文字がマッチしちゃうぞ。

$hoge =~ s/(＞[^;]+);/<font color=blue>$1<\/font>/g;

あとタグを扱う場合は区切り文字変えた方が
/のエスケープ要らなくなって見やすい。
$hoge =~ s|(＞[^;]+);|<font color=blue>$1</font>|g;

>>580-582
（　´,_ゝ`） ﾌﾟｯ

まだだめです
＞あああ　＞おおお;

ってやると最初の＞から;まで青くなってしまいます。
＞おおお;
だけ青くしたいんです。

>>585
あとから条件足すなボケ

$body =~ s/(＞[^;^＞]+);/<font color=blue>$1<\/font>/g;
すいません。わすれてました
でもこれで大丈夫のようです。

なぜか改行はいっても大丈夫（色がかわらない）のですが、なんででしょうか？
べつに変わらなくてよいのでいいんですけども、理由が気になります。

while (<>)｛
$_ =~ s/(PAT)/$1/g;
}
とか
for (@foo) {
$_ =~ s/(PAT)/$1/g;
}
してるんなら、$_には読みこんだ一行しか入ってないから。
$/ = ''でもしとけ。

つか、全然正規表現じゃねーだろ。青らくだかって勉強しろボケ。

>>588
あふぉですか？

>>587
それじゃダメ。
＞のコードは\x81\x84なので
[^;＞]は[^;\x81\x84]と等価。ちなみに^は最初に一つ置くだけでいい。
つまり;か81か84が出てきたら全て否定されるので。81か84を含むコードを
持つ文字がある場合にマッチしなくなる。

こうしれ。
$hoge =~ s|(＞(?![^;]+＞)[^;]+);|<font color=blue>$1</font>|g;

>>590
ありがとう！

なぜか「→」とかの記号が中に入ると
ダメになっちゃったんだよ。

そういうことか。マジでありがとう！
ちなみに改行は大丈夫でした。記号が入っていたようです。すみませんでした。

>>590
・・・なにもマッチしないんですけど・・・。

なんでだろ。

>>592
上の例だとマッチするが…
下記に確認に使ったソースを載せとく。

他に何か言い忘れてる事ある？
マッチさせたくてさせられなかった文字列はどんな？

#! /usr/local/bin/perl

print "Content-type: text/plain\n\n";

$hoge = '＞あああ　＞おおお;';
$hoge =~ s|(＞(?![^;]+＞)[^;]+);|<font color=blue>$1</font>|g;

print "$hoge";

>>592
すいません
バッチリでした。
ちょっとぜんぜん関係ないところでミスってました。

本当に申し訳ありませんが、もうひとつだけ条件追加させてください。

＞と;の間で改行したらマッチしないようにしたいです。
この場合の改行は<br>なので改行コードではないです。
だから簡単だと思ったのですが、「<br>」という文字列を丸ごと指定する方法が
わかりません。

こまった。

>>594
$hoge =~ s%(＞(?![^;]*(?:＞|<br>))[^;]*);%<font color=blue>$1</font>%ig;

どこに<br>が入ってるかわかんないので+を*に変えといた。
ので、＞;でもマッチしてしまうが。

まじで感謝です
＞;でマッチするのはぜんぜんOKです。

ありがとうございました！

2バイト目が81の文字の後に1バイト目が84の文字が続くと
＞の部分にマッチしてしまう罠。

>>597
（　´,_ゝ`） ﾌﾟｯ アサハカさんですね

$QUERY{'hd'}が「あ」だったら
あほ、あへへ、とかにヒットするようにしたいんですが、やり方わかりません。
if ($DB[$key] =~ /^$QUERY{'hd'}.*/) 〜
とかやってみました。ぜんぜんだめです。「{」は「\{」って書くんですか？
やってみたけどだめでした。どやってやったらいいですか。

>>599
条件をもっと正確に書きましょう
「あほ、あへへ、とか」って？
$DB[$key]が「あ」で始まる任意の文字列にマッチする場合ということなら
if ($DB[$key] =~ /^$QUERY{'hd'}.*/) 〜
これでええです。
エラーをもっと正確に書きましょう
「ぜんぜんだめです。」って？
エラーメッセージを見ればほとんどのことは分かるんです

^ はいらないんじゃない？

>>601
$ perl -e '$var="abc"; if ($var=~/b/){print "601 is an aho!\n";}'
601 is an aho!

$ perl -e '$var="abc"; if ($var=~/^b/){print "601 is an aho!\n";} else {print "
601 is God!\n";}'
601 is God!

>>602 がah(略

>>602, >>603はGod
>>604はdoah（略

文字列置換で置換後に\1を参照した直後に1を挿入したいのですが、\11と書いたら
だめでした。どうやって書けばいいですか。よろしくお願いします。
$error_flags = "0000000000000";
$error_flags =~ s/^(\d{1})\d{1}(\d{11})$/\11\2/g if ($QUERY{'form_v2'} eq "");
$error_flags =~ s/^(\d{2})\d{1}(\d{10})$/\11\2/g if ($QUERY{'form_v3'} eq "");

${1}1$2

おお、なるほど。そんな書き方でしたか。やってみます。
どうもありがとうございます。

３文字の数字のみにマッチをしているのですが、できません。

if($word=~/^[0..9]{3,3}$/){ print"ok";}

\dなど使わないでこの形式で正して下さい。

>>609
相当の初心者さんですね
[0-9]{3}

>>610
できた。できた。ありがとうございます。{3,3}でもできた。

>>611
>{3,3}でもできた。
そりゃできるだろうけど、「3文字の数字」を探すときにわざわざ
「3文字以上3文字以下の数字」って書くのはちょっとね。

少し前に、Web製作板のJavaScriptスレでも同じ質問があったな…

>>610
なかなかの初心者さんですね
\d\d\d

>>614
な（略）
\d{3}

>>614, >>615
不合格！！
よく問題を読みましょう.
\dを使わずにやれとある

なんてこっﾀ━━━━━(ﾟ∀ﾟ)━━━━━ｲ!!!!

[0-9][0-9][0-9]

[0123456789][0123456789][0123456789]

初心者ですいません。

12345 や 67890 や at41n や hyrdf985 や s4r などの文字列を

12 67 at hy s4

のように先頭の２文字だけに変換させるのはどうしたらよいでしょうー。
substr使えやｺﾞﾙｧ といわずに、正規表現でやってみたいのです。
何文字あるのかわからないため、...$ などは使えないし。
s/^..// なんてやると２文字だけ消えてしまうし、、
$_ = '1234567';
/(^..)/;
ってやれば、$_ = $1 でできるかもしれないけど、こんな手間かけるのもアレやし、、

s/先頭の２文字でない文字//;

とかやりたいの。

>>620
s/(^..).+/$1/
じゃ不満？

>>621
それでもOKです、ありがとう！！！
でも、対象文字列が２文字でもOKです？
一応、対象となる文字列は「最低２文字はある」ということを前提にしてもよいです。

.+ って0文字でもよい？

そならs/(^..).*/$1/だよね。
.+は1文字以上。

>>623
そうかー、さんきゅー助かった！
迷惑ついでにもうひとつ聞くけど、
substr使うより、正規表現使ったほうが処理早い？

「何文字かの文字列を先頭の２文字だけに変換する」
という処理を数千件行うんだけど、どっちが早い？
数千件程度じゃあんまり変わらんかｗ

>>624
死らん。やってみて報告キボンヌ。
$start=time();
while(<>) {
s/(^..).*/$1/; #または、substr($_, 0, 2);
}
$end=time();
print $end-$start, "\n";

>>625
数千件と言いながら3357件しかないので、
たいして変わんなかったｗ
期待はずれｽﾏｿ

>>642って書いたけど、その後の処理の内容が問題じゃん。
s///は$_が変化している。substrはそのまま。
$_にさらに処理を加えるなら、s///にしなきゃだめだけど
最初の2文字出すだけならprint substr...の方が早いっしょ。

>>627
そかそか、勉強になった、さんくすｺ

正規表現は基本的に遅いよ。
他のやり方でやろうとすると数行並べなきゃならなくなるような
処理なら素直に正規表現使った方が速くなることもあるけど。

use Benchmark;
timethese(500000,{
1=>q{
$hoge = '123456789';
$hoge =~ s/^(..).*/$1/;
},
2=>q{
$hoge = '123456789';
$hoge = substr($hoge,0,2);
}
});
Benchmark: timing 500000 iterations of 1, 2...
1: 20 wallclock secs (20.69 usr + 0.00 sys = 20.69 CPU) @ 24167.43/s (n=500000)
2: 3 wallclock secs ( 3.55 usr + 0.00 sys = 3.55 CPU) @ 141003.95/s (n=500000)

>>629
べんきょになりましたm(__)m

JRE32v1.17で

std::string
string
std::vector
vector

にヒットする正規表現がわかりません・・・

(std::)?string|vector

だと、std::が付いてないヤツにヒットしないです

(std::|)?string|vector

>632
そ・・・そんな単純な事なのか・・・
ありがとうございました

きっと誰かやってると思うんだけど、日本語を含む文字列中の , . など
区切り文字を空白に置換する正規表現を教えてください。
できれば、。「 」なんかもできるといいです。

>>634
tr/,./ /;
s/\x81[\x40-\x42]/ /g;#SJIS

s/\x81[\x40-\x42]|[^\x81-\x9f][,.]/ /g;#SJIS

>>636
（　´,_ゝ`） ﾌﾟｯ

あ、いろんな意味でダメだこれ。

>635-636
すみません。EUC-JPなんです。
とりあえず、JIS X 208の01-03区は記号っぽいので、
tr/,./ /;
s/[\xA1-\xA3][\xA1-\xFE]/ /g;
とやってみましたが日本語が化ける場合があります。

では、わたしから

s/[.,]|\xa1[\xa2\xa3\xd6\xd7]/ /g;

>>640
「◆□」とかの\xa2\xa1\xa2\xa2みたいに並んだ文字で誤変換するぞ

区の指定と点の指定を区別せにゃならんな。

そこまで完璧に処理するとなるとオーバーヘッドがでかくなるんでないかな
一応以下のやつではどうだ？（１６進と８進がいりまじってるけどきにするな）

s/([.,]|\xa1[\xa2\xa3\xd6\xd7])|(\216[\241-\337]|\217?[\241-\376].|.|\n)/$1?' ':$2/ge;

この辺嫁。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match

>>640-644
レスありがとうございます。
>>644のリンク先に書いてある方法で、
s/\G((?:$ascii|$twoBytes|$threeBytes)*?)(?:[\x20-\x2F\x3A-\x40\x5B-\x60\x7B-\x7F]|[\xA1-\xA3][\xA1-\xFE])/$1 /g;
でうまくいきそうです。

URLに使える文字がエスケープされていたら(%7Eとか%2Eとか)
元に戻す( ~ とか . とかに)という処理を正規表現で行えますか?

(ﾟдﾟ)ﾊｧ?
URLデコードで検索しろや。

URLデコードだとデコードしたら意味が変わる文字までデコードしちゃうじゃないですか。
安全にデコードできるパターンだけを元に戻したいんですけどそういう判定を
正規表現でできますか? という質問。

>>648
できる。

>>648
ふつーは単純にURLでコードすりゃいいだろ。
何か特殊な事情があるならやりたいことを詳しく書け！

>>648
指定が面倒そうだから一度エンコードしてデコードし直せば？
s/%([a-f\d]{2})/pack("H2",$1)/ieg;
s|([^\w/\.&%?~+=:@#\-])|'%'.unpack("H2",$1)|eg;

違う、デコードしてエンコードし直す、だな。

>>650
URLを同一性チェックのために正規化したいんです。
>>651
それだと最初はエンコードされてなかった / とか # とかも
エンコードされてしまいまつ…

>>653
意味わかって言ってる？
>>651のは「\w/.&%?~+=:@#-」以外の文字をエンコードするって
意味だぞ。

>>654
ごめん '[' とか ']' とかが、とでも読み替えてください

ていうか最初は %2F にエンコードされてた / が
デコードされてしまうのでやっぱり困ります。
同一視されては困るからエンコードしてるのに
区別がつかなくなっちゃう。

>>656
だから意味考えろって。
'[' ']'をエンコードさせたくないなら[^〜]の中に
\[\]を加えればいいだけだろ。
/はエンコードしたいなら[^〜]の中の/を外せばいいだろ。
お前の頭にゃ何が詰まってんだ？
エンコードしたくないものを[^〜]の中に並べるだけ。
>>651のはただの一例だろ。実際に何を並べるかくらい自分で考えろ。

>>656
同一視って、何と何が？

>>656まずは例を出してみようよ。この文字列を
このようにしたい、って感じで。

君の説明わかんないよ。

＞URLに使える文字がエスケープされていたら(%7Eとか%2Eとか)
＞元に戻す( ~ とか . とかに)という処理を正規表現で行えますか?

＞ていうか最初は %2F にエンコードされてた / が
＞デコードされてしまうのでやっぱり困ります。

このへんが特にわからないね。
URLで使える文字を戻したいんじゃ無かったのか？

質問しとる方も何がしたいのかわかってないんちゃうか？

>>657-660
最初が「/%2F」なら「//」でも「%2F%2F」でもなくて
「/%2F」のままなるようにしたいんです。文字クラスに
足したり引いたりするだけでそんなこと出来ますか?
「~%7E」は「~~」にしたいです。
そのままにしたい文字(「/」のような)と統一したい文字
「~」のような)を区別する基準は、RFC2396のunreservedに
含まれるか否かです。

たとえば「/%7Ehoge」と「/~hoge」は同じURIだから、
この変換を掛けた後はどちらも同じ文字列にしたいけど、
「a/index.html」と「a%2Findex.html」は違うURIだから
同じになっては困るということです。

>>662
my %reserved = map { unpack('H2',$_) =>1 } qw(; / ? : @ & = + $ ,);
s/%([0-9A-Fa-f][0-9A-Fa-f])/$reserved{lc $1}?"%$1":pack('H2', $1)/eg;
こんなとこか？

>a%2Findex.html
このURL自体がありえないと思う。

>>664
Mac OS 9のサーバなら十分にありうる。
RFC 2396的にも別に禁止されてない。

つか /　が気に入らないなら別の文字当てはめてみろよ。
# と %23 が同一視されたらまずいのは明らかだろ。

もっとも後ろにある , 以降の文字列を削除する正規表現を教えてください。

例
12345,67890,12345,67890 →　12345,67890,12345
aaa3,5567,3333333,aser567　−>　aaa3,5567,3333333
dser6f,ghhs,,asfa,wfdw,,,,asf -> dser6f,ghhs,,asfa,wfdw,,,

s/,[^,]*$//;

>>668
thx

連ｶｷｽﾏｿ。
６個目の , 以降の文字列を削除する正規表現について。

例
11111,22222,33333,44444,55555,66666,77777
　→　11111,22222,33333,44444,55555,66666

11111,222,33333,4444444,55,6 → (これはそのまま)

,,,,,,,,,,11111　→　,,,,,

この正規表現を作ってみたんですが

s/([^,]*)(,[^,]*)(,[^,]*)(,[^,]*)(,[^,]*)(,[^,]*).*/$1$2$3$4$5$6/;

もっとスマートな書き方ありませんか？

s/([^,]*,[^,]*,[^,]*,[^,]*,[^,]*,[^,]*.*/$1/;

括弧を消しすぎた
s/([^,]*,[^,]*,[^,]*,[^,]*,[^,]*,[^,]*).*/$1/;

s/^((?:[^,]*,){5}[^,]*).*$/$1/;

chop($st = $1) if $st =~ /^((.*?,){6})/;
とか。

>>674
くそ、さき越された。早く寝ろてめえら。

>>674
キャ〜カッコイイ！！

>>674 の案を頂き。thx

>>674
しかしだな、
$st =~ s/^((.*?,){6}).*/$1/;
の方が普通やね。やっぱ、俺の方が（略

>>678
末尾に残るカンマの処理はどうお考えで?

>>679
む、やっぱ、あんた=>>674?の方が（略

サクラエディタで、JSP／ASPのスクリプト部分を色指定しようと試しているのですが巧くいきません。
<%.*%>でオーケーとか軽く考えていたのですが、.は改行文字にはマッチしないのですね。
改行文字も含めてとにかく全部マッチさせるにはどうしたらいいのでしょうか？

＃サクラスレではレスが付きませんでした(T_T)

>>681
改行コードに色は付きません。
改行コードの正規表現は、
windows: \r\n, unix: \n, Mac]\r
です。

あ、×Mac]\r -> ○Mac: \r

htmlで改行コードを表示するんなら、６８２、６８３で書いた
ものに代替文字を当て、そいつに色タグを付けるようにしる。

>>682
ごめんなさい、ちょっと書き方が悪かったですね。
<%.*%>と指定しても、<%と%>に挟まれた文字に色がつかないんです。
それで、改行が挟まっているのでマッチしないのか、と思い>>681を書いたのですが……

私、根本的に間違っているのでしょうか？(^^;

>>684
そいじゃ、「改行文字も含めてとにかく全部マッチさせる」じゃなくって
「改行文字を除いた部分にマッチさせる」じゃねーかよ。日本語大丈夫？
<%.*%>の中に改行が入っているかどうかなんて見れば分かるだろ。
それが確かに原因だと確かめられてから質問しろ。改行を挟む文字列を
連結するにはどうすればいいですかってな。
質問の仕方じゃ、どっかでレスが付かなかったのも当然だよ。

/<%.*%>/s;
とかいうレベルの話じゃないの

質問の仕方じゃ→こんな質問の仕方じゃ
我はもう寝る

ってPerlじゃないのか

Perlの正規表現で
0から始まらない数字だけの文字列
ってどう表現すればいいですか？
※001とか0930とかは駄目ってことです。

/^[1-9]\d*$/

↑あーなるほど！
ありがとう！

%cat hoge.txt
人数:5725 過去のイベント

から
５７２５をとるのに
sed -e 's/.*://' hoge.txt |perl -pe 's/\s+.*//;'
としてますが、perlで一つの正規表現でやりたい

/人数:(5725) 過去のイベント/;

なんと $1 にセットされます。

ユーザが入力したURLの中に
../
がはいっているとイヤです。取り除きたいと思います。
一方、
.. や / は取り除きたくありません。

単純に、
../ を消す正規表現を採用したところ、
たとえば
..././ を入力されたときに、
../ が残ってしまいます。

何か良い知恵はありませんか？

なくなるまでぐるぐるまわさなきゃダメでしょうかねぇ？

1 while s/\.\.\///;

>>697
何で？s/\.\.\///g;でいいじゃん。

>>698
$_= '..././aaa';

これの実行結果を見てみ

>>699
　（;´Д｀）　　ｽﾐﾏｾﾝｽﾐﾏｾﾝ
　（　 八)
　　　〉 〉

いやそれより
..././aaa
が
aaa
になるのは正しいのか?
.../aaa
にならなきゃならないと思うんだが。

ああユーザーの入力から取り除きたいってことか
２ちゃんねるの&rlo;対策も>>698と同じ罠にはまってたなそういえば

>>695の問題設定に矛盾あり。
../を取り除きたいと/は取り除きたくないとの両立は不可能。
ネタか？

../ 以外の場所に出現する / は取り除きたくないってことでしょ。
つまり ../a/b..c は abc じゃなくて a/b..c にしたいと。

じゃあだよ、..../..././は？
第1っ回目で..../となり2回目で..かい？
どういう意味があるのかいまだ和歌ら図・・

それ以前に..../..././にどういう意味が・・・

>>706
あっしに言ってんの？
じゃ、.../..././でもいいよ。
これは、.になっちゃうよね。それに何の意味があるのって聞いてんの。

>>706
>>701が言ってることに答えくれればいいんよ。

名前を失念したので、うまく◆gst6v8LC9k になるかどうか不明ですが
695です。失礼しました。皆さんお知恵をありがとうございます。

結局、以下を使う事にしました。
while($blah =~ /\.\.\//){ $blah =~ s/\.\.\///; }

まだ良く読んではいませんが、以下をこれから勉強してみようと思います。
http://b0iler.eyeonsecurity.org/tutorials/perlfilters.htm

こっちだったかなぁ？名前。695です。

ところで、709でのリンクは今さっき見つけたのですが
関連するページを語如語如していましたら、以下のページが親ページ
だったみたいで。
http://b0iler.eyeonsecurity.org/tutorials/hackingcgi.htm

（名前、失敗したら次からは６９５です、と言おう）

このお題はかなり勉強になったと個人的に思う。
用はこれ
&rl&rlo;o;
にどう対処するかってことだよね。
早速自分の掲示板書き換えてきます。

>>711
まずった。
これね
&rl&rlo;o;

(;´Д｀)ﾊｧﾊｧ

ここはCGIの話をするところではありません。
>>709->>712は早急に立ち退いてください。

はい、次々ぃ！

与えられた文字の並びの中から、
UUENCODEでファイルの記述になっている部分【だけ】を
正規表現でネグるやり方はありますか？

これ、テキストメールでOEユーザあたり宛に、ファイル送るときに
便利ですが。フィルターするならどうします？

掲示板に投稿されたテキストが、まんま、掲示板管理者に送信される
ケースで、事故が発生したことがあります。ちなみにOTDの掲示板で。
今は対処済みのようなんですが、いったいどうやったんだろうと不思議で。

>>715
「UUENCODEでファイルの記述になっている部分【だけ】を」
日本語がはっきりしませんが、uuencodeされた部分は、beginn
とendで境界付けられています。

１．undef $/;$while_lines=<>;
２．@lines=<>;
perlを１．２．のような使い方で
a
b
c
d
を
a\tb
c\td
にするにはどのように書けばいいでしょうか。
s/\n/\t/;
と書く場合、
置換される回数を指定できればやりたいことが実現できるのですが、
そういう手段perlはs演算子に用意されていないと思います。

他の手段でも構わないので、何かアドバイスありませんか？

s/\n(.*\n)/\t$1/g;

>>717
undef $/;
$line=<>;
$line =~ s/((.+?)\n(.+?\n))/$2\t$3/g;
print $line;

>>718の方がおり降参でした。

でも、漏れだったら、
while(<>) {
chomp;
if ($. % 2) {
print $_, "\t";
} else {
print $_, "\n";
}
}
かなぁ。

>>721
しょぼいコードだな

じょぼくて悪かったな。
実は自分でもしょぼいなぁと、>>717はいい質問してくれたなぁと。

あ、実は
a　b　c
d　e　f
g　h　i
j　k　l
とかも作る必要があったので、721のものが一番
良かったかも。

汎用性？

>>724
あんた優しいね。好きっ

携帯アドレスはハネない程度に厳しいメアド判定教えて！

@以下のアドレスに対して、whois

>>727
正規表現のみでひとつ

>>726
/[-_.a-zA-Z0-9]+@(?:[-a-zA-Z0-9]+\.)?[-a-zA-Z0-9]{3,63}\.(?:[a-z]{2,}\.[a-z]{2}|[a-z]{2,})/

誰っかｰ。助けてください。
某サイトでお願いして書いてもらったソースコードを実行するたびに、
掲示板が勝手に改行いれるので、それを消し去る正規表現を書きたいです！！！

規則は：
１．全ての行は本来ならスペースやタブで始まる
２．勝手に改行されていた行は先頭(^)から始まる
３．本来なら、各行の先頭は大文字である
４．勝手に改行されていた行は先頭が小文字である

ぐらいかな〜。


具体例：
　　　 Cells.Find(What:="場所", After:=ActiveCell, LookIn:=xlValues, Look
At:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchC
ase:=False) _
.Activate
のような感じです。お願いしました。

あ、
３．本来なら、各行の先頭は大文字である
４．勝手に改行されていた行は先頭が小文字である
には例外があるみたいです。

御願いしましたよ。

*は全て半角数字です。「-」は文字としてのハイフンです。
文字のパターンは、
１：****** # 文字数未定の１文字以上の半角数字
２：***-***　または、　***-***-***　　# 文字数は未定の数字のあとにハイフンが入ります。
ハイフンは１個の時と、2個付くときがあります。

例）12344556　、　32-98　、　45-98-35

これらの正規表現をお願いします。
自分で考えたのは
([0-9]+[[\-[0-9]+]?[\-[0-9]+]?)　これです。
一応成功するんですが、**-**-**-**　こうやっていくつも続いた時も
マッチしてしまいます。基本的に**-**-**という風に三回しか繰り返しません。
修正があればお願いします。

すいません、正しいのはこれです。
([0-9]+[\-[0-9]+]?[\-[0-9]+]?)/mg)

/^(?:\d+-){0,2}\d+$/;

>>715
$in{$_} =~ s/^begin 0{0,1}[0-9]{3} (?:(?!\nend).)*(\nend)/UUENCODED-BINARY/gs;
$in{$_} =~ s/\nbegin 0{0,1}[0-9]{3} (?:(?!\nend).)*(\nend)/\nUUENCODED-BINARY/gs;

うちではこうだけど。でも取り除き漏れがあるかな？うぅーん。

>>729
ありがとう

sage

正規表現で、
日本語のひらがな一文字だけマッチさせるのって出来るのですか？

でっ、できちゃう

>>738
jperlなら、[ぁ-ん]
perlなら、sjisの場合、\x82[9F-F1]、
eucの場合、A4[A1-F3]、jisの場合、24[21-73]、utf8の場合、30[41-93]

おや、16進数を表す記号を付け忘れたし。
perlなら、sjisの場合、\x82[\x9F-\xF1]、
eucの場合、\xA4[\xA1-\xF3]、jisの場合、\x24[\x21-\x73]、
utf8の場合、\x30[\x41-\x93]

ココ見てる人なら、知ってるかも。

HTMLの<TABLE>〜</TABLE>をCSVとかTSVとかに変換できますか？

table2csv.pl
なんてのがあるわけがないと思って質問シマスタ。
w3m -dump はへんな線が入るので、使いたくないし、ＣＳＶが勝つよう範囲も
広そうなので、だれか書いていてもよさそう。


とっても困ってます。

>>740

perl(jperl and perl5.8)の
s/あ/ア/;
tr/あ/ア/;
の違いってわかりますか？

たぶん、知ってそうだから。ごめんね。

http://www2.crl.go.jp/jt/jt221/tfujii/Installer/table2csv.txt
になんかそれっぽいものあるけど
動かない。

理由わかる人いますか？

>>744
こりゃあ、ひどいな・・・

>>744



ほれ。区切りはawkだから-F","とかね。


BEGIN { print "<table border=\"1\">";}

{
print "<tr>";
for (i=1; i<=NF; ++i){
gsub(/&/,"\\&",$i);
gsub(/</,"\\<",$i);
gsub(/>/,"\\>",$i);
print "<td>" $i "</td>";
}
print "</tr>\n";
}

END { print "</table>";}

>>746
csv2table.awkではなく
table2csv.awk

が欲しいのです。

どれくらいのテーブル？　どでかいの？

ちっちゃいですよ。すごく。

>>744
ファイルから読み込むならまず最初に全部変数に読み込め

>>742
colspanとrowspanが指定されてるのってどうするかとか、
仕様が決まれば、すぐ書けるよ。特にrowspanね。
caption、thead、tfootどうするかは、たいした問題じゃ
ないな。
libraryやmoduleがないのは、余りにも簡単だからだよ。
perl初心者コーナーで質問したら書いてくれる人いっぱい
いたのにぃ。

>>751
colspan や rowspan があるテーブルはどうやってCSV変換するんだ？

例えば、
┌─┬─────┬─────┐
│　│　 人間　 │　　猿　　│
│　├──┬──┼──┬──┤
│　│ 男 │ 女 │オス│メス│
├─┼──┼──┼──┼──┤
│x │ 1.9│ 2.3│ 1.3│ 1.8│
├─┼──┼──┼──┼──┤
│y │ 0.8│ 0.4│ 0.4│ 0.2│
└─┴──┴──┴──┴──┘
だったら、
"," (row: 2)","人間 (cols: 2)","人間 (cols: 2)","猿 (cols: 2)","猿 (cols: 2)","
"," (row: 2)","男","女","オス","メス","
","x","1.9","2.3","1.3","1.8","
","y","0.8","0.4","0.4","0.2","
こんなふうにするスクリプト。改行多くて1レスにならんから、次レスへ。

>>753の続き
while(<>) {
chomp;
$flg = 0;
$col = 0;
$line = $_;
$line =~ s/(<\/*thead>|<\/*tfoot>)//gi;
$line =~ s|</*tr.*?>||gi;
for $i (0 .. $#row_max) {
undef $row_data[$i] if $. > $row_max[$i];
}
while($line =~ /<(td|th)/) {
$flg = 1;
$col++;
$line = "$'$row_data[$col]$&$`";
if ($line =~ s|<t[dh][^<]+?rowspan.+?(\d+).+?>(.*?)</t[dh]>|"\",\"" . $2 . " (row: " . $1 . ")"|ei) {
$row_data[$col] = "<td>$2 (row: $1)</td>";
$row_max[$col] = $. + $1;
} elsif ($line =~ s|<t[dh][^<]+?colspan.+?(\d+).+?>(.*?)</t[dh]>|("\",\"" . $2 . " (cols: " . $1 . ")") x $1|ei) {
1;
} else {
$line =~ s|<t[dh][^<]*?>(.*?)</t[dh]>|","$1|i;
}
}
print "$line\",\"\n" if $flg == 1;
}
しっかり試してないからバグが潜んでいるかも。

>>744, >>752
せっかく求めに応じて書いたのに。何の反応もない。
２ｃｈだってある種の礼儀はあるだろうに。

>>753
おおおお、そんな複雑なことまで出来るのですね。
ほんとに有難うございました！！！
勉強になりました。

今、http://hywr.kuciv.kyoto-u.ac.jp/~shiiba/documents/unix/openmemo.html#3
のtabel.elなるものを見つけましたが、スクリプト自体は落とせませんでした。

以前これを落とされた方いますか？

>>756
「勉強になりました」とか言ってほんとはありがた迷惑ってやつだろ？
だって使えそうにないもんな

>>757
どこがどう使えないか言ってみろ。

$line =~ s/(<\/*thead>|<\/*tfoot>)//gi;

テーブルにこんなタグあんのか？

書いた本人じゃなくて悪いけどさ、
>>759
あるぞぉ。

ちなみに、tr/th/tdタグって閉じなくてもいいわけだから、汎用的に使う場合に
はちょっと問題出そうな気がするんだけども。

>>759
あるよ。あとtbodyね。省略可能だからあまり見ないのかも。

>>754
そのコードは無限ループに陥る可能性が・・・

他は大丈夫なのに、
何故か全角のスラッシュだけが置き換えされません・・
なんででしょうか？
$_ =~ s/／//g;

これでいいんですよね？

ほら見ろ、どこにも欠陥がないじゃねーか。
>>763
まず、lintで正しいhtmlかどうか確認しましょう。
>>762
ちなみに、あんたの予測ではどういう時に無限ループに陥る？
>>761
tbodyでtd、thと同じ行で共存しないでしょ。
$flg==1のとき（その行にtdかthがある場合）しか出力してないから
tbodyは無視していいのです。<\/*tfoot>の削除も実は不要だった。
>>760
<\/*thread>ってなってるでしょ。閉じはあってもあくても対応できるよ。
だれも書いてないことは、<tr>...</tr>の行が一行毎に改行されてない
のにかけたら、まったくだめだよってこと。その前処理を付ければ、
すばらーしスクリプトだな。

>>760
おっとうっかりしてた。
</*thead>とかじゃなくて、tr,td,thか。
それが閉じてないとやばいね。多分、lintには叱られるhtmlの書き方
だろうけど。それに対処するには、td,thのばやいは、次のtd,thか、改行まで、
trはもともと削除しちゃってるんだから関係ないと。
だから、上のスクリプトに
s#</t[dh]>#(</t[dh]>|<t[dh]>|$)#g;
すればいいっつことだな。

>>717
乗り遅れたが...

while(<>){
s/(.*?)[\r\n]*$/$1."\t".<>/es;
print;
}

ってのはどう?

恐ろしく厨な質問で恐縮なのですが・・・
一文字前が改行以外の「,」を検索することは
正規表現で出来るのでしょうか？
VBScriptの正規表現オブジェクトを使ってます。
[^\t\n],
だと改行が前に無い「,」とその一個前が取れてしまって・・・。
重ね重ね厨ですみません。。

あ、上の　[^\r\n],　です。すみません・・・。（鬱

ほんの少し刺激を求めてる主婦のサークルを作りました！
私たち主婦が楽しめる安全でちょっとトキメキのある出会を求めて
只今男性会員を募集中です!!　女性会員も募集(^○^)/"
http://f-cc.com/~tokimail/

>>764
以下の２行のごく単純なテーブルで実行してみれば？

<table><tr><td
bgcolor="White">hoge</td></tr></table>

あと、念のために聞くけどCSVって知ってる？

>>766

これって改造して、３列バージョン作れますか？

>>764
ちゃんと人の書いてること読んでから書き込め。
<tr>...</tr>の行が1行ごとに改行されてるtableが前提だ。
前処理もすぐに書けるが書いてないといってる。
お前のおかげで貴重な資源が無駄になった。もう２ｃｈには来るな。
おまえはCSVに何種類かあるか知ってるのか？漏れの出したの何ていう
名前のCSV?　Kで始まるよ。
そういうのが分かってる奴しか相手にしないからお前は早く氏ね。

>>760じゃなくて>>770だった。
あまりアフォだから晒しアゲ

>>772
まーまーおちけつ。
故意にせよ抜けてたにせよ、問題を含んでるのは確かなんだから、
より実用的なコードに仕上げた方が建設的ってもんでないかい？

とりあえず
<table>
<thead><tr><th>1</th><th>2</th><th>3</th></tr></thead>
<tfoot><tr><th>4</th><th>5</th><th>6</th></tr></tfoot>
<tbody>
<tr><td>7</td><td>8</td><td>9</td></tr>
<tr><td>A</td><td>B</td><td>C</td></tr>
<tr><td>D</td><td>E</td><td>F</td></tr>
</tbody>
</table>
の表示は
1 2 3
7 8 9
A B C
D E F
4 5 6
になるのでよろしく

糞ソース晒しあげ

while(<>) {
chomp;
$flg = 0;
$col = 0;
$line = $_;
$line =~ s/(<\/*thead>|<\/*tfoot>)//gi;
$line =~ s|</*tr.*?>||gi;
for $i (0 .. $#row_max) {
undef $row_data[$i] if $. > $row_max[$i];
}
while($line =~ /<(td|th)/) {
$flg = 1;
$col++;
$line = "$'$row_data[$col]$&$`";
if ($line =~ s|<t[dh][^<]+?rowspan.+?(\d+).+?>(.*?)</t[dh]>|"\",\"" . $2 . " (row: " . $1 . ")"|ei) {
$row_data[$col] = "<td>$2 (row: $1)</td>";
$row_max[$col] = $. + $1;
} elsif ($line =~ s|<t[dh][^<]+?colspan.+?(\d+).+?>(.*?)</t[dh]>|("\",\"" . $2 . " (cols: " . $1 . ")") x $1|ei) {
1;
} else {
$line =~ s|<t[dh][^<]*?>(.*?)</t[dh]>|","$1|i;
}
}
print "$line\",\"\n" if $flg == 1;
}

糞ソースのコピペはいいからまともなのを貼れ

>>775
やっぱり、CSVにはスペース区切りしかないと思ってたのか。
教えといてやる。スペース区切り、タブ区切り、コンマ区切り、K3形式...
おまえみたいなうすまぬけな変換だと
<tr><td>おまえは馬鹿 糞馬鹿</td><td> お前はｱﾌｫ 大ｱﾌｫ</td></tr>
<tr><td>おいらはK3</td><td>他にどんな形式あるか知ってるか？ 何も知らなきゃ黙ってろ</td></tr>
は、
おまえは馬鹿 糞馬鹿 お前はｱﾌｫ 大ｱﾌｫ
おいらはK3他にどんな形式あるか知ってるか？ 何も知らなきゃ黙ってろ
こんなんなっちゃって、桁が合わなくなって使いみちないよ。
おまえの単純なデータを漏れのすばらーしスクリプトで変換するとこうなる。
","1","2","3","
","4","5","6","
","7","8","9","
","A","B","C","
","D","E","F","
どこにいちゃもん付けたいんだ。

全員落ち着け。

>>778
775は一例でスペース区切り上げただけかもしらんだろ。

そもそもnobodyばっかで訳わかんねぇよ。
議論したいならトリップつけるか、自分が書き込みした最初の記事の番号ぐらい名乗れよ。

>>763 なんかtableとかCSVとかと何も関係なく質問しただけかもしれんのに、HTML-lintとか
ワケワカな答えされてるし。

傍から見てウザ過ぎ。

>>763
$_ =~s/\Q／\E//g;
って\Qと\EでくくればOK。

>>779
あんたは喧嘩両成敗みたいなことやってるが、明らかに
悪いやつは、何の欠陥を指摘もできないで、漏れのスクリ
けち付けた>>757、>>775。
>>776は、すばーらしスクリをさらしてくれてありが�d。
「>>754はすばらーし」、だけでよかった。>>776も考えて
みりゃ、ネットのくずだ。早く逝け。

>>763 へのフォローは無しか。
そうやって熱くなって他の人間にまで迷惑を掛ける。
いくらお前から見て>>757、>>775が悪でも、傍から見たら一括りにしてウザイんだよ。

そこんトコ分かってくれ。

>>775は、糞ＤＯＳでやってるんじゃないか。
漏れは自宅のＬＩＮＵＸでやってた。ほんで、>>778は、会社の
Ｓｏｌａｒｉｓでやった。ちょっと気になって、winでやったら、
こうなった。
","1","2","3
","4","5","6
","7","8","9
","A","B","C
","D","E","F
つまり、\x0d\x0aの改行コードがchompでは１個しか取れなくて、
print "$line\",\"\n" if $flg == 1;
で後ろに付くべき","が消えている。付いてるんだけど表示されない。
もう少し、修行を積むことだな。

あ、781＝779な。

>>781
<table border="1">
<tr><td>おお</td><td>いい</td><td>うう</td><td>ええ<／td><td>おお<／td></tr>
</table>
は、
┌──┬──┬──┬─────┬─────┐
│おお│いい│うう│ええ<／td>│おお<／td>│
└──┴──┴──┴─────┴─────┘
になっちゃうけど？
それとも、漏れにhtml2csvじゃなくって、html-lint書けって言うわけ？
まったく別の質問だと思ってたけど？
ちなみに、
$_ =~ s/／//g;
eucではperlで問題無いけど、sjisでは、／が815Eだから、1バイト文字と重なるね。
81の00と5Eの^に。で、エスケープした方がいい？

>>781
そうそう、sjisで日本語やってんなら、jperlにしたら、こいうこと
気にしなくていいんじゃない、って書こうと思ったんだ。

>>784
へぇ、>>763はHTMLの話なんだ。どこからその毒電波でたの？
>>785は同意だけど。

あと君のスクリプトサラッと見てみたけど、colspanとrowspanの2つとも指定されたtdを含む場合
(<td colspan="2" rowspan="2">ほげ</td>ってみたいなの)、問題あるような気がするけど。

>>786
それは考えてませんでした。うすうす気づいてたけど。
そういうまともな批判を待ってました。ありが�d。
<tr>...</tr>の途中で改行されてるデータと、solspan、rowspanが両方
指定されてるデータに対応したのを作ってみます。比較的すいてるので、
この前は上げたけど、不評なので、上げるかどうか分かりません。

" や , はエスケープしなくていいの？

・多分正常なHTMLならOK
・多分改行も関係ない
・多分バグある
・多分滅茶苦茶叩かれるｗ

http://homepage3.nifty.com/~moemoe/table2csv.pl.txt

>>788
いいよ。

>>789
いいねこれ。もらったぜサンキュー！

イイですか？
自分で書いといて何だがもっとコンパクトに書けそうな気がしたんで
添削キボンなんだが。
ってココまで行くと正規表現の範囲でも無いか。sage

ここは正規道場だからね。漏れはほとんどスカラでやって正規表現の
使い方を示した。rowspanだけは難しかったので配列をつかっちゃった。
>>754は、10分か20分で作ったので、さっき改行とcolspan、rowspanに
対応したのを配列なんか使わずに書いたが・・・
Perlのスクリプトを競うのなら「スクリプト改造工房」、「Perl
初心者コーナー」あたりにどうぞ。

ええと、言いたかったのは
4 5 6
が2番目ではなくて最後になるってことで
区切りなんてどうでもよかったんでIEの表示結果を
コピペしただけだったんですが

>>794
漏れの実行結果２回も貼り付けたが、なってないじゃん。
お前の実行結果を貼り付けてみる。捏造するのに時間かかるだろ。

なるほど、そいうことか。また改造だ。あんが�d。

激しくがいしゅつだと思うんですけど、メールアドレスの正規表現です。
perlメモを見ましたが初級者にはどう考えても理解できません。
別に理解しなくてもサブルーチンとして貼り付ければいいだけかもしれないんですが、
ある程度何をやっているかわからないとやっぱり気分が悪いです。
で、皆さんが普段利用しているメールアドレスチェック正規表現を教えていただければこれ幸いです。

秀麻呂エディタで「1KG」とか「999KG」の数字３ケタでKG表示している
文字列を「 [999KG] 」のように[]で囲みたくて正規表現を使って置き換え
してるんですがうまくいきません・・・

「オレ様,男,25才,189cm,98KG,12%」
みたいなカンジでカンマで区切ってある行が２０００行くらいです。
この中の体重部分だけを[]で囲みたいんデス（泣；

>>798
これはどうよ
$a =~ /,(\d*KG),/;
$a =~ s/(\d*KG)/[$1]/ig;　

ちょと修正
・改行関係のバグ
・余計なタグの削除
・その他
スレ違いなのでもうココまで。

>>794
漏れのは多分大丈夫かと。

>>797
$mail =~/^[0-9a-zA-Z_\.-]+@([a-zA-Z0-9][a-zA-Z0-9_-]*\.)+[a-zA-Z]{2,}$/;

>>798
v.3.00以降のみ対応。
・検索：,\f[0-9]*KG\f
・置換：,[\1]
,が付いてるのは名前のトコにも数字KGってくる可能性があるので。

>>798
正規表現道場だから、
s/((.*?,){4})(.*?),/$1\[$3\],/;
しかし、普通は、配列を使って、
split/,/;
print "$_[0],$_[1],$_[2],$_[3],[$_[4]],$_[5]";

>>789サマ

神！できました！
どうもありがとうございましたヽ(´∀｀)ノ

「タグ付き正規表現」ってヤツですね。
ま、それ知ってても自分でできたとは思えませんが・・・

>>800サマ・・・でございました（汗；

>>798サマ
>>801サマ

PG上でのマッチングじゃなくて秀丸で成形してから
SQLに渡そうと腐心しておりマスタ。いずれにせよ
ソース上で有用な構文、ありがとうございました！

なんか自分の考えが正しいと思いこんで他人に押し付けるスレはここですか？

Email::Valid 使え。
と思ったり。

変に不完全なチェックするよりマシ。

>>804
お前のことか？

まあいくらチェックしても[email protected]とか貼られると
どうしようもないわけだが

汚染チェックだけしとけばいいって事ですか。

>>808
どうせだからそのドメインがホントにあるか＆メル鯖はあるか迄見とけ。

「文字を含まない」→[^a]*
みたいに出来ますが、

「ある文字列を含まない」ってどうやるんですか？

正規表現では表現不可能です。というのが教科書的な回答。
(バックトラックしつつ、) 前から順番にマッチさせていって、最後まで行っ
たら受理されるってのが正規表現だから。
でも、perl の拡張正規表現を使えば出来てしまうのが気持悪いところ。

print "ok\n" if(/^(?!.*xyz)/); # "xyz" が入っていなければ表示される。

先頭の後ろに「任意の個数の文字に "xyz" が続く文字列」が来ないものにマッ
チ。= "xyz" を含まない文字列にマッチ。

つーかさ

print "ねーよ" if ($str !~/xyz/);

とか

print "ねーよ" unless ($str =~/xyz/);

じゃ問題あんの？

無いよ。
もちろん、普通はそういうコード書く。

下のようなフォーマットの日付データを年・月・日に分解するには
どうすればよいですか？

2002.9.1
2002.10.1
2002.11.31

また、与えられた文字列が日付のフォーマットではない場合のチェックは
どうすればいいですか？
教えてください。

# 2002.09.01はNG、日付の妥当性もある程度チェック
die "日付じゃねーぞ" unless ($date =~/^(\d{,4})\.(1[0-2]|[1-9])\.(3[0-1]|[12][0-9]|[1-9])$/);
$year = $1; $month = $2; $day = $3;

# 2002.09.01もOK、日付の妥当性もある程度チェック
die "日付じゃねーぞ" unless ($date =~/^(\d{,4})\.(1[0-2]|0?[1-9])\.(3[0-1]|[0-2]?[0-9])$/);
$year = $1; $month = $2; $day = $3;

# うるう年とかあるし後でチェックするから取りあえず数字よこせ
die "日付じゃねーぞ" unless ($date =~/^(\d+)\.(\d+)\.(\d+)$/);
$year = $1; $month = $2; $day = $3;

splitした方が速そうだ…

ちょっとだけ、おじゃましまーす。

どーでもいいと言わないで下さいね。

=~
ってすごく打ちやすいですよね！
!~
ってメチャ打ちにくいですよね？

皆さん、
!~
をあまり打たないようにコーディングを工夫した方が、
指疲れなくて体に健康ですね。

失礼しましたー

私は
if(not $hoge =~ /REGEX/) { ... }
if(not $hoge = 123) { ... }
if(not $hoge eq "hage") { ... }
としている。

まぁ、とりあえず好きなように書けってことで。

>>817
それは正規表現じゃないのでPerlスレでやってくれ。

>>818
わざわざ

if(not $hoge = 123) { ... }

と書く理由がわからん。以下のように書きなさい。

if(0){ ... }

ちょいと質問。
ログファイルをlog.txtで保存してあります。
中身はこんな感じです。

番号,住所,電話,名前

で、フォームに番号を入力させて送信。
次のページで名前が出てくるって仕様です。

正規表現を用いてlog.txtの番号と同じ行にある名前を持ってきて表示させるには
どうしたらいいのでしょうか？
糞素人丸出しでｽﾏｿ、前後に上司でﾃﾝﾊﾟｰｲ

$bango = $in{"bango"};
print $2 if /$bango,{.+*,){2}(.+)/;
とか。

うっ、/^$bango,{.+*,){2}(.+)/;だった。

うっ、/$bango,{.*,){2}(.+)/;だった。

うっ、/^$bango,{.*?,){2}(.+)/;だった。
#　前のレスと同じバイトだと書き込めないのか。２重書きこですかだって。

2002.10.19（土）10-15h　　2002仙台市下水道フェア　　（雨天決行）

稲垣達也ライブ　「水の音、風の音、光の音」（11;55〜　14:15〜）

場所：勾当台公園　連絡先：仙台市下水道局022-214-8813

2002.10.19（土）　大沢農学校ケナフ学科　(4)　作品づくり（さをり織　など）

場所：大沢市民センター　　連絡先：大沢市民センター

2002.10.19（土）サイカチネイチャークラブ観察会　

場所：国立南蔵王青少年野営場　連絡先：サイカチネイチャークラブ

３です。



2002.10.19（土）10-15h　　2002仙台市下水道フェア　　（雨天決行）
稲垣達也ライブ　「水の音、風の音、光の音」（11;55〜　14:15〜）
場所：勾当台公園　連絡先：仙台市下水道局022-214-8813

2002.10.19（土）　大沢農学校ケナフ学科　(4)　作品づくり（さをり織　など）
場所：大沢市民センター　　連絡先：大沢市民センター

2002.10.19（土）サイカチネイチャークラブ観察会　
場所：国立南蔵王青少年野営場　連絡先：サイカチネイチャークラブ

のようにするにはどうすればいいでしょうか？

正規表現で、
2002.10.19
などの日付にマッチさせるのはわかるのですが、複数行にわたる処理って難しいですね。

レコード区切りを除いて空行を削除したいってこと?
s/\n\n(?!\d+\.\d+\.\d+)/\n/gs;

>>826 - >>827
何やりたいか、はっきり書け、ヴォケが

レスありがとうございます。
具体的に書きます。

log.txtの中身はこんな感じです。
0001　　東京　　国語　　【山田】
0002　　千葉　　数学　　【佐藤】
0003　　埼玉　　物理　　【金子】

番号、住所、科目、名前が入っています。
仕様は番号を打ち込むとその行にある名前が返ってきます。
例えば0001と番号を打ち込み送信すると次のページで
「山田」と出てくるのです。

自分がイメージしている方法ではlog.txtに名前を書き込むときに
【】の括弧で挟んで名前を書き込み、呼び出してくるときに
「"番号(0001)"の列の【】(【山田】)で囲まれた部分を持って来い」
と言う、命令をしたいのです。
こうする事により”名前”がどこにあっても番号と同じ列の【】でくくられた中を
参照するので楽だと思ったのです、感覚的にですが。
これって正規表現で可能なんですか？

わざわざ難しくしてどうするんだ阿呆が

では【】を使わないでやるにはどうすればいいのでしょうか？
名前は行の一番最後にあると仮定すると。

>>822-825は見たのか?
そもそも>>829は貴様へのレスじゃないぞ間抜け

>>833
>>829が自分へのレスじゃないことぐらいわかります。
その前に貴方は一体なんなのですか？
単に煽りの気がします。

http://pc.2ch.net/test/read.cgi/php/996105815/830
マルチうざ

1 東京 国語 山田
2 千葉 数学 佐藤
3 埼玉 物理 金子


open(FILE,"./log.txt");
@hoge=<FILE>;
close FILE;

foreach (@hoge){
@temp=split(/\s/,"$_");
($hage,$hige)=("$temp[0]","$temp[3]");
$word{$hage}="$hige";
}

print "number :";
chomp($a=<stdin>);
print "$word{$a}\n";

>>836
ありがとうございます。
これを元にがんばってみたいと思います。

おとなの玩具激安販売！
なんとピンクローター300円から♪
マニアック商品などその他いろいろあります！
http://www.king-one.com

>>829
ああ、やりたいことが確かに判りませんね。
迂闊でした。


改めて、質問いたします。

レコード区切りとなるものが存在せず、
2002.10.19
などの日付にマッチさせ、その前の行は空白を残して、
それ以外の空白を消すということです。

つまり、
\n\n\d\d\d\d\.\d+\.\d+.*
のようなものが区切りのキーになると思います。

だから>>828に書いたんだが。
直後に書かれた答えを無視して再質問するのがはやってますか？

Apacheのログ（Combined）を正規表現しようとして
いるのですが、やり方がわかりません。

> 127.0.0.1 - - [10/Oct/2000:13:55:36 -0700]
> "GET /apache_pb.gif HTTP/1.0" 200 2326
> "http://www.example.com/start.html" "Mozilla/4.08 [en] (Win98; I ;Nav)"

というログフォーマットを
・IPアドレス
・日付
・時間
・ファイル
・処理コード
・バイト数
・参照元
・エージェント

でCSVにしたいのですが・・・

だれか教えてください。

CSVって何か知ってる？

>842

CSVってカンマで区切ったフォーマットのことですよね。
Apacheのログは基本的にスペース区切りなのですが、
単にスペースをカンマ（,）に置き換えると、GET　/index.html
の中のスペースが区切られたり、いらない「”」が入ったり、
と困っているわけです。また、日付と時間を別のフィールド
にしたいので、正規表現を利用してきちんと指定したいのです。

今は
　１　行を読み込む
　２　- - [　を削除
　３　日付の「2000:」を「2002,」に変換する
　４　-9000]　を削除
　５　「"GET 」を削除
　６　ダブルクォーテーションを削除
した上でスペースをカンマに変えてCSVにしています。

これを世紀表現を利用して、もっとスマートにしたいのです。

よろしくお願いいたします。
　

my($remote, $ident, $user, $datetime, $req, $status, $size, $referer, $ua)
= m{(\S*) \s+ # remote
(\S*) \s+ # ident
(\S*) \s+ # user
\[(.*?)\] \s+ # datetime
"(.*?)" \s+ # request line
(\S*) \s+ # status
(\S*) \s+ # size
"(.*?)" \s+ # referer
"(.*?)" # user agent
}x;

とでもした後、適当に変形すれば良いだろ。

>>844

ありがとうございます。早速試してみます。

以前から、ずーと欲しいツールで、
正規表現だけで解決できるかどうかわかりませんが、
あるディレクトリにcsvファイルが
data01.csv
data02.csv
……
data10.csv
のように存在しています。
これを
perlなどで処理したい場合、これらのデータをファイル読み取りのところで、
配列の配列の配列やハッシュのハッシュのハッシュ
という３次元データー構造に変換しなければ、その後のプログラミング
が煩雑になりそうで、いままで、ずーと避けてきました。

厨な私は、普段はこれをエクセルで処理してるんですが、
いっそのこと正規表現で処理してしまえないでしょうか？

なにかアドバイスありますか？

>>846
で、どう処理したいの？ 肝心な部分を書いてくれないとなんとも言えないよ

>>846

　１　ディレクトリ下のファイル名を<*>で取得
　２　ファイルを開く
　３　tempファイルにファイル名と一緒に一行ずつ書き出す
　４　ファイルの数だけ２と３を繰り返す
　５　まとまったtempファイルを処理する

てな感じではどうでしょうか？　とは言うもののdata01〜10.csvの
違いがわからないのですが？

>>844

すみません。これPerlでしょうか？
　m{ ... }x;
という書式の意味がわからないです。読み込んだ
ログファイルはどの変数に格納すればよろしいの
でしょうか？

大変あつかましくて恐縮ですが、何卒ご教授お願い
します。

やりたいこと→perl式
は質問してもしかたないけど
perl式→説明
は「おしえて君」
ですよ。自分で調べられるでしょう。やりたいこと→perl式
は質問していいけど、
perl式→説明
は自分で調べられるでしょう。

>>850

失礼しました。会社にラクダ本があるので、
月曜日に調べてみます。

844じゃないけど。
　/xモディファイアは、正規表現の中にスペースとかコメントが
入るのを許すもの。m{...}は、デリミタを（デフォルトの"/pat/"
だと"/"をエスケープしなきゃいけなくなるので）"{pat}"にするよ、
とういうことでつな。

>読み込んだログファイルはどの変数に格納すればよろしいの
>でしょうか？
　普通に読み込めば？
open LOG, "hoge.log";
open OUT, ">fuga.csv";
while(<LOG>){
　　　　　#844さんのコード
　　　　　#その他必要な処理
　　　　　
　　　　　print OUT "$remote, $ident, $user, ・・・\n";
}
close OUT;
close LOG;
　みたいな感じで。

>>73
がなぜ
ドラゴンクエスト？

>844
>852

情報ありがとうございます。これってPerlの省略形だった
のですね。


１　変数の記述省略
　　while (<LOG>) {
　　　print;
　　}
　　
　　という指定は
　　
　　while ($xx = <IN>) {
　　　print $xx;
　　}
　　
　　という指定と同じことなのですね。私は常に変数を記述していた
　　（もっというと、配列に読み込んでforeachを使用していた）ので
　　わからなかったです。


２　m{ ... }x;　について
　　これが正規表現だということに気づきませんでした。
　　私はいつも
　　　$ =~ s#abc#def#x
　　という形で利用していたので、上記のような指定ができることを
　　知りませんでした。

もっと勉強します。本当にありがとうございました。

すいません。初心者なんですが、
正規表現にて日本語以外、ってどのように指定したらいいんでしょうか。
英字、数字、空白文字はOKで、日本語のみだめ。
jcodeとかつかわないとムリなんでしょうか？

[a-zA-Z0-9 ]

828さんどうもありがとうございました。

返事が遅くなりました。

/aaa::bbb
/bbb
/aaa::bbb/ddd
/bbb/ccc::ddd

つまり
/aaa::bbb
/bbb
等の繰り返し
# aaa:: は省略可能です。

などにマッチさせようとしてるんですけど駄目っす。
助けてください。↓今のとこ、こんな感じ

(/([^:/]+::)?[^:/]+)+
かなり的外れっぽいですが(汗

/^(?:\/(?:[a-z]+::)?[a-z]+)+$/;

●/aaa::bbb::ccc/ddd　のパターンを許すなら

/^(?:\/(?:[a-z]+::)*[a-z]+)+$/;

● / と : 以外の文字が[a-zA-Z_]なら
/^(?:\/(?:\w+::)*\w+)+$/;

さっそくありがとうございます >859

目的としているのは、>859見たいな奴ですが、
Invalid regular expressionとか出てしまいました(;_;
regex.cで（GREP？SED相当？）最終的にできればいいんですが。

どうも
?:
のとこでコケテます。

ちなみに、
いいい::あああ/ううう
とかも可能にしたかったりします。

あああ、いいい、ううう
に入れられる文字は:と/以外といった感じで。

()で囲まれた文字列だけ

str1,str2,str3(str4,str5,str6)str7,str8,str9 なら str4,str5,str6 だけ

"," →　"，" と変換したいのですが、
どういう文にすればいいですか？

s/\(([^\)]+),([^\)]+)\)/\($1，$2\)/g;

を何回か繰り返すことで何とか済ました（本当か？）のですが、
まともなやり方を知りたくなりまして。

(?: regexp)
は、部分正規表現のグルーピングなんですね。（レポートなし。
ということはこれは外してみて、

/^(\/([a-z]+::)?[a-z]+)+$/;
で、やってみたら通ったけどマッチせずでした。

薄識なんで、\/と最後の/の意味がわからないっす。

>>863
Perlの正規表現ではそう書く

>>862

1 while s/(\([^)]+),/$1，/g;

こっちがいいな
1 while s/(\([^),]*),/$1，/g;

正規表現で、入れ子ってどうやって扱えばよいのでしょうか？

[aa]
[aa[]
[aa[]]
から
[aa]
だけ許すみたいな。

単純に
\[[^\[\]]+\]
でやったら
[aa]にはかからず、[aaa[]]に引っかかっちゃいました。

>>865
めちゃくちゃシンプルですね。しかもレス早いし。
かなり助かりましたです。
どうもありがとうございました。

>>867
Perlで試したら1だけOK、他はマッチしなかったけど？

ほんまや・・・

#! /usr/bin/perl

@set= ("[aa]","[aa[]","[aa[]]");

foreach $value (@set){
if($value =~ /\[[^\[\]]+\]$/ ){
print "$value\n";
}
else{
print "not match\n";
}
}

PostgresのPOSIX正規表現で試してて、まぁ実際はregex.cで使う
予定だったので又実際に試してみましす。

#include <string.h>
#include <regex.h>

int main(int argc,char *argv[])
{

int i;
regex_t preg;
char *pattern = "^(\\[[^\\[\\]]+\\])+$";
puts(pattern);

/* Complile RE Pattern */
i=regcomp(&preg,pattern,REG_EXTENDED|REG_NEWLINE|REG_NOSUB);
if (i != 0){
puts("error\n");
return 1;
}

puts(argv[1]);
/* Evolute RE */
i = regexec(&preg,argv[1],(size_t) 0, NULL,0);
regfree(&preg);
if(i != 0 )
puts("no match\n");
else
puts("match\n");

return 0;
}

（続き)
うう、駄目っす(;_;

echo "[aaa]" | egrep "^(\[[^[]+\])+$"

ちなみに、
char *pattern = "^(\\[[^[]+\\])+$";
だと、
○[aaa]
○[aaa]]
×[aaa[]]
まで通る

ので、たぶん、[と]のエスケープが駄目のようなんですが。
perlのREって独自の実装だから通るって話ですか？
Rubyとかはgnu regex使ってると思うのでたぶん通らない（？

ここより、Cスレの方が適切かもしれんけどよろしこ！

うわ。WebProg板なのに、埋もれとる．．．
age！

"foo bar" =~ /f/　# => <<f>>oo bar
"foo bar" =~ /f*/　# => <<f>>oo bar
"foo bar" =~ /o/　# => f<<o>>o bar
"foo bar" =~ /o*/　# => <<>>foo bar

ruby でどこにマッチするかを表示させてみたのですが、
/o*/が先頭の空文字とマッチするのがどうも分かりません。なぜでしょうか。
f<<oo>> bar とマッチすると思っていたのですが。

あれ、最左最長だからこれでいいんだっけ…？

このサイト参考に
http://www.kt.rim.or.jp/~kbk/regex/regex.html

(\\[([^][])+\\])+$

でやったらでけますた

Perlスレを荒らしまくっているruby基地外の好きなrubyなんかの
質問には答えません。

布谷知夫 (1998) 環境教育の場としての里山. ランドスケープ研究 61: 296-298.
北尾邦伸 (1998) 風土・文化の伝承の場としての里山. ランドスケープ研究 61: 287-289.
横張真 (2000) 国内外の農政における環境保全の位置づけ.ランドスケープ研究, 63(3), 182-185.
加藤和弘・一之瀬友博・大久保悟 (1997) 都市近郊におけるコナラ林の組成および構造について.ランドスケープ研究, 60(5), 539-542.

のような参考文献一覧があり、
「ランドスケープ研究, 60(5)」の「60(5)」という数字で並び替えたいんですが、
やり方判る方いらっしゃいますか？
ランドスケープ研究の次は、スペースの時と、カンマ(, )の時とが、混在しています。

なお、もとデータはhttp://homepage.mac.com/hitou/satoyama/bunken.htmlから「ランドスケープ研究」というキーワードでgrepしたものです。

訂正。
-----
もとデーターは
http://www.ss.iij4u.or.jp/~osamu-s/bibliography.htm
と
http://ime.nu/homepage.mac.com/hitou/satoyama/bunken.html
で作ったファイルをｇｒｅｐしたものです。

>>878
タグがついてるし、複数行もあるけど？

>>878
Perlでなら簡単にできるが、シェルコマンドでやりたいの？

ソートできるのであれば、何でもいいんです。

それから、僕はタグはw3m -dumpしました。

>>882
これはどう？
while(<>) {
$landscape{$1} = $_ if /\Qランドスケープ研究\E.+?(\d.+)/;
}
foreach $key (sort {$a <=> $b;} %landscape) {
print $landscape{$key};
}
sjisでやるときのために、\Q\E入れますた。

>>883
で、できました！！！！

こんなに短く書けるのですね！！！

perlと883ﾀﾝ
って何てすばらしいんだろう！！！

>>884
よかったっすね。
ところで、書き込んでから後で気づいたんだけど、昇順ソートにもかかわらず、
61: 296-298.の方が61: 287-289.より前に来ちゃうのよね。どしてー？

>>885
"61: xxx-xxx"の61しか見てないからだよ。

>>886
(\d.+)/て最長（行末まで）に一致しない？

cmp と <=>

>>888(末広がりさん）
記号や空白は、数値としては解釈されないんですね。
ありが�d

#から#までをボールド
/から/までをイタリック

#hello# -> <b>hello</b>
/hello/ -> <i>hello</i>

s|#(.*?)#|<b>$1</b>|g;
s|/(.*?)/|<i>$1</i>|g;

としてましたが

#hello/nest#hello/
ってのがきちゃうと
<b>hello<i>nest</b>hello</i>
ってなっちゃいます。
<b>hello<i>nest</i></b><i>hello</i>
ってしたいんですけどスマートな解決法ありませんでしょうか？

>>890
#hello/nest/#/hello/

>>890
/だと閉じタグの/と紛らわしいので他のにしてください。

perlの正規表現で
29から44までの数字ってどう表しますか？

for(29..44)は使わないで、表現してください。

/(?:29|3[0-9]|4[0-4]/

カッコは不要か
/29|3[0-9]|4[0-4]/

えーと　テキスト中に入れ込むマクロということで、 [@ と @] でくくっています。
で、
[@ [@ xx @] @] <= 本文
1__2_____3__4 <= 話をわかりやすくするための括弧の通し番号

こんな風になったとき、最短の [@ xx @] (番号 2と3 ）を取り出したいのですが
最短一致で [@ .+? @] としても [@ [@ xx @] (番号 1と3 ）が取り出されます。
どうすればいいのでしょうか....
なお、xx の変わりに @ や [ や ] が単独で入る可能性はあるので、
[^@\[\]]+? は使えません

ちなみに jscript です

PHPの書籍で、メールアドレスにマッチさせるとして以下の正規表現が載っていました。
"^([a-z0-9_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,4}$"

"\"がふたつ続いている部分は、意味があるのでしょうか。
"\"をひとつにしてもちゃんとマッチしたのですが…。

> "\"がふたつ続いている部分は、意味があるのでしょうか。
ある
> "\"をひとつにしてもちゃんとマッチしたのですが…。
気のせい

>>898 ありがとうございます。

これでもマッチしますた。
<?php
$mail = "[email protected]";
if(eregi("^([a-z0-9_]|\-|\.)+@(([a-z0-9_]|\-)+\.)+[a-z]{2,4}$",$mail)) echo "yes!";
?>

どんな場合に"\\"が意味を持つのでしょうか。

>>899
マッチすべきでないものにもマッチしないか?
あくまで稚拙なテストでうまく動いてると言い張るなら勝手にしろ
> どんな場合に"\\"が意味を持つのでしょうか。
そんな場合

すみませんでした。
"\\"の意味を教えていただけないでしょうか。

正規表現のリファレンスページでは見あたらなかったので、
"\\"というくくり方（捉え方）がそもそも違うのかもしれませんが、
わたしの聞きたいところはご理解いただけないでしょうか。

"\\"は￥を表す

わたしの未熟な知識だと、
"\."は"."そのものを表し、"\\."なら"\"と任意のひと文字にマッチする…。
ということになるのですが、>>897の場合は違いますよね…？
どう違うのでしょうか。

>890
s{(?:#(.*?)#)|(?:/(.*?)/)}{
"<b>$1</b>" unless $1 eq undef;
"<i>$2</i>" unless $2 eq undef;
}ge;

これだと
#hello/nest#hello/ は
<b>hello/nest</b>hello</i> か。

invalid な HTML 吐かないだけマシって考えてください。

"\""="
"\\"=\
"\\."=\.
?

***@2ch.net

えと、905さんの真意は不明ですが、
わたしは905さんとほぼ同じように考えています。
ただし、"\\."だと、"\."という文字列ではなくて、
文字列としての"\X"とか、"\0"とかにマッチする、
つまり、"."は正規表現として扱われるのではないか、と。
そうだとすると、メールアドレスに"\"なんて含まないじゃないか、
なんて思ってしまうわけです。

906さんもヒントなのでしょうか？
***@2ch.netだと、"*"がマッチしないので、ダメですよね。
("\"のときも"\\"のときも)
[email protected]にしてみましたが、当然マッチします。
("\"のときも"\\"のときも)

"<a href=\"index.html\">" → <a href="index.html">
"\\" → /\/
"\\." → /\./
?

>>905, >>906, >>908
日本語不自由ですか？

>>909
FUCK OFF.

"^([a-z0-9_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,4}$"ってのはつまり
'^([a-z0-9_]|\-|\.)+@(([a-z0-9_]|\-)+\.)+[a-z]{2,4}$'でしょ？
"^([a-z0-9_]|\-|\.)+@(([a-z0-9_]|\-)+\.)+[a-z]{2,4}$"にしたら
'^([a-z0-9_]|-|.)+@(([a-z0-9_]|-)+.)+[a-z]{2,4}$'になっちゃうから、
たとえば「"@a>aa」などにもマッチするのでは？

>>911 ありがとうございます。
えと、無駄なものもあるのかもしれませんが、
$mail = 'a@a>aa';
$mail = '"a@a>aa';
$mail = '\"a@a>aa';
$mail = '"a@a\>aa';
$mail = '\"a@a\>aa';
以上のすべての$mailの場合で、
if(eregi("^([a-z0-9_]|\-|\.)+@(([a-z0-9_]|\-)+\.)+[a-z]{2,4}$",$mail)) echo "yes!";
以上の判別にマッチしませんでした。（yes!と表示されない）

もちろん
$mail = '[email protected]';
ならマッチします。

>>911さんがおっしゃりたかったのは、
正規表現として読まれる前の正規表現というか、
"\."をもう一度正規表現として読むと、
正規表現としての"."になってしまう、という意味ですよね。
でも、実際はそういう、二段階で読まれる構成にはなっていないようです。

わかりにくくしか書けなくてすみません。

ある文字数制限を越えたら、自動的に切りつめてくれる正規表現を書くにはどうしたら？

たとえば、制限文字数20文字だとして、

ｈｔｔｐ://dailynews.yahoo.co.jp/fc/science/astronomy/
↓
<a href="ｈｔｔｐ://dailynews.yahoo.co.jp/fc/science/astronomy/>
ｈｔｔｐ://dailynews.ya...
</a>

こんなのを考えてるんですが・・・

ttp://itp.ne.jp/servlet/jp.ne.itp.sear.SCMSVTop
タウンページでの検索結果を
CSVなどの構造化されたデータに変換する最も一般的な手段は
何でしょうか？

ぼくは今まで、w3m -dump →正規表現
と回してましたが、直接HTML読んでCSVなりに変換されている方
いらっしゃいませんか？

>>915
はげしく外出。>>789,>>800

>>914
ｈｔｔｐなんていう全角のurlがあるとは思われんので
レス不可能。

ごめん自己解決した。
phpでやってるんですが、

$text = eregi_replace(
"(http://[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]?)".
"[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%#]*",
'<a href="\0">\1</a>', $text);

こんな感じのでできました。
果てしなくコードきもいけど。
もっとスマートな方法あるんでしょうか。

>>917
いや、ほら、
掲示板で半角でhttpって打つと、
勝手にリンクに変換されてうざいじゃないですか。

>>918=914
{1,20}を使う。後は分かるはず

>>919
だーからー、
ｈｔｔｐ://dailynews.ya...
は、20文字制限って言ってるのに24文字でしょ、
もしかして、マルチバイト対応での話？

>>921
だーからー、
本当はソレは半角なんだが、
ここ(２ちゃんねる)では勝手にリンクに変換されてうざいってことでしょう。

おー、きもちいいくらいすっきりした。ありがとうです！

$text =
preg_replace("#ftp://([-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%\#]{1,16})[-_\.!~*'()a-zA-Z0-9;/\?:@&=+$,%\#]*#i",
'<a href="\0">\1</a>',
$text);

>>912 そうです。

できれば、「20文字以上を越えたら"..."つける」っていう機能もほしいな、
とか、思ったりしたり。。。。

書いてたら先越された・・・
「20文字を超えたら」のところはif文との組み合わせでしょ。

>>922
だーからー、じゃなかった、
そーれじゃー、
sedとかPerlで
s/(<a href=\")(ｈｔｔｐ:\/\/.............)(.+>)(<\a>)/$1$2$3$2$4/;
かいな。sedでは\1, \2 ...だったけや。

s{(http://[-\w\./~\%#\@&?]+)}{"<A href=\"$1\">".(length($1)>20?substr($1,0,20).'...':$1).'</A>'}ge;

(´Д｀)PHPだとe修飾子の関数内で後方参照が使えない。。。。

みんなPerl派なのかな。
はて、どうしようか。

むぅぅ、できた！

function e_modifier($match){
if(strlen($match[0]) > 20){
return "<a href=\"$match[0]\">".substr($match[0],0,20)."…</a>";
}else{
return "<a href=\"$match[0]\">".$match[0]."</a>";
}
}
$text = preg_replace_callback("|gopher://[-_\.!~*'()\w;/\?:@&=+$,%#]+|i", 'e_modifier', $text);

結構ながくなっちったなあ。
それにしても、完結に書ける分Perlはいいなあ。
>>926 さんのやつかっこいいコードです。

>>928
自分でできるんならいちいち聞くな。

あの、>>897の質問はもう放置でしょうか…。
やさしーい方が答えてくださるとうれしいです。
すみません、これでダメならもう聞きません。

その問題は、既に解決しています。

$word=~s/AA(\d+)$//;
とすると、数字がないときに$1に変な文字が入るのですが
どうすれば入らないようにできますか。

if ($word =~ s/AA(\d+)$//) {

}

>>932
変な文字が入る？ 例えばどんな？

>>934
ソースにない文字なので、ファイルのデータだと思われます。

my $var = '1';
my $foo = 'A';

$var =~ /(\d)/;
print $1, "\n";
$foo =~ /(\d)/;
print $1, "\n";

1
1

つうことじゃないの？
何で何をどうやってるのかわからんけど。

>>935がアフォに1票

$value =ereg(~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg);

長いと頭がこんがらがって・・・
誰かこの意味を教えてくださいｍ（＿）ｍ

間違えた。こうですた。

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

16進数？

意味ったって、１６進を１０進の文字コードに置換してるだけだろ

URLデコード

ある属性が含まれてるタグのみマッチさせたいってときは
どんな風な正規表現を組み立てたらいいんでしょう？

$attr ='class';

<\s*(?:\w+)(?:\s+(?:(?:$attr\s*=\s*".*?")|(?:\w+\s*=\s*".*?")))+\s*/\s*>

ってやったのですが、これだと

<a href=".."> みたいな属性が指定してあるタグ全部にひっかかってしまいます。