Perl 正規表現を使用して、この特定の変換 (これらの日付形式) の例を見つけるのにかなり苦労しましたが、役に立ちませんでした。これらの形式間で日付を変換するのを手伝ってもらえますか?
Dec 26 2012 12:00AM ==> 201212126
以下は私の最初の試みでしたが、実行が遅すぎます(明らかに、substrを5回使用しましたが、これはばかげています)。
# Format the input time to yyyymmdd from 'Dec 26 2012 12:00AM' like format.
sub formatTime($)
{
#Get passed in value of format 'Dec 26 2012 12:00AM'.
my $col = shift;
if (substr($col, 4, 1) eq " "){
substr($col, 4, 1) = "0";
}
return substr($col, 7, 4).$months{substr($col, 0, 3)}.substr($col, 4, 2);
}
注: これは作業用で、入力ファイルを非常に大きな DB 取り込みに変換するためのものです。残念ながら、Python は、スクリプト作成に選択した言語であるプラットフォームではサポートされていません。独自の Perl 正規表現を作成しようとしましたが、この他の部分を実行している間、それを読んで理解する時間がありません。昨日の Perl スクリプトの作成と残りのオンザフライでの学習のほとんどをすでに無駄にしていました。この変換には時間がかかりすぎました。