If you've not heard of it, PerlMonth is a monthly online periodical devoted to Perl, at http://www.perlmonth.com/. I'm plugging not only the web site itself, but also my column in it. :) I've got a monthly column, "Coding with Style," and I'd like people to help critique the articles as I write them. The January issue already has the final edition of my first article. The upcoming February issue will have "'List' is a Four-Letter Word", which could stand some reviewing, still. The March issue will probably have an article on typeglobs and function prototypes, which has already had its first draft written.

If you're interested in helping me, respond here, or email me at japhy@pobox.com. Thanks. 

-- 
japhy's perl supposit^Wrepository, at
http://www.pobox.com/~japhy/

Replies are listed 'Best First'.
RE: Check out PerlMonth
by THuG (Beadle) on Feb 03, 2000 at 19:25 UTC
    I'm opionated enough to review anything.

    I looked over the site, and though I have nothing to say, yet, about your column, I was reading some of the features. I came across one from issue 5 about localtime().

    I couldn't help but mess around. Seems there are many differences between mainline Perl and the ActivePerl for NT I'm using. Several functions don't work, or need to be call more explicitly (which may be a good habit).

    Of note, though, the epoch under NT is apparently set to June 3, 1970, at 5:41:04.

    -Travis
[reply]
      The Epoch in NT and Win95 with ActivePerl is Jan 1, 1970 at 00:00:00 GMT as it should be.

      Try This: 

      @DoW = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
@MoY = ('Jan','Feb','Mar','Apr','May','Jun',
    'Jul','Aug','Sep','Oct','Nov','Dec');

$TZ = "GMT";
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime
+(0); #seconds after epoch

$year += 1900;
$date = sprintf("%s %s %02d %2d:%02d:%02d %.3s %4d\n",
  $DoW[$wday], $MoY[$mon], $mday, $hour, $min, $sec, $TZ, $year);

print ("$date\n");

      [download]
      You should get something like: Thu Jan 01 0:00:00 GMT 1970

      alternately, 13239664 seconds after the epoch gives you June 3, 1970, at 5:41:04

      This works under both Win95 and WinNT

[reply]
[d/l]
RE: Check out PerlMonth
by agoth (Chaplain) on Feb 10, 2000 at 14:28 UTC
    Hi, Ive got time to give things the once-over if you still need reviewers, mail to rhrh@hotmail.com, Richard H
[reply]
RE: Check out PerlMonth
by Kasei (Novice) on Jan 29, 2000 at 11:26 UTC
    I'd love to review the articles! No promises, but I'm sure you could get a couple of comments out of me :b greg@cnation.com
[reply]

Back to Meditations