如何更改perl中日期/時間字符串的格式？ （具體問題）

Question

我有以下格式從日誌文件解析的示例串：

「週一4月25日17時47分19秒2011」

，我希望它看起來像

「Mon Apr 25 05:47 PM 2011」

我該如何做到這一點？ （當然，每次當然不會是相同的字符串）。

非常感謝。

Answer 1

如有疑問，通常與DateTime一起打賭是一個不錯的選擇。在這種情況下，你可以：

use DateTime; 
use DateTime::Format::Strptime; 

my $parser = DateTime::Format::Strptime->new(
    pattern => '%a %b %d %H:%M:%S %Y' 
); 

my $dt = $parser->parse_datetime('Mon Apr 25 17:47:19 2011'); 
print $dt->strftime('%a %b %d %I:%M%p %Y'), "\n"; 

如果您需要的格式，請參閱the strftime docs或DateTime Manual相似的部分。

你也可以將它使用在POSIX的strftime功能和POSIX::strptime的strptime功能，但接口不太愉快。