[ILUG] help with perl script...

[kevin lyda]

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|");
         @w=<W>;
         close(W);
         print("there are ".scalar(@w)." users logged on\n")'
or look at www.cpan.org and see if there's a module for it...

kevin
-- 
kevin at 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"