無窮 i ラボ Blog

知的ネット社会、知そのもの、機械との共生、プログラミングに関して。

 
 

2000年~2099年の間、有効。細かいことは気にしない。

sub getDatefromString {
# 文字列の中に含まれる日付情報を取得する
# 変数・配列 ---
my ($str) = @_;
my $out;
# /-------------
if ($str =~ /20(\d{2}).*?(\d{2}).*?(\d{2})/i) {
$out = '20'.$1.'/'.$2.'/'.$3;
} else {
$out ='';
}
return ($out);
}
スポンサーサイト
 このエントリーをはてなブックマークする このエントリーを含むはてなブックマーク  
  
 
 
■  ■  ■

 
本文へは上スクロールしてください












管理者にだけ表示

トラックバックURL↓
http://nhm.blog75.fc2.com/tb.php/366-26d5f32c

新しいトラックバックほど上に表示されます。