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

解決済

質問者：AppleScripter
質問日時：2005/03/24 22:40
回答数：2件

おせわになります。

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

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;"

- 1
- 件

通報する

この回答へのお礼

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

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..でとりだせます

- 0
- 件

通報する

この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！