文字列データからある一部分を抜粋して別の変数に代入する方法

質問

こんにちは。perl初心者です。
あまり調べる時間が無いのでこちらで質問させていただきます。

以下のように$dataに日付のデータ代入してあります。

$data = "6月10日（土）";

とあった場合、"10"の文字だけを抜粋して
別の変数（例えば$tmp）に代入するには
どのようにすれば宜しいでしょうか？

宜しくお願い致します。

回答No.2

BLUEPIXY · ベストアンサー

use encoding "Shift_JIS";

$data = "6月10日（土）";
($tmp) = ($data =~ /月(\d+?)日/);
print $tmp;

回答No.1

okiyoshi

$data = "6月10日（土）";
($tmp) = $data =~ /月(\d+)日/;
print "$tmp\n";