perlでの文字の抽出方法について

Question

お世話になります。
perlでjson記載の文字列があるのですが、その中からある部分を抜き出して
変数に代入するにはどうしたらいいのでしょうか。

例：
aaa:11111
bbb:wwwww
11cc:fgfgfg
test:333-gggg-222
ddd:cvcv1111

この中から333-gggg-222を探して変数に入れるには
どうしたらいいのでしょうか。

よろしくお願いします。

Answer 1

perlのパターンマッチング演算子の挙動はなかなか複雑です。
まず、スカラーコンテキストで評価されているかリストコンテキストで評価されているかで挙動が異なります。更に、部分文字列が指定されているか否かで返り値が変わってきます。
上記ではリストコンテキストでの評価を成立させるために左辺をリストにする必要があります。

このスタイルは意外に紹介されていないようですが、私はこういうケースでは最もシンプルかつ直感的だと思っています。

詳しくは perldocを参照するのが良いでしょう。

Comments

[shigoto]

んー難しいですね。
つまり今回の例では/test:(\S+)/の（　）カッコの中のデータが変数へ代入されている
という理解です。

この勉強をしていくキーワードは「パターンマッチング演算子」でいいのでしょうか。
なかなかわかりやすいサイトが無いですね。。

[KojiDoi]

本買いましょう。「プログラミングperl」は座右に備えておいたほうがいいかと。

[KojiDoi]

ネットの情報もいいですが、いい加減なことを書いてあったりもするのであまり頼りすぎるのもキケンです。私やester41さんが紹介しているperldoc以上に信頼できるサイトは中々無いと思います。
もともとこの演算子の挙動は複雑なので一発で頭に入らないのは仕方ないです。とにかく、リストコンテキストか否か、（）を使っているか否か、gオプションを指定しているか否かなど、場合分けをしてそれぞれの返り値を確かめてみることです。

[shigoto]

了解しました。
有り難うございました。m<..>m

Answer 2

質問文が今ひとつ曖昧ですが、意図は、test:に続く改行までの文字列を取得したいということでいいんでしょうか。
その文字列がまるごと$_に入っているとして、

($a)=/test:(\S+)/;
コード

これで$aに333-gggg-222が入ります。

Comments

[shigoto]

すみません、違います。実際には改行は無く1行の長文の中かからキーワードを抽出したいのです。

[KojiDoi]

だとすると、上で改行で示されている部分には実際にはどのような文字が入るのですか？ カンマですか、スペースですか？　その区切り文字の前後にスペースが入ったりすることは許容されますか？ その辺の条件はしっかり書いてもらわないと正確な回答はできませんよ。

[shigoto]

有り難うございます。スペースが入っています。
aaa:11111 bbb:wwwww 11cc:fgfgfg test:333-gggg-222 ddd:cvcv1111
な感じです。

[KojiDoi]

ならば上ので大丈夫のはずです。自分で確かめてみてください。ダメだったらどうダメだったのかを詳しく追記して下さい。

[shigoto]

($a)=/test:(\S+)/;　(カッコ$a　)の意味って配列なのですね。
配列にしないとでないのですね。。なぜだ・・・。
有り難うございます。。

[shigoto]

すみません、この式はなぜ　test:333-gggg-222が代入されず333-gggg-222のみ抽出できるのか
わかりません。ネットで検索してますが、よくわからず、勉強したいのでどこか載ってるサイトなどご存知ないでしょうか。

[ester41]

グループ化メタ文字()で括られた部分が出力される為です。
詳しくは、Perldocを参照ください。
http://perldoc.jp/docs/perl/5.10.0/perlretut.pod#Extracting32matches

正規表現がどう返すかを確認するサイトもご紹介します。
http://www.rexv.org/
"Perl PCRE"を選択すれば、Perlの正規表現チェッカーになります。