我尝试在 perl 中将字符串转换为日期,但出现错误。
use strict;
use warnings;
use DateTime;
use Date::Manip;
my $date = ParseDate("20111121");
print "today is ".$date->day_of_week."\n";
error
Can't call method "day_of_week" without a package or object reference
看起来包导入有问题...
Thanks
DateTime 本身没有解析工具,但是有很多生成 DateTime 对象。大多数时候,您可能想要日期时间::格式::Strptime http://search.cpan.org/perldoc?DateTime%3a%3aFormat%3a%3aStrptime.
use DateTime::Format::Strptime qw( );
my $format = DateTime::Format::Strptime->new(
pattern => '%Y%m%d',
time_zone => 'local',
on_error => 'croak',
);
my $dt = $format->parse_datetime('20111121');
或者你可以自己做。
use DateTime qw( );
my ($y,$m,$d) = '20111121' =~ /^([0-9]{4})([0-9]{2})([0-9]{2})\z/
or die;
my $dt = DateTime->new(
year => $y,
month => $m,
day => $d,
time_zone => 'local',
);
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)