From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CSIDE / Time-Format-MySQL-0.03 / script / unix_timestamp 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
—
17
18
19
20
21
22
23
24

              
#!perl
use strict;
use warnings;
use Pod::Usage;
use Time::Format::MySQL qw(unix_timestamp);
eval {
    print unix_timestamp(@ARGV), "\n";
};
if ($@) {
    warn $@;
    pod2usage;
}
__END__
=encoding utf-8
=head1 SYNOPSIS
  unix_timestamp '%Y-%m-%d %H:%M:%S'
=cut