Re: Issues subtracting Unix epoch from date
Re: Issues subtracting Unix epoch from date
- Subject: Re: Issues subtracting Unix epoch from date
- From: "Mark J. Reed" <email@hidden>
- Date: Sun, 21 Feb 2010 13:33:02 -0500
If you're going to do that, you might as well pass the arguments as
arguments to perl, rather than literals inside the Perl code. That way
you're only going through one layer of quoting (the shell's) rather
than two (the shell's and Perl's). You can also use Perl's
arbitrary-quote-delimiter mechanism (qqX...X) to avoid having to use
backslashed double-quotes.
property perlTime : "perl -MTime::Local -MPOSIX -le 'print
strftime(qq(%m/%d/%y %I:%M:%S %p), localtime timegm @ARGV)' "
on GMT2localtime(yr, mon, dy, hr, min, sec)
set argList to {}
repeat with arg in {sec, min, hr, dy, (mon as integer) - 1, (yr as
integer) - 1900}
set end of argList to quoted form of (arg as text)
end repeat
set oldTID to AppleScript's text item delimiters
set AppleScript's text item delimiters to space
return date (do shell script (perlTime & (argList as text)))
end GMT2localtime
--
Mark J. Reed <email@hidden>
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden