HDTenEightyP/NetNews huggingface dataset:
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: OOP?
Originator: tchrist@pixel.convex.com
Date: Fri, 9 Oct 1992 15:44:08 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of imp@solbourne.com (Warner Losh):

According to my dim understanding of these matters, perl5 might contain
objects.  I believe Larry's current thinking is that an object is a
pointer plus a package, and the package will contain the methods for that
object.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

A successful tool is one that was used to do something undreamed of by
its author.  -- S. C. Johnson
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Sorting associative arrays based on the value
Date: 12 Oct 92 15:44:24 GMT
Article-I.D.: news.1992Oct12.154424.5632
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
Originator: tchrist@pixel.convex.com
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of sfy@koel.mel.dit.CSIRO.AU (Shane Youl):
:This may be a FAQ, but then again...
:
:I have an associative array $Table{$Name} = $Number which I would like
:to sort by $Number. I have been converting the associative array into an
:ordinary two-d array and using the SUBROUTINE option to sort, but I
:thought that there might be a more elegant solution.

Current patch:

    for (sort {$Table{$a} <=> $Table{$b}} keys %table) {
	print  "key of $_ is $Table{$_}\n";
    } 

Previous patch:

    for (sort {$Table{$a} <=> $Table{$b};} keys %Table) {
	print  "key of $_ is $Table{$_}\n";
    } 

Long ago:

    for (sort bynumvalue keys %Table) {
	print  "key of $_ is $Table{$_}\n";
    } 
    sub bynumvalue {
	$Table{$a} <=> $Table{$b};
    } 

Really long ago:

    sub bynumvalue { $Table{$a} <=> $Table{$b}; } 
    for (sort bynumvalue keys %Table) {
	print  "key of $_ is $Table{$_}\n";
    } 

Generically:

    for (&sort_keys_by_numvalue(*Table)) {
	print  "key of $_ is $Table{$_}\n";
    } 
    sub sort_keys_by_numvalue {
	local(*dummy) = shift;
	sort bynumvalue keys %dummy;
    } 
    sub bynumvalue { $dummy{$a} <=> $dummy{$b}; } 

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

Perle, plesaunte to prynces paye/ To clanly clos in golde so clere,
Oute of oryent, I hardyly saye/ Ne proued I neuer her precios pere.
Newsgroups: comp.lang.perl
From: mcook@fendahl.dev.cdx.mot.com (Michael Cook)
Subject: $^T behaves differently in an undump'ed script
Organization: Motorola Codex, Canton, Massachusetts
Date: Tue, 13 Oct 1992 13:43:43 GMT

I have a script that uses (er, used) $^T.  After I undumped the script, it
started behaving differently.  Here's an example:

	$ cat foo
	#! /usr/local/bin/perl
	print "@ARGV,$^T\n";
	$

When I execute this as a normal Perl script, I get something like this:

	$ ./foo `./foo;sleep 4`
	,718984046,718984051
	$

(The two numbers are different.)  After I've undumped it, I see this:

	$ ./foo `./foo;sleep 4`
	,718984046,718984046
	$

(The two numbers are the same.)  Is there something I'm missing about how $^T
is supposed to work?

Michael.

$RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $
Patch level: 35
Newsgroups: comp.lang.perl
From: walter@optimla.aimla.com (Walter Hunt)
Subject: (Perl 4.35 & gcc 2.2.2 & SunOS 4.1.1) == BROKE?
Reply-To: walter@optimla.aimla.com (Walter Hunt)
Organization: OptImage Interactive Services Co., L.P.
Date: Thu, 8 Oct 92 21:56:37 GMT


	Has anyone successfully compiled perl 4.35 with gcc 2.2.2 on a Sparc?
When I tried, eval and regexp failed under "make test". This happened regardless
of whether or not I used perl's malloc (is that still iffy on some machines
under 4.35?).

	Everything compiled and tested fine with Sun's cc, but I like to use gcc
when possible, for speed.


-- 
Walter Hunt					walter@optimage.com
OptImage Interactive Services Company, L.P.	walter@aimla.com
11040 Santa Monica Blvd., Suite #300		uunet!{optimage,aimla}!walter
Los Angeles, Ca. 90025				(310) 445-5718
From: frankm@shadow.CNA.TEK.COM (Frank 'Scruff' Miller)
Newsgroups: comp.lang.perl
Subject: timelocal() ??
Date: 7 Oct 92 20:25:23 GMT
Distribution: na
Organization: Tektronix, Inc., Redmond,  OR.

Has any insane soul out there cooked up a flavor of timelocal() for
perl (i.e. Mike Cooper, perl-boy extrordinare)?  It'd be helpful to be 
able to go from a struct tm to time_t.

To be honest ... I don't have time to do it.  

Much thanks,

Earth-Pig

--
Frank 'Scruff' Miller      "A Perl script is correct if it is halfway readable
Tek CNA Division            and gets the job done before the boss fires you."
frankm@master.CNA.TEK.COM   -Larry Wall
Newsgroups: comp.lang.perl
From: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
Subject: Re: Sorting .newsrc
Organization: Software Research Associates, Inc., Japan
Date: Mon, 12 Oct 1992 05:04:30 GMT
Reply-To: utashiro@sra.co.jp
Distribution: usa

In article <1b327uINNm3i@agate.berkeley.edu>
	dwallach@zonker.cs.berkeley.edu (Dan Wallach) writes:
>> # New feature in 1.4
>> #
>> # cleaned up the eval in sub insert, it's now evaling the loop instead
>> # of being within it.  This optimizes (/pat/) perl patterns; it now runs in
>> # much less time on my sample .news.favorite (with a 2500+ group .newsrc!)
>> #
>> #old: 44.0u 15.9s 1:10.66 84.9% 0+1080k 5+15io 0pf+0w
>> #new: 12.4u  9.7s 0:27.94 79.7% 0+1012k 3+15io 0pf+0w

I compared "fixnewsrc" with my "newsrc" program to sort
1700+ lines .newsrc by exactly same order on 20MHz R3000
machine.

fixnewsrc: 5.080u 0.720s 0:06.70 86.5% 72+298k 12+10io 2pf+0w
newsrc:    1.030u 0.190s 0:01.57 77.7% 74+100k 2+9io 3pf+0w

You can use shell style wildcard to specify the order of
newsgroups.  "newsrc" is available by anonymous ftp from
sra.co.jp[133.137.4.3]:pub/lang/perl/sra-scripts.

--utashiro
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Visual
Date: 8 Oct 92 17:00:03 GMT
Organization: NetLabs, Inc.

In article <djd.718533012@reading> djd@csg.cs.reading.ac.uk (David J Dawkins) writes:
: I don't know about anyone else, but I would sure like to know what 
: Larry, Tom and Randall *look* like :-}
: 
: You guys been digitised? 

I'm in the FaceSaver database, but I look like some kind of yahoo in
that picture.  (No, you don't need to say it...)

Larry
From: bill@ksr.com (Bill Mann)
Newsgroups: comp.lang.perl
Subject: Re: Malformed cmd links
Date: 12 Oct 92 09:43:49 EDT
	<mcook.718735472@fendahl.dev.cdx.mot.com>
Organization: Kendall Square Research, Waltham, MA
In-reply-to: mcook@fendahl.dev.cdx.mot.com's message of 10 Oct 92 12:44:32 EDT

> mcook@fendahl.dev.cdx.mot.com (Michael Cook) writes:
> 
>> Perl says "Malformed cmd links" when my script finishes.  Has anyone seen
>> this before?  Any ideas what it might mean?
> 
>> This is perl, version 4.0
> 
>> $RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $
>> Patch level: 35
> 
> This script exhibits the problem:
> 
> #! /usr/local/bin/perl
> &foo;
> sub foo
> {
>    local (*glob);
> 
>    *glob = "bar";
>    &glob;
> }
> sub bar
> {
>    return;
> }
> __END__
> 
> If I take out the "local (*glob)" or the "return;", I stop getting the
> "Malformed cmd links" message.

I tried to post the following a few weeks ago, I'm not sure it got out:

There have been several complaints during the past few months about
the warning message 'Malformed cmd links'.  This message occurs when
redefining a subroutine where the old definition includes the 'return'
statement.  This problem first appears in 4.035.

As I read the code, there is no real bug, just a spurious warning in
this case.  An otherwise-unused variable is not being initialized
properly.  The following patch fixes the problem for me:

*** ../perl4/cons.c     Thu Aug 13 08:29:39 1992
--- ./cons.c    Wed Sep 23 13:18:38 1992
***************
*** 85,90 ****
--- 85,91 ----
            Nullarg,mycompblock));
        saw_return = FALSE;
        cmd->c_flags |= CF_TERM;
+       cmd->c_head = cmd;
      }
      sub->cmd = cmd;
      if (perldb) {
--

Bill Mann
bill@ksr.com (ksr!bill@uunet.uu.net)
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Where do I find my packages?
Date: 14 Oct 92 18:02:14 GMT
Organization: NetLabs, Inc.

In article <1992Oct13.090101.3068@enea.se> sommar@enea.se (Erland Sommarskog) writes:
: True, the difference is not that big, but after all, Perl is not the
: language of minimalism, is it?

Depends on what you're trying to minimize.

Larry
Newsgroups: comp.lang.perl
From: sommar@enea.se (Erland Sommarskog)
Subject: Re: Where do I find my packages?
Organization: Enea Data AB
Date: Tue, 13 Oct 1992 09:01:01 GMT

Tom Christiansen (tchrist@convex.COM) writes:
>:The background problem: I have a general abort routine which I
>:call instead of simply saying "die". Today it looks for a cleanup
>:routine in the main and the locks packages if they are defined,
>:but it would be much more elegant if I could traverse the array
>:of packages, and call each cleanup routine I find.
>
>Instead of looking through the symbol table, have each return
>register an atexit() function to call.

Not very appealing, since it would result in quite much code 
cluttering. If a package consists of several routines, but no
particular initiation routine each routine may have to make such 
a registration, which may be easily forgotten if I'm adding a 
new routine.

In that case I rather hard-code into my general abort handler
which cleanup calls to look for, then I know at least that
they always will be done.

>:By the way, it would be a nice extention to the language if
>:dies were trappable to faciliate when you need to do some
>:cleanup before you exit.
>
>Already happens.  It's called eval.  Do something like this:
>
>        sub atexit { push(@_exit_subs, @_); }
>...

OK, but wouldn't it be nicer to have less to write? In my case,
I'm writing a family of commands which all use a common library.
Specifically there is an initiation file which all commands
require, and which defines the &abort subroutine everyone uses.

With the eval solution, I would have to have more code which was
common to all main files which is no fun at all the day I realize
I want to change it all.

True, the difference is not that big, but after all, Perl is not the
language of minimalism, is it?
-- 
Erland Sommarskog - ENEA Data, Stockholm - sommar@enea.se
There are many sorts of Macedonians: Greek, Bulgarian, Roumanian, Macedonian...

Newsgroups: comp.lang.perl
From: admerlev@sundae.triumf.ca ( Arnd Merlevede )
Subject: Re: Building on SunOS 4.1.2 -- Core dump...
Reply-To: admerlev@cipy.e-technik.uni-erlangen.de
Organization: University of British Columbia, Vancouver, B.C., Canada
Date: Wed, 7 Oct 1992 23:33:01 GMT

fritz@Cadence.COM (Frederick Staats) writes:

>I've been trying to build perl-4.035 on a Sparc IPX with
>standard SunOS 4.1.2.  The closest default configuration
>is "sunos_4_0_2" which leaves me with a version of perl
>that core dumps on startup.  Could someone send me a working

As far as I can remember the thing to make it run, is to
leave out those /usr/ucb/sun/include (3 of those).
Also I don't know if -O hurts it.
Arnd

>conifg.h?  I have built this version of perl on a RS/6000
>with AIX 3.2 without problem in the past.

>--
>Frederick Staats, Applications Engineer   fritz@Cadence.COM
>Cadence Design Systems, Inc.
>555 River Oaks Parkway, Bldg. 1           (408) 428-5225 (Voice)
>San Jose, CA 95134                        (408) 954-8917 (Fax)
--
Any replies appreciated to : Arnd.Merlevede@cipy.e-technik.uni-erlangen.de
I hate to tell you, but you're only being simulated on the new cray !
(sdb: Would you like to save a backup of YOUR coredump ?)
From: joel@abigale.uucp (Joel Rosi-Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Building on SunOS 4.1.2 -- Core dump...
Date: 9 Oct 92 09:35:36 GMT
Organization: Techne Research, Finchampstead, Berkshire (UK)

In article <1992Oct8.183031.7429@peanuts.informatik.uni-tuebingen.de> jw@peanuts.informatik.uni-tuebingen.de (Joerg Wedeck) writes:
>In article <fritz.718476311@Cadence.COM>, fritz@Cadence.COM (Frederick Staats) writes:
>|> I've been trying to build perl-4.035 on a Sparc IPX with
 [ stuff deleted ]
>
>Try using gcc, I had the same problem under SunOS 4.1.3. When I used gcc
>everything worked fine (except 1 test).

I find this thread interesting and relevant to me at the moment.  I
am currently porting my application to Sun and it uses perl.  My
experience is exactly the opposite of what is stated above.  I tried
several times to build with gcc 2.2.2 and regardless of what I tried
(SysV/BSD universes for lib/includes, perl/Sun malloc, -O or no -O, -
static or using shared libs) I got the following test results (ok's
deleted):

	op/eval........FAILED on test 0
	op/regexp......FAILED on test 45
	lib/big........ok
	/bin/sh: 19198 Memory fault - core dumped

I finally gave up and compiled with Suns /usr/bin/cc and everything
work perfectly.  I will probably backtrack and try it with
/usr/5bin/cc and the SysV libs/includes, if I have the time before I
have to return the loaner machine.  The relevant details are:

	SparcStation2 GX
	SunOS: 4.1.2/5.0

Cheers,
Joel
-- 
     ==================================================================
     ||               T E C H N E   R E S E A R C H                  ||
     ||  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  ||
     ||                     Joel Rosi-Schwartz                       ||
     ||   Hildorien House            +   Email: joel@abigale.UUCP    ||
     ||   12 Waverley Way            +    (pyrltd!abigale.UUCP!joel) ||
     ||   Finchampstead, Wokingham   +   Phone: +44 (734) 730.260    ||
     ||   Berkshire RG11 4YD (UK)    +   Fax:   +44 (734) 730.272    ||
     ==================================================================
Newsgroups: comp.lang.perl,comp.unix.admin,comp.unix.shell
From: spencer@phoenix.Princeton.EDU (S. Spencer Sun)
Subject: Re: Rm protection (was: Why I am glad I know perl)
Reply-To: spencer@phoenix.princeton.edu (S. Spencer Sun)
Organization: Live Organ Transplants
Date: Thu, 8 Oct 1992 00:53:19 GMT

In article <1992Oct7.165640.22661@news.eng.convex.com>, tchrist@convex.COM (Tom Christiansen) writes:
>From the keyboard of lwall@netlabs.com (Larry Wall):
>:What usually gets me is something like, say, starting to
>:type "rm *.old", thinking better of it after typing the *, reaching for
>:the backspace key and hitting return instead.
>
>One of the nice features about tcsh as an interactive shell
>(not a programming language, of course) is that if $rmstar
>is set, it find's mistakes like
>
>    rm * .o
>
>mistakes.
>
>:It only helps a little to be the fastest ^C in the West.
>
>I know.  Rm is too small a program.   Maybe we should use the
>GNU version? :-)

A good habit to get into, if you use a shell that does globbing
expansion when you hit tab, is to ALWAYS tab-expand any wildcards before
you hit RETURN... gives you a second chance to change your mind and also
lets you review exactly what your pattern is going to glob to before you
hit enter...

i.e.

rm *~<tab>

then think to yourself "Gee, am I SURE I want to remove all those
annoying emacs backup files?  And why was I using emacs in the first
place instead of vi?" and then hit enter.

-----
sss/PU'94 Dept of CS (spencer@phoenix.princeton.edu)/JvNCnet (spencer@jvnc.net)
Weird?  We've experienced *death*!  Now somehow we've brought back our
sins physically, and they're *pissed*.

Newsgroups: comp.lang.perl
From: rjkopp@wraith.syr.EDU (Ray Kopp)
Subject: Xref program for files?
Originator: rjkopp@wraith.syr.EDU
Organization: Syracuse University, Syracuse, NY
Distribution: na
Date: Wed, 14 Oct 92 13:52:39 EDT


Does anyone know of a program to cross-referance Perl programs?  
What this means is a program that pulls out all the variable names
and then tells what line numbers they are referenced in?  It seems
that there has to be something already done for this?  Anyone know
of one and where it can be obtained.
  
I also want it to do it for all variables within the program, not 
just one at a time.
  
Any help would be greatly appreciated.


Ray Kopp
Internet: rjkopp@mailbox.syr.edu
Bitnet: RJKOPP@SUVM.BITNET
Syracuse, New York
From: yli@acsu.buffalo.edu (Yanhong Li)
Newsgroups: comp.lang.perl
Subject: use of rand
Keywords: read
Date: 15 Oct 92 04:43:44 GMT
Organization: State University of New York at Buffalo/Comp Sci

I want to operate on 100 random lines of a file whose length is about
500 lines, is there an easy way to do that?
thanx

-- 
===============================================================================
Yanhong Li                          716-838-6493   or 645-3891(lab)
Dept. of Computer Science                       Good good study                
SUNY at Buffalo, Buffalo, NY14260               Up up every day
Newsgroups: comp.lang.perl
Subject: perl for Dos?
From: hey, it is yourself <WJMCC@CUNYVM.BITNET>
Date: Friday, 9 Oct 1992 20:53:43 EDT
Organization: City University of New York/ University Computer Center

   Is perl avaiable for MsDos? where can I FTP one?
From: yli@acsu.buffalo.edu (Yanhong Li)
Newsgroups: comp.lang.perl
Subject: how can i refer to a particular line in a file?
Date: 15 Oct 92 20:26:14 GMT
Organization: State University of New York at Buffalo/Comp Sci


Is there a easy way to do this in perl?
-- 
===============================================================================
Yanhong Li                          716-838-6493(h)    645-3198(o)
Dept. of Computer Science                       Good good study                
SUNY at Buffalo, Buffalo, NY14260               Up up every day
Newsgroups: comp.lang.perl
From: imp@solbourne.com (Warner Losh)
Subject: OOP?
Organization: ParcPlace Boulder
Date: Thu, 8 Oct 1992 22:57:02 GMT


Has anybody given any thought to an object oriented perl?
-- 
Warner Losh		imp@parcplace.COM	ParcPlace Boulder
I've almost finished my brute force solution to subtlety.
From: ghazi@caip.rutgers.edu (Kaveh R. Ghazi)
Newsgroups: comp.lang.perl
Subject: testing for 14 character filename limit during perl build
Date: 8 Oct 92 17:26:02 GMT
Organization: Rutgers Univ., New Brunswick, N.J.


	Would it make more sense to check in /tmp for 14 character filename
limit during the perl build, rather than in the local (home) directory which
may be NFS mounted from a machine with a different filesystem type?
		--Kaveh
-- 
Kaveh R. Ghazi			CAIP Center, Rutgers University.
ghazi@caip.rutgers.edu		rutgers!caip.rutgers.edu!ghazi
Newsgroups: comp.lang.perl
From: braven@rx.xerox.com (Brian Raven)
Subject: Re: how can i refer to a particular line in a
Reply-To: braven@rx.xerox.com
Organization: Rank Xerox Ltd.
Date: Fri, 16 Oct 1992 08:30:21 GMT

In article F6p@acsu.buffalo.edu, yli@acsu.buffalo.edu (Yanhong Li) writes:
>
>Is there a easy way to do this in perl?
>-- 
>===============================================================================
>Yanhong Li                          716-838-6493(h)    645-3198(o)
>Dept. of Computer Science                       Good good study                
>SUNY at Buffalo, Buffalo, NY14260               Up up every day

if you mean by line number (numbering starts at $[)...

$line55 = (<>)[55];

---
Brian Raven,
MC&SE, Rank Xerox Ltd., Welwyn Garden City, Herts., U.K. (+44 707 383576)
email (ignore what it says in the header): bfr.wgc1@rx.xerox.com
----------------------
Rebel Without a Clue

Newsgroups: comp.lang.perl
From: dave@Cigna.COM (Dave Good)
Subject: Re: Conversion of a largish script to perl
Organization: Cigna FIRST - Irvine, CA
Date: Thu, 8 Oct 1992 21:21:34 GMT

In article <1992Oct8.062108.20123@newshost.anu.edu.au> aps583@huxley.anu.edu.au (Anthony P Scott) writes:
>I have written a largish shell script that makes use of the shell (sh),
>sed and awk as well as making calls to a set of fortran programs.
>
>While the script does what is wanted it is slow in some areas, mainly
>in the use of sed to delete ranges of text and the like. Also there
>are some features in perl that I could make use of in getting an
>even better script.
>
>I can use a2p and s2p to translate individual portions of my script
>but does any body have an idea on how to translate the sh portions?
>
>I suppose the perl version could be developed the same way as the 
>present script, that is piece by piece, but that is quite slow
>an tedious and the script works now and I don't have the time and ....
>
>Any help would be appreciated.
>
>Kind regards,
>
>Tony Scott.  aps583@huxley.anu.edu

Newsgroups: comp.lang.perl
Subject: Re: Conversion of a largish script to perl
Summary: 
Expires: 
Followup-To: 
Distribution: 
Organization: Cigna FIRST - Irvine, CA
Keywords: 

In article <1992Oct8.062108.20123@newshost.anu.edu.au> aps583@huxley.anu.edu.au (Anthony P Scott) writes:
>I have written a largish shell script that makes use of the shell (sh),
>sed and awk as well as making calls to a set of fortran programs.
>
>While the script does what is wanted it is slow in some areas, mainly
>in the use of sed to delete ranges of text and the like. Also there
>are some features in perl that I could make use of in getting an
>even better script.
>
>I can use a2p and s2p to translate individual portions of my script
>but does any body have an idea on how to translate the sh portions?
>
>I suppose the perl version could be developed the same way as the 
>present script, that is piece by piece, but that is quite slow
>an tedious and the script works now and I don't have the time and ....
>
>Any help would be appreciated.
>
>Kind regards,
>
>Tony Scott.  aps583@huxley.anu.edu

What I often do is make a copy of the script, then edit the copy.  I then
translate the script on the fly (more or less) to perl.  It helps to know
the inner workings of the script beforehand in order to make strategic
decisions when the need first comes up.  I've done this several times,
and the main problem I have is remembering to put the ';' at the end of
each line.  (Also I occasionally mix up "print" and "echo").

-- 
David Good                                                  dave@cigna.com

                 This space intentionally left blank.
From: bmarlowe@ka.reg.uci.edu (Brett Marlowe)
Subject: signal blocking: How to setsigmask()
Summary: Need to know if way of manipulating signal mask is escaping me
Newsgroups: comp.lang.perl
Keywords: signal mask manipulations?
Distribution: usa
Date: 16 Oct 92 16:32:46 GMT


Conf: Sun Sparcstation 2, SunOS 4.1.1

Is there a way to manipulate the current signal mask from within perl
without resorting to syscall()?  I don't trust syscall 100% since you
can never tell when Sun has added some processing to library call.

Larry, can this aspect of signal processing make into a release :-)

-Brett
--
-------------------------------------------------------------------------------
Brett Marlowe    |  University of California, Irvine
bmarlowe@uci.edu |  Office of the Registrar  (making sure you get your bills)
Newsgroups: comp.lang.perl