chankeypathak · August 18, 2015 09:20
diff --git a/Convert time format Perl b/Convert time format Perl
 #!/usr/bin/perl

 use strict;
 use warnings;
 use 5.010;

 use Time::Piece;

 my $in_format  = '%Y-%m-%d %H:%M:%S';
 my $out_format = '%Y-%m-%dT%H:%M:%SZ';

 my $in_date = '2015-08-18 08:51:00';

 my $date = Time::Piece->strptime($in_date, $in_format);

 say $date->strftime($out_format);
	#!/usr/bin/perl

	use strict;
	use warnings;
	use 5.010;

	use Time::Piece;

	my $in_format = '%Y-%m-%d %H:%M:%S';
	my $out_format = '%Y-%m-%dT%H:%M:%SZ';

	my $in_date = '2015-08-18 08:51:00';

	my $date = Time::Piece->strptime($in_date, $in_format);

	say $date->strftime($out_format);