perlでの正規表現について教えてください。

質問

たとえば、
$A = 'aaa/bbb/ccc/ddd/eee/fff/ggg'
というものがあったときにperlの正規表現でddd/のすぐ後の部分を抜き取って違う変数に入れたいのですが、それを正規表現で切り取りたいのですが、どうしたらいいかわからないです。

初歩的な質問ですが、お答えいただければ幸いです。
よろしくお願いします。

回答No.3

hitsubunnu

$A = 'aaa/bbb/ccc/ddd/eee/fff/ggg';

$A =~ s/(\w+\/){4}//g;

print $A; # 結果eee/fff/ggg

回答No.2

moon_piyo

こんにちは

$A = 'aaa/bbb/ccc/ddd/eee/fff/ggg';
($foo) = $A =~ m~ddd/(.*)$~;

print $foo;

回答No.1

steel_gray

「すぐ後ろ」、ってのは例で言うと
eee なのか eee/fff/ggg
なのかどっちでしょう？

前者なら
$A =~ m'ddd/(.*?)/';
$result = $1;# → eee

後者なら
$A =~ m'ddd/';
$reuslt = $';# → eee/fff/ggg