正規表現道場@2ch Part2
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/11/24 22:57ID:LrbVcl3Yこのスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに
質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。
リンクなどは>>2-5のあたりに。
0514nobodyさん
03/05/20 01:10ID:???$a='C:\Program Files\Apache Group\Apache\conf\httpd.conf';
perl test.plというようにカレントディレクトリから実行して下のような値が入った場合はファイル名を取得できません。
$b='httpd.conf';
$a='C:\Program Files\Apache Group\Apache\conf\httpd.conf';
$b='httpd.conf';
両方の値からhttpd.confだけを抜け出せないでしょうか。
スレ汚しで申し訳ないです。
0515nobodyさん
03/05/20 01:11ID:???my $path1 = $0;
print "$path1\n";
($_)= $path1 =~ /\\([^\\]+)$/;
$path1 = $_;
print "\$path1 :\n";
print "$path1\n\n";
my $path2 = $0;
print "$path2\n";
($_)= $path2 =~ /^.+\\(.+)$/;
$path2 = $_;
print "\$path2 :\n";
print "$path2\n\n";
$a='C:\Program Files\Apache Group\Apache\conf\httpd.conf';
($_)=$a=~ /^.+\\(.+)$/;
print "\$a :\n";
print;
print "\n";
$b='httpd.conf';
($_)=$b=~ /^.+\\(.+)$/;
print "\$b :\n";
print;
#--------------------------------------
0516nobodyさん
03/05/20 09:12ID:???print "$1";
っていうか use File::Basename; 使え。
0518515
03/05/20 12:30ID:???my $path1 = $0;
print "$path1\n";
($_)= $path1 =~ /\\([^\\]+)$/;
$path1 = $&;
print "\$path1 :\n";
print "$path1\n\n";
my $path2 = $0;
print "$path2\n";
($_)= $path2 =~ /^.+\\(.+)$/;
$path2 = $&;
print "\$path2 :\n";
print "$path2\n\n";
my $path3 = $0;
print "$path3\n";
($_)= $path3 =~ /[^\/\\]+$/;
$path3 = $&;
print "\$path3 :\n";
print "$path3\n\n";
my $path4 = $0;
print "$path4\n";
($_)= $path4 =~ /([^\\]\+)$/;
$path4 = $&;
print "\$path4 :\n";
print "$path4\n\n";
#--------------------------------------
0519515
03/05/20 12:33ID:???$a='C:\Program Files\Apache Group\Apache\conf\httpd.conf';
($_)=$a=~ /[^\/\\]+$/;
print "\$a :\n";
print "$&\n";
print "\n";
$b='httpd.conf';
($_)=$b=~ /[^\/\\]+$/;
print "\$b :\n";
print "$&\n\n";
$a='C:\Program Files\Apache Group\Apache\conf\httpd.conf';
($_)=$a=~ /([^\\]\+)$/;
print "\$a :\n";
print "$&\n";
print "\n";
$b='httpd.conf';
($_)=$b=~ /([^\\]\+)$/;
print "\$b :\n";
print "$&\n";
#--------------------------------------
スレ汚しに付き合って頂いて感謝でした。
0520nobodyさん
03/05/20 12:47ID:ridin1oOuse File::Basename;
$path = 'C:\Program Files\Apache Group\Apache\conf\httpd.conf';
$file = basename($path);
print $file;
0521あぼーん
NGNG0522山崎渉
03/05/22 01:59ID:???0523nobodyさん
03/05/25 03:32ID:???0524あぼーん
NGNG0525山崎渉
03/05/28 17:06ID:???ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
0526nobodyさん
03/06/06 19:09ID:GD1DFdBg[a-zA-Z0-9,\?]
で良いのでしょうか。
やりたいことは、↓です。
function check($address){
if ( ereg("^[a-z,A-Z,0-9,\(,\),\.,\_,\/,\+,\?,\-]+@[^.@!\"#$%&'()~^|]+\.[^@!\"#$%&'()~^|]*[^.@!\"#$%&'()~^|]$", $address)){
return true;
}
else{
return false;
}
}
$email_1 = "a(a)a?_s-/[email protected]";
$email_2 = "a(a)a_s-/[email protected]";
$email_1も$email_2もtrueが返ってきてほしいのに、
$email_2のみがtrueで返ってきます。。
?そのもにをマッチさせるにはどうすれば良いのでしょうか。
0527あぼーん
NGNG0530526
03/06/09 10:45ID:???はい。PHPです。どちらもtrueが返るようになりました。
原因は、「if ( ereg("^[a-z,〜〜〜」を通す前にさらにチェックしていてそこで引っかかっていました。
正規表現とは関係なくてすいませんでした。
>>529
そこはperlだったのですが参考になりそうなページでした。ありがとうございました。
0531yoko
03/06/10 13:46ID:QvCU0It/以下のような形式のテキスト ファイルを扱っています。生徒から備考までを
1 ブロックとして、生徒番号 800 までのブロックがあります。本当は XML か
CSV で管理するべきだと思うので近いうちに変換する予定です。
生徒: 1名前: 田中得意科目: 数学苦手科目: 古文備考: 2 学期より編入
生徒: 2名前: 山田得意科目: 国語苦手科目: 世界史備考: 模試未受験
生徒: 3
..
今正規表現をつかって各データの手直しをしているのですが、とても簡単なと
ころでつまづいています。
"生徒: 2" から "生徒: 2." という具合に、生徒行の数字の後ろにピリオドを
つけたいのですが、どのような表記で置換処理をしていいのかわかりません。
"生徒: [[0-9]+|[02-9]]" で "生徒:" とその数字部分を検索でヒットするこ
とはできるのですが、これを "生徒: [[0-9]+|[02-9]]." で置換しても "生徒:
[[0-9]+|[02-9]]." に入れ替わるだけです。大きな勘違いをしているとは思
うのですが…正規表現の資料をみてもここから先に進むことができません。
すごくつまらない質問だとは思いますが、どなたかみていただけないでしょう
か。
0532yoko
03/06/10 13:48ID:???書き直します。
生徒: 1
名前: 田中
得意科目: 数学
苦手科目: 古文
備考: 2 学期より編入
生徒: 2
名前: 山田
得意科目: 国語
苦手科目: 世界史
備考: 模試未受験
生徒: 3
..
0533nobodyさん
03/06/10 13:56ID:wps94NoxAAAAA http://www.a.com/
BBBBB http://www.b.com/
CCCCC http://www.c.com/
というタイトルとURLのペアのファイルがあるとします。
で、例えば
「AAAAAはBBBBBでCCCCC」
というテキストを
「<a href="http://www.a.com/">A</a>は<a href="http://www.b.com">〜」
みたいに変換したいです。
上記のペアでしたら、順に検索して置換すれば済むことですが、もし
最後の方に下記みたいなペアがあると
href http://www.href.com/
「<a <a href="http://www.href.com">="http://www.a.com〜」
のように変換されてしまいます。
こういう場合はどうすればいいんでしょうか？
できればそれぞれの置換したい単語が元のテキストを参照できるようにしたいです。
0534nobodyさん
03/06/10 14:34ID:???おそらく秀丸のヘルプ嫁。かと。
正規表現の互換があるかどうか判らないが Perl だと、
s/(生徒: \d?\d)/$1\./g; 等。
>>533
ﾁｮｿなのでニポンコよくわからないてす。
ニポンコむつかしにだ。
0535nobodyさん
03/06/10 23:58ID:???ヘルプ開いて「タグ付き正規表現」というのを読めば幸せになれるかと
0536nobodyさん
03/06/11 01:31ID:???#!/usr/local/bin/perl
my $text = "AAAAAはBBBBBでCCCCCなhrefさ";
my %dictionary = (
"AAAAA" => "http://www.a.com/",
"BBBBB" => "http://www.b.com/",
"CCCCC" => "http://www.c.com/",
"href" => "http://hre.f.com/",
);
my $pattern = join('|', map { quotemeta($_) } keys(%dictionary));
$text =~ s/(${pattern})/<a href="$dictionary{$1}">$1<\/a>/g;
print "[$text]\n";
0537nobodyさん
03/06/11 02:54ID:???0538yoko
03/06/11 13:19ID:FQ/QXZetありがとうできました！
ﾁｭﾊﾟ （←フェラ）
0542nobodyさん
03/06/11 16:25ID:u2aqyjyIすみません、一つ質問させてください。
HTMLファイル内のアンカータグで指定されているURLを全てエンコードして返すコードを書きましたが、どうも思う
ように動いてくれません。問題のコードは下記となっております。
-----------------------------------------------------
while(<FH>){
if($_ =~ /\<a.*?href.*?\=.*?\>/ig){
my $tmp = $_;
while($tmp =~ /(.*\<a.*?href.*?\=)(.*?)(\>.*?)(\<|\n)/ig){
my $tmp1 = $1; my $tmp3 = $3;
my $tmp2 = main::url_encode($2);#エンコードルーチン
$tmp2 =~ s/\%20//g; $tmp2 =~ s/\%22/\"/g;
$index_file .= $tmp1 . $tmp2 . $tmp3;
}
}
else{
$index_file .= $_;
}
}
-----------------------------------------------------
1行に2つ以上のアンカータグがあった場合を考えてwhileを使用しておりますが、その部分の正規表現に問題が
あるというところまでわかっていながら、全く前進せぬまま日が変わってしまいました。情けないです。
ここの正規表現の区切りとなるものが曖昧なことから、うまく認識してくれず、整形後のHTMLファイルがおかしく
なってしまっているのだと思われます。
もし宜しければ、教えてください。
すみませんが宜しくお願いいたします。
0544nobodyさん
03/06/11 19:24ID:???$reg "s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]";
while ( $txt =~ /$reg/g ) {
．
．
．
}
0545nobodyさん
03/06/11 20:35ID:???貴重なヒント感謝です。
しかし、厨房な私にはどうも理解できていないみたいです。
せっかくのヒントをいただきながら、本当に申し訳ありません。
0547nobodyさん
03/06/13 23:26ID:sIi8OqiB↑このような正規表現の場合、これは
頭が"$"or"%"or"@"のいずれかから始まって
続いて、アルファベット以外が来る場合。だと思うのですが？
最後の*?はどういう意味でしょうか？
*は0字以上、?は0か1だと覚えているのですが･･･
0548547
03/06/13 23:27ID:???強調表示するためのものです（perl版)。
0549nobodyさん
03/06/13 23:32ID:???0550nobodyさん
03/06/14 00:26ID:???0551547
03/06/14 00:29ID:???.*hogeに対して
.*?hoge
は、検索対象に対してhogeがヒットした一番最初の部分を
取るという事ですね！
例えば
hogeXXhogeXXhoge
の場合後者は最初のhogeでマッチ。前者は
3つめのhogeでマッチ！
という事ですね！？
0552547
03/06/14 00:32ID:???そ、そうなんですか！？
http://hidemaru.xaxon.co.jp/lib/hilight/perl_php.html
この作者のミスという事でしたか･･･。
しかし勉強になりましたです。
ありがとうございました。
0553nobodyさん
03/06/15 21:39ID:mUOjbxbY<!-- $aaa --> <!-- $bbb -->
と記入されていて、cgi本体で
$aaa = 'aaaの中身';
$bbb = 'bbbの中身';
と定義されている時
test.datをopenし
while(<FH>){
正規表現で$aaaなどの頭に$がついてるのを定義されている変数と置き換える
}
とするにはどうすれば良いでしょうか？
0554nobodyさん
03/06/15 22:16ID:???とりあえず、下のスクリプトで動くには動きますが。。。
$aaa = "あ";
$bbb = "い";
$ret = "\$aaa\$bbbb";
$Hash{'\$aaa'} = $aaa;
$Hash{'\$bbb'} = $bbb;
while(($key,$value)=each %Hash){
$ret =~ s/$key/$value/;
}
print "$ret\n";
#実行すると「あいb」と表示される。
0556553
03/06/15 23:18ID:/un8khu+おぉ〜どうもありがとう。
参考にさせてもらいます。
>>555
出し惜しみせずに書いたつもりでしたが･･･シンプルに書き直します↓
$bbb = 111;
$ccc = 222;
$aaa = 'XXX $bbb XXX $ccc XXX';
print なにか
出力結果
XXX 111 XXX $ccc XXX
というのをやりたいです。また$aaa に含まれる変数名 例$bbbなど
は1つだったり3つだったりとするので一般化したいです。
0558nobodyさん
03/06/15 23:32ID:???#!/usr/local/bin/perl
my $text = 'XXX $bbb XXX $ccc XXX $ddd XXX';
my $dictionary = {
"bbb" => "111",
"ccc" => "222",
};
sub replace_string {
my $dictionary = shift;
my $text = shift;
# $text =~ s/(\$(\w+))/$dictionary->{$2}?$dictionary->{$2}:$1/ge;
$text =~ s/(\$(\w+))/$dictionary->{$2}/ge;
return $text;
}
printf "[%s]\n", $text;
printf "[%s]\n", replace_string($dictionary, $text);
0562nobodyさん
03/06/16 03:58ID:???0564nobodyさん
03/06/16 07:28ID:???マタ〜リしすぎだしこのスレ
0565nobodyさん
03/06/19 09:48ID:zhmAwMLg今現在、<a name="1000</a>になってるソースを
<a name="1000">1000</a>に変更したいのですが
どうすればいいんでしょうか？
ちなみに「1000」の部分は「1」から「1000」までの連番で
<a name="1">1</a>
から
<a name="1000">1000</a>
のようにしたいんです。
ヘンテコな説明ですみません。
0566nobodyさん
03/06/19 10:26ID:???perlの場合はこんな感じかな。（変換前のHTMLが間違ってるけどそれでOKという前提で）
s/(<a name=")(\d+)(<\/a>)/$1$2">$2$3/;
0567nobodyさん
03/06/19 10:51ID:???http://www.2ch.net/
http://www2.2ch.net/
上のすべてに対応するためにはどのように書いたらいいのでしょう？
http://(www\.|www2\.)?2ch\.net/
？？？
0568nobodyさん
03/06/19 10:56ID:bERWsbmj0572565
03/06/19 21:37ID:???レス遅れてすみません凹
早速、やってみたんですが
思ったように出来ませんでした(>_<)
それと申し遅れましたが、自分
「speeeeeed」というソフト使ってるんですが
このソフトで正規表現を使った置き換えが
出来たらうれしいんです。
わがまま言ってすみません。。
0573nobodyさん
03/06/19 21:45ID:???BREGEXP.DLL導入すれば正規表現使えるって書いてあるから導入すればいいんじゃないのん？
やりかたはHELPに書いてあった。
0574565
03/06/19 21:58ID:???すいません「e」が一個多かったですね^^;
はい、BREGEXP.DLLは導入済みなんですが
正規表現の構文？がわからないので･･･(涙
0576nobodyさん
03/06/19 23:04ID:???0578576
03/06/20 00:11ID:???取り敢えず、簡易ながら
\da-zA-Z\-]+(?:\.[\da-zA-Z\-]+)+
で落ち着いきたく思うのですが、
ENVの中のHTTP_FROMとかHTTP_SP_HOST内で使うには問題ありませんでしょうかね‥？
0579576
03/06/20 00:13ID:???[\da-zA-Z\-](?:\.[\da-zA-Z\-])+
デス。
0580nobodyさん
03/06/20 00:35ID:???0581nobodyさん
03/06/20 00:55ID:???でも、HTTP_SP_HOSTはHOSTと書いてある時点で入る可能性は否定出来ないのでは？
0582nobodyさん
03/06/20 01:04ID:???0583nobodyさん
03/06/20 01:15ID:???0584576
03/06/20 01:28ID:???[^@]\b([\da-zA-Z\-]+(?:\.[\da-zA-Z\-]+)+)\b[^@]
これでは対象が先頭から始まる場合、もしくは末尾で終わる場合にマッチしません‥
ダサイ回避策として、検索する文字列に予め先頭と末尾にスペースを入れるという方法がありますが、
正規表現のみで解決する良い手段はないでしょうか？？？
0585nobodyさん
03/06/20 01:38ID:???入ることはないでしょ。
何が含まれているかわからない中からホストを完璧にマッチさせる
正規表現は不可能だし、メールアドレスもまあまあマッチすれば
いいなら、過去ログであったはず。
0586576
03/06/20 01:44ID:???なんとか自己解決しました。
一応どんなものになったかカキコしておきますね。
(?:^|[^@]\b)([\da-zA-Z\-]+(?:\.[\da-zA-Z\-]+)+)(?:\b[^@]|$)
0587nobodyさん
03/06/20 01:51ID:???ホスト名にマッチするようにしたら、
メールアドレスにマッチするわけないと思うのだが・・・
0588587
03/06/20 01:53ID:???0591あぼーん
NGNG0592nobodyさん
03/06/21 02:30ID:???<a href="../test/read.cgi/mysv/1044358074/115" target="_blank">>>115</a>
で、URL部../test/read.cgi/mysv/1044358074/115と >> より後の数字を不特定で
マッチさせたいのですがどう表記すればよいでしょうか。お願いします。
0595nobodyさん
03/06/21 11:57ID:NfKIfdiTaaa,"bbb,ccc",ddd
とかも正しく分解できる奴
0596595
03/06/21 12:00ID:???失礼
0597nobodyさん
03/06/22 03:04ID:pHsSEvkKページ内からリンクとリンクを張られた文字を全て取得したいのです
このスレの>>432に似てるのですが、張られた文字も取得したいのです
例えば、<a href="URL">文字列</a>だったら「URL｣｢文字列」の両方です
自分でもいろいろやってみたのですが、上の例のような形のモノしか取得できません
もう少し、柔軟に取得できるものがいいのですが
preg_match_all ("|<a href=\"([^>]+)\">([^<]+)</a>|U", $contents, $out, PREG_SET_ORDER);
私にはこれが限界です、よろしくお願いします
0598nobodyさん
03/06/22 04:17ID:???<a\s[^>]*?href="((https?|ftp):\/\/[-!\#\$%&'()*+,.\/:;=?\@~\w]+)"[^>]*?>([\s\S]+?)<\/a>
0599597
03/06/22 04:51ID:???ありがとうございます。
できれば下のに対応できるくらい柔軟なものってできませんか？
<a href="http://www.aaa.aaa">通常リンク</a>
<A HREF"http://www.aaa.aaa">タグが大文字</a>
<a href=http://www.aaa.aaa>;クォート無し</a>
<a href='http://www.aaa.aaa'>;ダブルクォートの代わりにシングルクォート</a>
<a href="./test.html">省略リンク</a>
<a href="ftp://www.aaa.aaa">ftp通常リンク</a>
<a href="https://www.aaa.aaa">https通常リンク</a>
<a href = "http://www.aaa.aaa">イコールをスペースで囲む</a>
< a href="http://www.aaa.aaa">aをスペースで囲む</a>
<a href="http://www.aaa.aaa" aaa="aaa">他要素がある</a>
<a href="http://www.aaa.aaa"><b>他のタグもリンク</b></a>
<a href="http://www.aaa.aaa">aとhrefの間が長い</a>
(最後はわかりやすいよう全角スペースにしてます)
0603nobodyさん
03/06/22 14:27ID:???/* */
からなるコメント文を消すには、どう書けばいいんですか？
0604597
03/06/22 16:22ID:???ちょっとくらい稽古つけてくださいよ
こんな感じで頑張ってはいるんですよ
preg_match_all ("/<\s*a\s[^>]*?href\s*=\s*(?:\"|\'|)([-!\#\$%&()*+,.\/:;=?\@~\w]+)(?:\"|\'|)[^>]*?>([\s\S]+?)<\/a>/i",
$contents, $out, PREG_SET_ORDER);
0605nobodyさん
03/06/22 18:20ID:???「aをスペースで囲む」ってのに対応するのはナンセンスな気がするな。
つーか、正規表現一つで処理せなあかんの？
"#<a[^>]*\shref\s*=\s*(?:\"([^\"]+)\"|'([^']+)'|(\S+))[^>]*>(.+?)</a>#i"
0607603
03/06/22 18:24ID:???<a alt="" href=""> はありえないことが確定してるの？
0608nobodyさん
03/06/22 18:29ID:???0609nobodyさん
03/06/22 20:57ID:???0610nobodyさん
03/06/22 23:44ID:???name = " anchor_id "
HREF = https://www.hogehoge.com/
target = ' _blank '
>
ほ <b> げ </b> ほ <i> げ </i>
</a
>
0611nobodyさん
03/06/23 00:44ID:???0612nobodyさん
03/06/23 00:48ID:???ここは別に最初から最後まで手取り足取り教える為のスレッドじゃないんだよ
>>598 で充分過ぎるほどヒント出てるんだから、自分で「正規表現」を
習得しつつコードを書こうという気は起きないのかい？
0613597
03/06/23 02:57ID:???今まで見てきたHTMLで「文法はおかしいけれどありそうなもの」
「このくらいならありえるかな」ってのを>>599にいくつかピックアップしてみました
ちょっとありえないものもあるかもしれません
万能（に近い）リンク抽出正規表現ってのをつくってみませんか？
>>599のリストに、他にもありえそうなものを追加して……
■ このスレッドは過去ログ倉庫に格納されています