Perlで文字列の切り出しをするには？

おせわになります。

Perlであるパターン間の文字列を取り出す方法はあるのでしょうか？例えば、"Monday<From>Thursday<To>Friday"という文字列の<From>～<To>間、つまり"Thursday"を取り出したいのですが、うまくいきません。
できればパイプでつないでいくために、以下のような正規表現でかければ最高なのですが…

echo 'Monday<From>Thursday<To>Friday' | perl -e '○○○○'

もう１週間以上ここではまっています。Perlってはまると長いです…

No.2 ベストアンサー 回答者： k_o_r_o_c_h_a_n 回答日時： 2005/03/25 00:24

こんな感じ

echo "Monday<From>Thursday<To>Friday" | perl -pe"s/.*<From>(.*)<To>.*/$1/g;"

この回答へのお礼

本当にありがとうございます（悩んでいた自分が情けない…）。

Perlって本当にすごいって感じです。同じことを他の言語でやろうとすると、けっこう複雑な感じになりますから。

今回はご教授いただき、心より感謝致します。

お礼日時：2005/03/25 22:05

No.1 回答者： TNY 回答日時： 2005/03/24 22:47

$str = "Monday<From>Thursday<To>Friday";

if ($str =~ /<From>(.+)<To>/){$result = $1;}

でどうでしょうか。
正規表現の()は$1,2,3..でとりだせます

この回答へのお礼

早速のアドバイスありがとうございます。

echo ' Monday<From>Thursday<To>Fridays' | perl -pe 'if ($STDIN = ~ /<From>(.+)<To>/){print $1;}'　を実行すると、”Thursday Monday<From>Thursday<To>Fridays”が返ってきますが、Thursdayのみを取り出す方法はあるのでしょうか？

お礼日時：2005/03/24 23:53