トップページ⇒php
986コメント301KB

正規表現道場@2ch

■ このスレッドは過去ログ倉庫に格納されています
0001ヽ(´▽｀)ノ2001/07/26(木) 09:03ID:???
以外と毛嫌いして居る人も多そうな正規表現、
でもperlを使いのなす上で避けて通れない道だったりするかもです。
そこで、スクラップブック的に目に止まったカッコイイ正規表現を
書き留めておこうと言うスレッドです。
質問する時は言語と、得たい結果をなるべく詳しく書いてね。

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

もっとｲｲ（・∀・） リンクは>>2-10さん辺りが書いてくれるカモ････
0003_gunzip2001/07/26(木) 09:16ID:???
http://www.cc.rim.or.jp/~midorin/mad-p/RegexDiagram.html
http://www.cc.rim.or.jp/~midorin/mad-p/perl/benkyou/PRC2kRegex/
この辺りも参考になるかな。
0004名無しさん＠お腹いっぱい。2001/07/26(木) 12:33ID:???
名スレへの期待･･･。
0005加奈子2001/07/26(木) 15:30ID:???
うふん♪うふふ♪
わたしの魔法で名スレにしちゃうわよん♪（らぶらぶはぁと）

素晴らしい正規表現教えてね♪
すっご〜いの書いてくれた坊やには、ご褒美として
お姉さんが、やさ〜しく、童貞を奪って・ア・ゲ・ル・わよん♪うふ★（はぁと）
0006名無しさん＠お腹いっぱい。2001/07/26(木) 16:42ID:???
foreach (@女友達) {
($輪郭,$目,$鼻,$口,$性格,$髪型,$マンコの臭さ,$締まり,$喘ぎ声) = split(/\t/, $_);

if ($目 =~ /ひとえ/) {
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
exit;
}
}
000762001/07/26(木) 16:45ID:???
１人目が一重だったら素敵な出会いを逃してしまう・・・鬱だ逝ってくる
0008初心者用2001/07/26(木) 18:38ID:rraA5UWo
$hoge = 'ababab';

$hoge =~ s/ab/abab/g;
と
while( s/ab/abab/ ){}
のヤヴァイ違いを理解すべし。
0009名無しさん＠お腹いっぱい。2001/07/26(木) 20:42ID:???
>>8
それじゃ動かないだろ｡
0010名無しさん＠お腹いっぱい。2001/07/27(金) 00:07ID:M7QCgAvY
有限オートマンコ
0011名無しさん＠お腹いっぱい。2001/07/27(金) 00:40ID:???
1の

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

という願いはほぼ崩れ去ったな。気の毒に…
0012名無しさん＠お腹いっぱい。 2001/07/27(金) 06:26ID:???
わははは　まぁ良いじゃんまったりいこうや
$hoge =~ s/</</;
0013名無しさん＠お腹いっぱい。2001/07/27(金) 10:34ID:???
>>12 ??
0014名無しさん＠お腹いっぱい。2001/07/27(金) 16:33ID:???
@hoge = m/([0-9a-zA-Z.\-_]{3,20}\@[0-9a-zA-Z.\-_]{5,})/;
0015名無しさん＠お腹いっぱい。2001/07/27(金) 17:43ID:9sLGF54Q
$strings = m/
\s+ | # Space
[\x21-\x7E]+ | # Latin
(?:[\xA1-\xA2][\x00-\xFF])+ | # Symbol
(?:\xA3[\x00-\xFF])+ | # Eisuu
(?:\xA4[\x00-\xFF]|\xA1\xBC)+ | # Hiragana
(?:\xA5[\x00-\xFF]|\xA1\xBC)+ | # Katakana
(?:\xA6[\x00-\xFF])+ | # Greek
(?:\xA7[\x00-\xFF])+ | # Russian
(?:\xA8[\x00-\xFF])+ | # Keisen
(?:[\xB0-\xF4][\x00-\xFF])+ | # Kanji
. # Other
/gx;

EUC-JPの文字列から漢字、平仮名、カタカナ、アルファベットの文字列をﾌﾞﾘﾌﾞﾘ切り分ける
from perl-oo
0016名無しさん。2001/07/27(金) 18:45ID:OFQPU1uA
shift_jisの日本語にマッチさせるには？
0017名無しさん＠お腹いっぱい。2001/07/27(金) 22:53ID:???
>>13
$hoge =~ s/</&lt;/;
と書きたかったのだと思われ
0018名無しさん＠お腹いっぱい。2001/07/29(日) 13:17ID:???
$hoge =~ s/クソスレ/良スレ/g;
0019名無しさん＠お腹いっぱい。2001/07/29(日) 15:06ID:???
>>18
気持ちはわかる。願望だ。（ｗ
0020出題君@fushianasan2001/07/29(日) 15:47ID:hCDIdcLQ
出題
ﾏｯﾀﾘ、セックス、オナニー を
ﾏﾀｰﾘ、ｾｸｰｽ、ｵﾅｰﾆ に換える
0021名無しさん＠お腹いっぱい。2001/07/29(日) 18:16ID:???
$hoge =~ s/>>20の出題センス//g;
0022名無しさん＠お腹いっぱい。2001/07/29(日) 23:15ID:1COkoXYs
PerlでHTMLからリンク抜き出すの教えてくだされ。　重複無しで整列して表示したりするのきぼー。
下のは練習に書いてみたやつ。　なぜか最後のprintでコンパイルエラー出まする。

study $html;
$pattern = '<A href="([^"]+)">';
while ( $html =~ /$pattern/is ) {
　$html =~ s/$pattern//is;
　push( @_, $1 );
　print "$1\n";
}
#print "$_\n" foreach(@_);
0023棺2001/07/30(月) 00:50ID:tCdJa/Mc
$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
0024名無しさん＠お腹いっぱい。2001/07/30(月) 01:06ID:???
>>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
0025222001/07/30(月) 02:15ID:???
>>23, >>24
　置き換えする時にサブルーチン呼んだり、ハッシュ使ったり、モジュール使ったりと
いろんな技があるんですね。勉強になりますた。
　大きなのに固定正規表現使う時はoを使うことにします。
　感謝。
0026棺＠ﾏﾀｰﾘ週間2001/07/31(火) 00:34ID:???
>>24

わたすもべんきょうになりますた。感謝ヽ(´ー`)ﾉ
0027名無しさん＠お腹いっぱい。2001/08/02(木) 14:18ID:???
えっと、ここは質問してもいいんですよね？
激しく定番なのかもしれませんが、

<FOO>
hogehogehogehoge
hogehogehogehoge
hogehogehogehoge
hogehogehogehoge
</FOO>

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

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

厨房くさくてｽﾐﾏｾｿ
0028JAPU@ほえほえ2001/08/02(木) 14:44ID:???
m[<FOO>.*?</FOO>]s では?
0029名無しさん＠お腹いっぱい。2001/08/02(木) 14:54ID:???
>>28
はぁ。やっぱ普通そうですよね。。。
ってsオプション？
知らない…調べてきます。

レスさんくすです。
0030272001/08/02(木) 14:56ID:???
29=27でした。
ちなみにJAPUタンとタメ歳なのです…。
この違いは…
0031272001/08/02(木) 15:00ID:???
>>28
おおお！なるほど。s,m。こんなのがあったんですね。
よさげです。試してみます。ありがとうございます。
0032JAPU@スクルド萌え2001/08/02(木) 15:35ID:???
通常 "." は [^\n] と等価ですが、"s" 修飾子を付けると "\n" にもマッチするようになりますにゃん。
この辺の説明はらくだ本だとちょっと不親切な気がする。

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

>>27
たまたま この分野で、少しだけ詳しいだけなので、
あまり気にしていてはダメよん。
0033名無しさん＠お腹いっぱい。2001/08/02(木) 15:51ID:???
良スレ認定します
0034名無しさん＠お腹いっぱい。2001/08/02(木) 16:11ID:???
&kaere if ( $人間 =~ /^ﾁｬﾝｺﾛ/i );
0035名無しさん＠お腹いっぱい。2001/08/04(土) 00:26ID:b7KA9zTo
みんな、諸説正規表現は、読んでる？
0036名無しさん＠お腹いっぱい。2001/08/04(土) 02:38ID:???
>>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);
}
0037初期不良2001/08/06(月) 01:45ID:VQtSpJpE
>>28
類似性相似性を見るとむずむずするので
後方参照の例題的なものを利用。

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

スレ違いだけどみんな foreach ってわざわざ書くの？
俺は for でいいって聞いてからずっと for なんだが...
わかりにくかったりするかな。
0038名無しさん＠お腹いっぱい。2001/08/06(月) 02:38ID:???
普通はforeach、短いスクリプトだとfor
#foreachは長くて目立つので
0039名無しさん＠お腹いっぱい。2001/08/06(月) 11:48ID:Ij2f2Gkc
oオプション使うと、
mod_perlや、speedycgiで前のパターンが残ってしまいますが、
これの回避方法ってありますか？
0040名無しさん＠お腹いっぱい。2001/08/06(月) 12:27ID:???
>>39
oオプションを使わない
っつか正規表現とは関係ないと思うのだが？
>>38もな
0041名無しさん＠お腹いっぱい。2001/08/06(月) 16:43ID:???
>>40
死きり屋uZeeeeee
0042名無しさん＠お腹いっぱい。2001/08/06(月) 21:20ID:???
>>41
オマエモナー
0043名無しさん＠お腹いっぱい。2001/08/12(日) 14:24ID:???
gオプションでパターンマッチングした際にマッチングした回数が入っている
特殊変数は有りませんか? "$&"がマッチングした文字列みたいなんですが････
本にも　$`　$'　辺りしか載っていないのです。
他の方法でも大丈夫なのですが、前に何かで見た気がして必死でさがしてる
のですが、見つからないのです　　(汁;;
気のせいだったのかなぁ････
0044名無しさん＠お腹いっぱい。2001/08/12(日) 14:38ID:???
my $tmp = "pattern";
my $count = ($tmp =~ s/t/T/g);
print "$count 個の t を T に置換しました\n";

こんな感じ？
0045432001/08/12(日) 15:23ID:???
ええっ、、何ですかこれは　＠＿＠!!
聞いてみるものだなぁ。。。勉強になりますぅ
今までtでsplitして要素数をみてた馬鹿なおいら　　＾＾
>>44　　ありがとう、もっと精進します
0046名無しさん＠お腹いっぱい。2001/08/20(月) 06:59ID:???
優良スレage
ついでに前に掲示板スレかどっかにあった荒らし制限を載せてみる。
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ
s/(...+?)\1\1+/$1$1$1/;
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ
0047名無しさん＠お腹いっぱい。2001/08/20(月) 10:32ID:???
オプションじゃなくて修飾子ねsage
0048名無しさん＠お腹いっぱい。2001/08/20(月) 11:07ID:???
>>43
ちゃんとした解説本を読んでみよう、ちゃんとのってるよ
0049名無しさん＠お腹いっぱい。2001/08/21(火) 02:46ID:Tv58Rzyg
>>46 最初のしかできないじゃん。
ｱﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬｵﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮﾋｮ
$char = 2; $repeat = 3;
s/(.{$char,}?)\1{$repeat,}/$1x$repeat/eg;
ｱﾋｬﾋｬﾋｬｵﾋｮﾋｮﾋｮ
0050名無しさん＠お腹いっぱい。2001/08/22(水) 03:34ID:zNoLcpmA
まずオライリーの正規表現本買ってみ
目からウロコ
0051名無しさん＠お腹いっぱい。2001/08/22(水) 17:41ID:B/pBRo0o
>>50
禿同！
鱗どころか、鎧が落ちた気がした。
0052名無しさん＠お腹いっぱい。2001/08/22(水) 17:44ID:???
>>50
ふくろう本ってやつですか?
買って見ようかな、、オークに嵌っている今日この頃　(^_^;
0053名無しさん＠お腹いっぱい。2001/08/25(土) 13:20ID:???
age
0054名無しさん＠お腹いっぱい。 01/09/01 00:11ID:EyspkUdI
良スレあげ、、前に結構マニアックなWEBがあったんだけど
見失っちゃったよ。
sedとかも載ってて薄緑のページ。
確かorgドメインだったかな、、面白いサイトは無いかなー
0055名無しさん＠お腹いっぱい。01/09/03 23:49ID:kJGORBzs
なんちゃってプログラマーです｡

たとえば

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

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

既出事項であったらすみません。
0056名無しさん＠お腹いっぱい。01/09/04 02:02ID:lxASoDUY
PHPで、strlen($text)とやると、テキスト名のバイト数が返されるくせに
require($text)とやると中味のバイト数が返されるのはなぜだ？
教えろ。
0057名無しさん＠お腹いっぱい。01/09/04 23:35ID:hpdQ0NnY
>>55
なにをどうしたいのさ。
伏せ字でも少し載せて，伏せたいのと伏せたくないのも
載せたほうが答えもらえると思われ。
0058名無しさん＠お腹いっぱい。01/09/05 21:06ID:zThM7aIk
$input = $ARGV[0];
$input =~ s/([.]*)/-----$1-----/; #inputを-----で囲みたいです
print "$input\n";
ってやって、、
$.test.pl 111{}222{}333
ってやると
----------111{}222{}333
こうなります、
-----111{}222{}333-----
何故こうならないのでしょうか、
と言うか目的からは程遠い所なんですが、多分バックトラッキングが理解
出来てないからだと思うのですが。
絶対僕の思ったように動かないに決まってます。
0059名無しさん＠お腹いっぱい。01/09/05 21:15ID:ongErcHE
>>58

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


てゆーか囲むだけなら

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

で良いべさ
0060名無しさん＠お腹いっぱい。01/09/05 21:27ID:zThM7aIk
ありがとうです、
えと、それはそうなんですが正規表現の勉強と言う事で　(^^
ちなみにevalして
$input =~ s/([.]*)/'-----'.$1.'-----'/e;
こんな風にしても結果は同じなんです。
何か一歩も前に進めない感じで　　　とほほ
0061名無しさん＠お腹いっぱい。01/09/05 22:13ID:L1KgWH9s
>60
59が答を書いてるだろがｺﾞﾙｧ
.を[]の中に入れたら任意の1文字じゃねーぞｺﾞﾙｧ
0062名無しさん＠お腹いっぱい。01/09/05 22:37ID:mJCW7B8k
>>60
とほほつながりでここでも見て勉強すれ。
http://tohoho.wakusei.ne.jp/wwwperl1.htm#Expr
0063名無しさん＠お腹いっぱい。01/09/06 01:36ID:ji/LQ9h6
ありがとう! 、何だかスレのレベルを一気に下げちゃったみたい
ですけど、　(＾＾;
しかし上手く動いてくれないんだよなぁ･･･
詳説正規表現って言うのは難しすぎるし
とほほに逝って来ますぅ
0064名無しさん＠お腹いっぱい。01/09/06 01:55ID:Ut37ZYfk
みんな*つかってるけど
(.*)じゃなくて(.+)じゃないの？
0065名無しさん＠お腹いっぱい。01/09/06 02:02ID:jxYvqj8.
>>64
場合による
0066名無しさん＠お腹いっぱい。01/09/06 02:07ID:Ut37ZYfk
>>65
(.*)って，どんな時に使うんですか？
文字に反応しない時がありそうなんで，まったく想像がつかないんですが。
0067名無しさん＠お腹いっぱい。01/09/06 06:20ID:sO/Rg6CI
梅干し食べて酸っぱい時。
0068名無しさん＠お腹いっぱい。01/09/06 06:30ID:jxYvqj8.
>>66

>>62のリンク先ぐらい見てから聞け。
0069名無しさん＠お腹いっぱい。01/09/08 10:24ID:???
(*^o^*)
0070名無しさん＠お腹いっぱい。01/09/08 13:08ID:Lvui7oF6
今日の勉強のおと

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

. (どっと）
*(アスタリスク）
+（ぷらす）
?（くえすちょん）
[（れふとすくえあ
]（らいとすくえあ
`（ばっくくおと
$（だら
\（ばくすらしゅ
0071名無しさん＠お腹いっぱい。01/09/08 19:26ID:???
>70
　大昔backslashをもじった「バクスラ」ってphotonのチームがありましたなぁ

　ちなみに「{」「}」と「<」「>」はどう読んでます?
0072名無しさん＠お腹いっぱい。01/09/08 19:47ID:Lvui7oF6
れふとかーりーぶらんけっと {
らいとかーりーぶらんけっと }
れふとぱーれん (
らいとぱーれん )
0073名無しさん＠お腹いっぱい。01/09/09 14:29ID:NSJpQxzQ
　○
□＋／
　大

どらごんくえすと
0074名無しさん＠お腹いっぱい。01/09/09 20:23ID:???
>72
　どもでした:-)

>73
　ワラタ（笑）
0075名無しさん＠お腹いっぱい。01/09/11 12:31ID:StTUkJnk
任意の２文字以上続く文字
例えば

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

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

を

****

■■■■

とか短くする正規表現教えてくなさい
0076名無しさん＠お腹いっぱい。01/09/11 12:41ID:???
>>75 >>1のリンクぐらい見てから聞け。

#! perl

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

print $str;
0077名無しさん＠お腹いっぱい。01/09/11 18:42ID:WwJLyJnk
ｐｅｒｌって奥深い
0078petronius01/09/11 20:22ID:???
>>76
「任意の」２文字以上続く文字だろ？
$str =~ s/(.)\1+/$1/g;
0079petronius01/09/11 20:27ID:???
ああ、■とかのときは $str =~ s/(..)\1+/$1/g; に変えてね。
しかし、これじゃ任意じゃないな。スマソ。
0080名無しさん＠お腹いっぱい。01/09/11 21:34ID:???
じゃあファイナルアンサー

$str =~ s/(.|..)\1+/$1$1/g;
0081名無しさん＠お腹いっぱい。01/09/12 02:40ID:???
ドロップアウト
0082名無しさん＠お腹いっぱい。01/09/24 10:09ID:???
変なスレばっかなので上げっ
詳説買ってきたよ〜　でも難しい　　（鬱
0083名無しさん＠お腹いっぱい。01/09/25 05:55ID:I2K.uRSs
英単語の先頭の文字だけを大文字に変換する方法があったら教えてくだされ。
this is a pen
を
This Is A Pen
とかにしたいの。よろしく〜。
0084JAPU@CGI関連のコンテンツは移動した...01/09/25 06:16ID:???
$hoe = join " ", map { ucfirst } split /\s+/, $moe;
...と思ったけど、正規表現スレッドなので、
s/(?<!\S)(.)/uc $1/eg;
としておこう。:-)

# 詳説正規表現は難しいね。
0085名無しさん＠お腹いっぱい。01/09/25 12:35ID:???
>>83

別解で

s/(\w+)/ucfirst $1/eg;
0086名無しさん＠お腹いっぱい。01/09/26 00:14ID:???
s/\b(\w+)\b/\u$1/g
0087名無しさん＠お腹いっぱい。01/10/04 15:47ID:KFx.YrhY
あのお、教えてください。
正規表現で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";
00888701/10/04 15:51ID:???
上の検証用に半角全角対応ハッシュも書いときます。

my %han2zen = (
'｡'=>'。', '｢'=>'「', '｣'=>'」', '､'=>'、', '･'=>'・', 'ｦ'=>'ヲ', 'ｧ'=>'ァ',
'ｨ'=>'ィ', 'ｩ'=>'ゥ', 'ｪ'=>'ェ', 'ｫ'=>'ォ', 'ｬ'=>'ャ', 'ｭ'=>'ュ', 'ｮ'=>'ョ',
'ｯ'=>'ッ', 'ｰ'=>'ー', 'ｱ'=>'ア', 'ｲ'=>'イ', 'ｳ'=>'ウ', 'ｴ'=>'エ', 'ｵ'=>'オ',
'ｶ'=>'カ', 'ｷ'=>'キ', 'ｸ'=>'ク', 'ｹ'=>'ケ', 'ｺ'=>'コ', 'ｻ'=>'サ', 'ｼ'=>'シ',
'ｽ'=>'ス', 'ｾ'=>'セ', 'ｿ'=>'ソ\','ﾀ'=>'タ', 'ﾁ'=>'チ', 'ﾂ'=>'ツ', 'ﾃ'=>'テ',
'ﾄ'=>'ト', 'ﾅ'=>'ナ', 'ﾆ'=>'ニ', 'ﾇ'=>'ヌ', 'ﾈ'=>'ネ', 'ﾉ'=>'ノ', 'ﾊ'=>'ハ',
'ﾋ'=>'ヒ', 'ﾌ'=>'フ', 'ﾍ'=>'ヘ', 'ﾎ'=>'ホ', 'ﾏ'=>'マ', 'ﾐ'=>'ミ', 'ﾑ'=>'ム',
'ﾒ'=>'メ', 'ﾓ'=>'モ', 'ﾔ'=>'ヤ', 'ﾕ'=>'ユ', 'ﾖ'=>'ヨ', 'ﾗ'=>'ラ', 'ﾘ'=>'リ',
'ﾙ'=>'ル', 'ﾚ'=>'レ', 'ﾛ'=>'ロ', 'ﾜ'=>'ワ', 'ﾝ'=>'ン', 'ﾞ'=>'゛', 'ﾟ'=>'゜',
'ｶﾞ'=>'ガ', 'ｷﾞ'=>'ギ', 'ｸﾞ'=>'グ', 'ｹﾞ'=>'ゲ', 'ｺﾞ'=>'ゴ',
'ｻﾞ'=>'ザ', 'ｼﾞ'=>'ジ', 'ｽﾞ'=>'ズ', 'ｾﾞ'=>'ゼ', 'ｿﾞ'=>'ゾ',
'ﾀﾞ'=>'ダ', 'ﾁﾞ'=>'ヂ', 'ﾂﾞ'=>'ヅ', 'ﾃﾞ'=>'デ', 'ﾄﾞ'=>'ド',
'ﾊﾞ'=>'バ', 'ﾋﾞ'=>'ビ', 'ﾌﾞ'=>'ブ', 'ﾍﾞ'=>'ベ', 'ﾎﾞ'=>'ボ',
'ﾊﾟ'=>'パ', 'ﾋﾟ'=>'ピ', 'ﾌﾟ'=>'プ', 'ﾍﾟ'=>'ペ', 'ﾎﾟ'=>'ポ',
);
0089名無しさん＠お腹いっぱい。01/10/04 17:00ID:???
>>87
jcodeじゃだめか？
ってここは正規表現スレだな
0090名無しさん＠お腹いっぱい。01/10/04 22:34ID:a.Dq8AyI

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

いつも通りこう書いたんだけど、$bad はやっぱり上手くいかない。
縦棒って最初にマッチした奴にマッチして終わりじゃなかったっけ？
誰か教えてくれ。
0091名無しさん＠お腹いっぱい。01/10/05 04:22ID:???
>>90
＞縦棒って最初にマッチした奴にマッチして終わり
そうだよ。
うえのやつは全角相当のパターンが違うんでないの。
見やすくするためスペース入れると、

×( [\x81-\x9F][\x40-\x7E] | [\xE0-\xEF][\x80-\xFC] | [\xA1-\xDF] | . )
○( [\x81-\x9F\xE0-\xEF][\x40-\x7E\x80-\xFC] | [\xA1-\xDF] | . )

だと思う。少なくとも$badはこれでいけた。
00929001/10/05 20:50ID:???
>>91
ああそうかぁ。サンクス。
http://ash.or.jp/ash/tips_prog/htm/code.htm
ココみてパターン書いたんだけど、見方間違えてたよ。

そういえば最後のドットは要らないかな、と思った。
00938701/10/07 17:56ID:G6cvoZz6
>>89-92
ありがとー。
00948701/10/07 18:28ID:???
まとめ。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";
00958701/10/07 18:42ID:???
う。>>94だと"ﾏﾞ"が変換されずに残っちゃうです。
>>89-92の人の責任じゃなくて俺のせいっす。鬱だ。。。
00968701/10/08 01:19ID:???
よし！これで大丈夫。たぶん。。きっと。。。

# 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";
0097名無しさん＠お腹いっぱい。01/10/10 00:05ID:???
apacheで、
ttp://hogehoge/cg\img.jpg
を↓にリダイレクトしたい。
ttp://hogehoge/cg/img.jpg

しかし↓これだと動かない。
RedirectMatch ^/([^\?]*)\\(.*)$ /$1/$2
なぜだか判る？
0098名無しさん＠お腹いっぱい。01/10/10 00:06ID:???
pathに\はおかしいのでは？
0099名無しさん＠お腹いっぱい。01/10/10 00:09ID:???
>>98
しかしIEだとちゃんと表示できるからユーザーは気が付かずに使っちゃうのよ。
他の正常なブラウザだと404になるからリダイレクトしたいの。
01009001/10/10 01:00ID:???
mod_rewriteでの記法はよく知らんけど、
最初の ^/ は、 / にしないと駄目でない？
01019001/10/10 01:04ID:???
mod_rewriteじゃなかった（恥
0102名無しさん＠お腹いっぱい。01/10/10 01:54ID:???
良く調べた！　SIFT_JIS決め撃ちの所で使えるね　(・∀・)♪
■ このスレッドは過去ログ倉庫に格納されています