
TheBigAmbulance
Novice
Jul 16, 2012, 2:15 PM
Post #7 of 8
(7748 views)
|
Re: [FishMonger] Time Conversion Issue
[In reply to]
|
Can't Post
|
|
No, I did not. But I think I came up with another answer. Here is a different script trying to accomplish the same thing. I modified my $AMorPM portion of this script as well because it was not proper. It is working good!
#!/usr/bin/perl -w use strict; use warnings; use POSIX; use Date::Manip; my @array = ( "2012-07-06T03:23:56.000Z", "2012-07-06T03:33:53.000Z", "2012-07-06T03:36:48.000Z", "2012-07-06T03:36:08.000Z", "2012-07-06T03:35:25.000Z", "2012-06-29T12:50:12-04:00", "2012-06-29T11:20:53-04:00", "2012-07-01T00:59:48-04:00", "2012-07-01T00:59:44-04:00", "2012-07-01T07:51:14-04:00", "2012-07-01T10:00:31-04:00", "2012-07-01T17:20:13-04:00", "2012-07-01T21:19:26-04:00", "2012-07-01T22:01:10-04:00", "2012-07-02T13:21:11-04:00", "2012-07-02T11:15:02-04:00", "2012-07-02T18:10:37-04:00", "2012-07-04T23:55:51-04:00", "2012-07-04T22:19:59-04:00", "2012-07-05T17:47:26-04:00", "2012-07-06T08:35:53-04:00", "2012-07-06T13:04:17-04:00", "2012-07-06T17:56:16-04:00", "2012-07-07T17:52:40-04:00", "2012-07-09T07:46:29-04:00", "2012-07-01T18:14:39Z", "2012-07-09T11:06:50Z", "2012-06-29T16:44:37Z", "2012-07-02T19:20:29Z" ); my $arrayc = @array; my $rawtime; my $offendingTZ; my $rawdate; my $TZ; my $systemTZ = strftime("%z", localtime()); for (my $i = 0; $i < $arrayc; $i++) { $rawtime = $array[$i]; $rawdate = substr($rawtime , 0 , 19); $TZ = substr($rawtime , 19 ); if ($TZ =~ m/(Z|z)/) { $offendingTZ = '0000'; } else { $TZ =~ s/://g; $offendingTZ = $TZ; } my $newdate = Date_ConvTZ($rawtime,$offendingTZ,$systemTZ); my ($year,$month,$date,$hour,$minute,$sec) = unpack("a4a2a2a2xa2xa2", $newdate); my $AMorPM; if ($hour eq 00) { $hour = 12; $AMorPM = "AM"; } elsif ($hour eq 12) { $hour = 12; $AMorPM = "PM"; } elsif ($hour gt 12) { $hour = $hour - 12; $AMorPM = "PM"; } elsif ($hour lt 12) { $AMorPM = "AM" } my $time = $year."-".$month."-".$date." ".$hour.":".$minute.":".$sec." ".$AMorPM; print "Before - " . $rawdate . " After - " . $time . "\n"; }
user@user-M6400:~/Documents/Copyright$ perl ./test2.pl Before - 2012-07-06T03:23:56 After - 2012-07-05 10:23:56 PM Before - 2012-07-06T03:33:53 After - 2012-07-05 10:33:53 PM Before - 2012-07-06T03:36:48 After - 2012-07-05 10:36:48 PM Before - 2012-07-06T03:36:08 After - 2012-07-05 10:36:08 PM Before - 2012-07-06T03:35:25 After - 2012-07-05 10:35:25 PM Before - 2012-06-29T12:50:12 After - 2012-06-29 11:50:12 AM Before - 2012-06-29T11:20:53 After - 2012-06-29 10:20:53 AM Before - 2012-07-01T00:59:48 After - 2012-06-30 11:59:48 PM Before - 2012-07-01T00:59:44 After - 2012-06-30 11:59:44 PM Before - 2012-07-01T07:51:14 After - 2012-07-01 06:51:14 AM Before - 2012-07-01T10:00:31 After - 2012-07-01 09:00:31 AM Before - 2012-07-01T17:20:13 After - 2012-07-01 4:20:13 PM Before - 2012-07-01T21:19:26 After - 2012-07-01 8:19:26 PM Before - 2012-07-01T22:01:10 After - 2012-07-01 9:01:10 PM Before - 2012-07-02T13:21:11 After - 2012-07-02 12:21:11 PM Before - 2012-07-02T11:15:02 After - 2012-07-02 10:15:02 AM Before - 2012-07-02T18:10:37 After - 2012-07-02 5:10:37 PM Before - 2012-07-04T23:55:51 After - 2012-07-04 10:55:51 PM Before - 2012-07-04T22:19:59 After - 2012-07-04 9:19:59 PM Before - 2012-07-05T17:47:26 After - 2012-07-05 4:47:26 PM Before - 2012-07-06T08:35:53 After - 2012-07-06 07:35:53 AM Before - 2012-07-06T13:04:17 After - 2012-07-06 12:04:17 PM Before - 2012-07-06T17:56:16 After - 2012-07-06 4:56:16 PM Before - 2012-07-07T17:52:40 After - 2012-07-07 4:52:40 PM Before - 2012-07-09T07:46:29 After - 2012-07-09 06:46:29 AM Before - 2012-07-01T18:14:39 After - 2012-07-01 1:14:39 PM Before - 2012-07-09T11:06:50 After - 2012-07-09 06:06:50 AM Before - 2012-06-29T16:44:37 After - 2012-06-29 11:44:37 AM Before - 2012-07-02T19:20:29 After - 2012-07-02 2:20:29 PM user@user:~/Documents/Copyright$ This gives me the output (not parsed, but won't bore you with that) I desire. Probably not the cleanest/most effecient perl script around, but it gets the job done. THANK YOU for all of your help!! It gave me a few ideas.
|