NAME

DateTime::Format::PDF - PDF DateTime Parser and Formatter.

SYNOPSIS

 use DateTime::Format::PDF;

 my $obj = DateTime::Format::PDF->new;
 my $dt = $obj->parse_datetime($pdf_date);
 my $pdf_date = $obj->format_datetime($dt);

DESCRIPTION

This module understands the formats used by PDF file. It can be used to parse these formats in order to create DateTime objects, and it can take a DateTime object and produce a string representing it in a format accepted by PDF.

METHODS

new

 my $obj = DateTime::Format::PDF->new(%params);

Constructor.

Returns instance of object.

parse_datetime

 my $dt = $obj->parse_datetime($pdf_date);

Parse PDF datetime string.

Possible valid strings:

D:YYYY

D:YYYYMM

D:YYYYMMDD

D:YYYYMMDDHH

D:YYYYMMDDHHmm

D:YYYYMMDDHHmmSS

D:YYYYMMDDHHmmSSZ

D:YYYYMMDDHHmmSSOHHmm

D:YYYYMMDDHHmmSSOHH'mm

D:YYYYMMDDHHmmSSOHH'mm'

D:YYYYMMDDHHmmSSOHHmm'

Returns DateTime object.

format_datetime

 my $pdf_date = $obj->format_datetime($dt);

Format DateTime object to PDF datetime string. Output value is D:YYYYMMDDHHmmSSOHHmm.

Returns string.

ERRORS

 format_datetime():
         Bad DateTime object.
                 Value: %s

 parse_datetime():
         Invalid date format: %s

EXAMPLE1

 use strict;
 use warnings;

 use DateTime::Format::PDF;

 # Object.
 my $obj = DateTime::Format::PDF->new;

 # Parse date.
 my $dt = $obj->parse_datetime("D:20240401084337-01'30");

 # Print out.
 print $dt->strftime("%a, %d %b %Y %H:%M:%S %z")."\n";

 # Output like:
 # Mon, 01 Apr 2024 08:43:37 -0130

EXAMPLE2

 use strict;
 use warnings;

 use DateTime;
 use DateTime::Format::PDF;

 # Object.
 my $obj = DateTime::Format::PDF->new;

 # Example date.
 my $dt = DateTime->now;

 # Format.
 my $pdf_date = $obj->format_datetime($dt);

 # Print out.
 print "PDF date: $pdf_date\n";

 # Output like:
 # PDF date: D:20240401084337+0000

EXAMPLE3

 use strict;
 use warnings;

 use DateTime::Format::PDF;
 use PDF::Builder;

 if (@ARGV < 1) {
         print STDERR "Usage: $0 pdf_file\n";
         exit 1;
 }
 my $pdf_file = $ARGV[0];

 # Open file.
 my $pdf = PDF::Builder->open($pdf_file);

 # Parser.
 my $pdf_date_parser = DateTime::Format::PDF->new;

 my ($dt_created, $dt_modified);
 my $print_format = "%a, %d %b %Y %H:%M:%S %z";
 if (defined $pdf->created) {
         $dt_created = $pdf_date_parser->parse_datetime($pdf->created);
         print "Created: ".$dt_created->strftime($print_format)."\n";
 }
 if (defined $pdf->modified) {
         $dt_modified = $pdf_date_parser->parse_datetime($pdf->modified);
         print "Modified: ".$dt_modified->strftime($print_format)."\n";
 }

 # Output:
 # Created: Fri, 15 May 2009 08:40:48 +0200
 # Modified: Fri, 15 May 2009 08:44:00 +0200

EXAMPLE4

 use strict;
 use warnings;

 use DateTime::Format::PDF;
 use PDF::API2;

 if (@ARGV < 1) {
         print STDERR "Usage: $0 pdf_file\n";
         exit 1;
 }
 my $pdf_file = $ARGV[0];

 # Open file.
 my $pdf = PDF::API2->open($pdf_file);

 # Get meta info.
 my %meta = $pdf->info;

 # Parser.
 my $pdf_date_parser = DateTime::Format::PDF->new;

 my ($dt_created, $dt_modified);
 my $print_format = "%a, %d %b %Y %H:%M:%S %z";
 if (exists $meta{'CreationDate'}) {
         $dt_created = $pdf_date_parser->parse_datetime($meta{'CreationDate'});
         print "Created: ".$dt_created->strftime($print_format)."\n";
 }
 if (exists $meta{'ModDate'}) {
         $dt_modified = $pdf_date_parser->parse_datetime($meta{'ModDate'});
         print "Modified: ".$dt_modified->strftime($print_format)."\n";
 }

 # Output:
 # Created: Fri, 15 May 2009 08:40:48 +0200
 # Modified: Fri, 15 May 2009 08:44:00 +0200

DEPENDENCIES

DateTime::Format::Builder, Error::Pure, Scalar::Util.

REPOSITORY

https://github.com/michal-josef-spacek/DateTime-Format-PDF

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.02

cpanm DateTime::Format::PDF

perl -MCPAN -e shell
install DateTime::Format::PDF