From: kevin lyda (kevin at domain suberic.net)
Date: Mon 01 May 2000 - 23:27:51 IST
perl -e 'open(W,"w -h|");
while(<W>){$i++}
close(W);
print("there are $i users logged on\n")'
or
perl -e 'open(W,"w -h|");
at domain w=<W>;
close(W);
print("there are ".scalar( at domain w)." users logged on\n")'
or look at www.cpan.org and see if there's a module for it...
kevin
--
kevin at domain suberic.net "we were goin' for breakfast. in canada. we
fork()'ed on 37058400 made a deal: if she'd stop hookin', i'd stop
meatspace place: home shootin' people. maybe we were aiming high."
--porter, "payback"
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:05:59 GMT