Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!psuvax1!news
From: flee@cs.psu.edu (Felix Lee)
Newsgroups: comp.lang.perl
Subject: Re: Searching the output of last
Message-ID: <8_8Gi#q?1@cs.psu.edu>
Date: 29 Apr 91 13:31:51 GMT
References: <1991Apr28.070748.5279@bradley.bradley.edu>
	<1991Apr29.053721.8733@agate.berkeley.edu>
	<1991Apr29.021236.12132@casbah.acns.nwu.edu>
	<1991Apr29.040325.1822@athena.mit.edu>
	<1991Apr29.043041.20454@casbah.acns.nwu.edu>
	<1991Apr29.053721.8733@agate.berke
Sender: news@cs.psu.edu (Usenet)
Organization: /home/staff/flee/.organization
Lines: 10
Nntp-Posting-Host: dictionopolis.cs.psu.edu

> # go for it!  Seek backwards through the wtmp.

It's easier to scan the wtmp file forward.

perl -e '$w=`getdate 8:35`;$x{$v[0]}=$v[1]while read(stdin,$_,36)&&(@v=unpack(
"A8A8A16l",$_),$v[3]<=$w);for(keys%x){print"$_ $x{$_}\n"if$x{$_};}'</usr/adm/wtmp

Two lines.  Can't really get it shorter, I'm afraid.
--
Felix Lee	flee@cs.psu.edu