VMX::Common::mysql2time(), ::mysqllocaltime()
parent
1b3b074c50
commit
61594504f4
|
@ -14,6 +14,7 @@ use DBI;
|
||||||
use Digest::MD5;
|
use Digest::MD5;
|
||||||
use Date::Parse;
|
use Date::Parse;
|
||||||
use Date::Manip;
|
use Date::Manip;
|
||||||
|
use POSIX qw(mktime);
|
||||||
use I18N::Langinfo qw(langinfo CODESET);
|
use I18N::Langinfo qw(langinfo CODESET);
|
||||||
|
|
||||||
require Exporter;
|
require Exporter;
|
||||||
|
@ -22,7 +23,7 @@ our @EXPORT_OK = qw(
|
||||||
quotequote min max trim htmlspecialchars strip_tags strip_unsafe_tags
|
quotequote min max trim htmlspecialchars strip_tags strip_unsafe_tags
|
||||||
file_get_contents dbi_hacks ar1el filemd5 mysql_quote updaterow_hashref
|
file_get_contents dbi_hacks ar1el filemd5 mysql_quote updaterow_hashref
|
||||||
insertall_hashref deleteall_hashref dumper_no_lf str2time callif urandom
|
insertall_hashref deleteall_hashref dumper_no_lf str2time callif urandom
|
||||||
normalize_url utf8on
|
normalize_url utf8on mysql2time mysqllocaltime
|
||||||
);
|
);
|
||||||
our %EXPORT_TAGS = (all => [ @EXPORT_OK ]);
|
our %EXPORT_TAGS = (all => [ @EXPORT_OK ]);
|
||||||
|
|
||||||
|
@ -544,5 +545,20 @@ sub utf8on
|
||||||
return $_[0];
|
return $_[0];
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# преобразование mysql даты/времени в UNIX время
|
||||||
|
sub mysql2time { mktime(mysqllocaltime(@_)) }
|
||||||
|
|
||||||
|
# и в struct tm
|
||||||
|
sub mysqllocaltime
|
||||||
|
{
|
||||||
|
my ($date, $time) = @_;
|
||||||
|
$time ||= '';
|
||||||
|
if ("$date $time" =~ /^(\d+)-(\d+)-(\d+)(?:\s+(\d+):(\d+):(\d+))?/so)
|
||||||
|
{
|
||||||
|
return (int($6), int($5), int($4), int($3), int($2)-1, int($1)-1900);
|
||||||
|
}
|
||||||
|
return ();
|
||||||
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
__END__
|
__END__
|
||||||
|
|
Loading…
Reference in New Issue