This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C50937.A7ACD1EB
Content-Type: text/plain
To convert epoch (unix time) to standard time:
#!/usr/local/bin/perl
## Syntax: <scriptname> unix_time
use Time::Local;
$EPOCH = ($ARGV[0] > 0) ? $ARGV[0] : 0;
($sec, $min, $hr, $day, $mon, $yr, $wday) = localtime($EPOCH);
printf "unix time: $EPOCH ; std time: %02d/%02d/%04d %02d:%02d:%02d\n",
$mon+1,$day,$yr+1900,$hr,$min,$sec;
To convert standard time to epoch:
#!/usr/local/bin/perl
## Syntax: <scriptname> mm/dd/yy[yy] hh:mm:ss
use Time::Local;
($hr, $min, $sec) = split(/:/, $ARGV[1]);
($mon, $day, $yr) = split(/\//, $ARGV[0]);
$yr -= 100 if (length($yr) eq 4);
$yr += 1900 if (length($yr) le 1900);
$EPOCH = timelocal($sec, $min, $hr, $day, ($mon-1), $yr+100);
printf "unix time: $EPOCH ; std time: $ARGV[0] $ARGV[1]\n";
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/steve green :: TDS storage admin :: 608.664.8210 (desk) ::
608.219.2106 (cell)
It's not that I'm so smart, it's just that I stay with problems longer. A.
Einstein
------_=_NextPart_001_01C50937.A7ACD1EB
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2657.88">
<TITLE>Re: Convert "English Time" back to "seconds past =
the epoch"</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=3D2 FACE=3D"Arial">To convert epoch (unix time) to =
standard time:</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Courier New">#!/usr/local/bin/perl</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">## Syntax: <scriptname> =
unix_time</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">use Time::Local;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">$EPOCH =3D ($ARGV[0] > 0) ? =
$ARGV[0] : 0;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">($sec, $min, $hr, $day, $mon, =
$yr, $wday) =3D localtime($EPOCH);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">printf "unix time: $EPOCH =
; std time: %02d/%02d/%04d %02d:%02d:%02d\n", </FONT>
<BR> <FONT SIZE=3D2 =
FACE=3D"Courier New">$mon+1,$day,$yr+1900,$hr,$min,$sec;</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">To convert standard time to =
epoch:</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Courier New">#!/usr/local/bin/perl</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">## Syntax: <scriptname> =
mm/dd/yy[yy] hh:mm:ss</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">use Time::Local;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">($hr, $min, $sec) =3D =
split(/:/, $</FONT><FONT SIZE=3D2 FACE=3D"Courier =
New">ARGV[1]</FONT><FONT SIZE=3D2 FACE=3D"Courier New">);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">($mon, $day, $yr) =3D =
split(/\//, $</FONT><FONT SIZE=3D2 FACE=3D"Courier =
New">ARGV[0]</FONT><FONT SIZE=3D2 FACE=3D"Courier New">);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">$yr -=3D 100 if =
(length($yr) eq 4);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">$yr +=3D 1900 if (length($yr) =
le 1900);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">$EPOCH =3D timelocal($sec, =
$min, $hr, $day, ($mon-1), $yr+100);</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Courier New">printf "unix time: $EPOCH =
; std time:</FONT> <FONT SIZE=3D2 FACE=3D"Courier New">$ARGV[0] =
$ARGV[1]</FONT><FONT SIZE=3D2 FACE=3D"Courier New">\n"</FONT><FONT =
SIZE=3D2 FACE=3D"Courier New">;</FONT>
</P>
<P><FONT COLOR=3D"#0000FF" SIZE=3D1 =
FACE=3D"Arial">~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=
~~~~</FONT>
<BR><FONT COLOR=3D"#0000FF" SIZE=3D1 FACE=3D"Arial">#!/usr/steve green =
:: TDS storage admin :: 608.664.8210 (desk) :: 608.219.2106 =
(cell)</FONT>
<BR><FONT COLOR=3D"#0000FF" SIZE=3D1 FACE=3D"Arial">It's not that I'm =
so smart, it's just that I stay with problems longer. A. =
Einstein</FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C50937.A7ACD1EB--
|
