uutraffic report (in perl)

[Tom Christiansen]

In article <222 at cica.cica.indiana.edu> mr at cica.cica.indiana.edu (Michael Regoli) writes:
|Script started on Tue Nov 21 13:08:07 1989
|[1] [cica:/u.cica/mr] sh uutraf.pl
|syntax error in file ./uutraf.pl at line 19, next token "%"
|Execution aborted due to compilation errors.
|now that's portable!  :-)
|line 19 of uutraf.pl is:
|%hosts = ();		# hosts seen

You're probably running pre-version 3 perl.  With 3.0, associative arrays
became first-class citizens and could be talked about as a whole using
the %foo notation to distinguish them from @foo indexed arrays.

|(BTW, our "xferstats" is in /usr/spool/uucp/LOG, not /usr/spool/.Admin.)

I'll bet Johan will make it a switch or dynamically determined thing
if you ask him to.  

--tom


    Tom Christiansen                       {uunet,uiucdcs,sun}!convex!tchrist 
    Convex Computer Corporation                            tchrist at convex.COM
		 "EMACS belongs in <sys/errno.h>: Editor too big!"