perlの文字列データの判断

質問

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

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

$data_1= "6月10日（土）～";
$data_2= "6月10日（土）～6月12日（月）";

日付データ"～"の後に日付がある場合は処理を行う・・・みたいな条件式をどのように書いてよいのか
分かりません。

↑の場合だと、$data_1には"～"の後には日付がないので、処理を行わない。
$data_2には"～"の後には日付が入っているので
$data_2を使用して処理を行いたい・・みたいな感じです。
例題の書き方があまり良くないと思いますが、
宜しくお願い致します。

回答No.1

noname#25358 · ベストアンサー

「～のあとに何か文字列があれば」という条件でいいなら、下記で実装できます。
　if ( substr( $data_1, -2 ) eq '～' ) { print '日付あり'; }

　確実に日付かどうかを判断するには正規表現による判断が必要です。
　if ( $data_1 =~ /～\d+月\d+日\(.*?\)$/ ) { print '日付あり'; }

　↑この回答だけだとよく分からないと思うので、追加で質問があれば補足してください。

お礼

助かりました。
どうもありがとうございました。