HDTenEightyP/NetNews huggingface dataset:
From: rodman@sgi.com
Newsgroups: comp.lang.perl
Subject: Problems with "tee"
Date: 21 Aug 92 17:28:13 GMT
Reply-To: rodman@pkr.asd.sgi.com (Paul Rodman)
Distribution: usa
Organization: Silicon Graphics Inc.


I'm having a problem with the following use of "/bin/tee" within 
a open statement. 

This is the sampleprogram:
---------------------------------------------------------
#!/usr/local/bin/perl

open (FOO, "| tee >foobaz");
print FOO "This is a test of tee with perl\n";
close FOO;

exit;
---------------------------------------------------------

When the program is run, the file is created correctly, but nothing appears
on STDOUT. From the manual this is not what I would expect.

I'm running this on an SGI Personal IRIS, running IRIX etc. Is this a problem
with perl or "tee"?


Paul K. Rodman       "Current integrated circuit construction techniques seem
rodman@sgi.com        to resemble geology more than manufacturing.." 
KA1ZA                            -K.E. Drexler (paraphrased)
Newsgroups: comp.lang.perl
From: faigin@aero.org (Daniel P. Faigin)
Subject: Re: Applauds for Mr. Wall (LOUD)
Organization: The Aerospace Corporation, El Segundo, CA
	<1992Aug.004245.29615@abigale.uucp> <1992Aug18.170709.2979@netlabs.com>
Date: Tue, 18 Aug 1992 18:58:12 GMT

On 18 Aug 92 17:07:09 GMT, lwall@netlabs.com (Larry Wall) said:
> In article <1992Aug.004245.29615@abigale.uucp> joel@abigale.UUCP (Joel Rosi-Schwartz) writes:
> : Larry, thank you for being the inspiration you are.

> Aw, shucks.

How come those of us that know Larry well knew that this would be his exact
response. 

Daniel
Paternal Grandparent of Perl, original author of perl history (since I shared
the office with Larry when perl was originally written -- I was the first user
of perl other than the author!).

--
[W]:The Aerospace Corp. M1/055 * POB 92957 * LA, CA 90009-2957 * 310/336-8228
[Email]:faigin@aerospace.aero.org              [Vmail]:310/336-5454 Box#13149
   "You can't be a rationalist in an irrational world. It isn't rational!"
	       Dr. Rance, in Joe Orton's "What the Butler Saw"
Newsgroups: comp.lang.perl
From: mahesh@amnese.eng.uab.edu (B.G. Mahesh)
Subject: Beginner's question : how to set path and env
Originator: mahesh@amnese.eng.uab.edu
Reply-To: mahesh@evb.com
Organization: SETT, Inc.
Distribution: usa
Date: Tue, 18 Aug 1992 20:01:45 GMT

I want to set a few  environment variables from my
perl script.  I tried

 $ENV{'SEE_ADA_COMPILER'} = $i;

 Once I quit from the program it looses the value
 I set it to in the program. I want the value to be
 retained even after I quit from the program. How do
 I do this ? Also I needto modify my the path in the script.
 Please respond by email only.

thanks

-- 
B.G. MAHESH                           | Email : mahesh@evb.com
Software Engineer                     |         widget!mahesh@uunet.uu.net
SETT Inc.			      | 
Frederick MD                          |
From: steiner@bakerst.rutgers.edu (Dave Steiner)
Newsgroups: comp.lang.perl
Subject: perl "bug" with delete function
Date: 19 Aug 92 04:12:28 GMT
Organization: Rutgers Univ., New Brunswick, N.J.
Cc: steiner


When using the delete function like "delete($array{$key});" perl was
dumping core on me.  When I switched to "delete $array{$key};" it was
fine.  While I know that the book doesn't say you can use parens
(obviously I hadn't consulted the book closely enough the first time),
core dumping seems a big drastic! :)  My version is (on a Sparc):

  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

If you want more info, let me know.

ds
-- 

Dave Steiner
arpa: Steiner@BakerSt.Rutgers.Edu or Steiner@Rutgers.Edu
uucp: ...{backbone site}!rutgers!bakerst.rutgers.edu!steiner
Newsgroups: comp.lang.perl
From: ccechk@nuscc.nus.sg (Heng Kek)
Subject: Re: help with timeouts
Organization: National University of Singapore
Date: Fri, 14 Aug 1992 06:59:02 GMT

Further to what has been discussed on this thread, I'd like to seek
help on the following code fragment.  Basically, I want to set a
timeout on the connect() via alarm() and this is what I came up
with.  It doesn't work because I can't branch (goto) a label in a
subroutine.

sub ConnectTo {
...[stuff omitted]...
  SIG{'ALRM'} = 'Timeout';
  alarm(5);   # set timeout to 5 secs.
  # Call up the server.
  if ($conrc = connect($socket,$addr)) { #May take up to 90 secs
      print "connect ok\n" if $DEBUG ;   #which is much too long.
  }
  LABEL:
  $conrc;       # Report whether connection is successful.
} # end of subroutine

sub Timeout {
  goto LABEL if !$conrc;  # Fails to goto LABEL.
  return;
}

How do I get the SIGALRM handler to return control to the statement
after the connect() call?

Thanks to all respondents.

Heng Kek
National University of S'pore
This is perl, version 4.0
$RCSfile: perl.c,v $$Revision: 4.0.1.6 $$Date: 91/11/11 16:38:45 $
Patch level: 19
From: hurtado@Xenon.Stanford.EDU (Jorge Ricardo Hurtado)
Subject: Oraperl
Originator: hurtado@Xenon.Stanford.EDU
Organization: Computer Science Department, Stanford University.
Date: Wed, 19 Aug 1992 22:47:05 GMT

Where can I ftp Oraperl.  Suppose to be similar to Interperl except that
it interfaces with Oracle Database.

George 
hurtado@xenon.stanford.edu
From: jdh@bu-pub.bu.edu (Jason Heirtzler)
Newsgroups: comp.lang.perl
Subject: perl sort bug on Irix?
Date: 14 Aug 92 00:47:09 GMT
Organization: Boston University, Information Technology

Perl's sort seems to behave oddly on Irix.  What I would like
to do is an inverse sort based on the length.  Is this program
correct perl (ie. not some implementation dependant thing?)

  #!/usr/local/bin/perl --    # -*-Perl-*-

  push( @dirs, "usr" );
  push( @dirs, "usr/bin" );
  push( @dirs, "usr/bin/X11" );
  push( @dirs, "usr/lib" );

  @crud =  sort {length($a) < length($b);} @dirs;

  foreach $p ( @crud ) {
      print "$p\n";
  }

It seems to work okay on sun4 SunOs-4.1:

  sun% ./sorter
  usr/bin/X11
  usr/bin
  usr/lib
  usr

But fails on the sgi irix 4.0.{1,5}:

  sgi% ./sorter
  usr/bin
  usr/lib
  usr/bin/X11
  usr

It behaved the same odd way on patch level 19, but this
is patch level 35:

  % perl -v

  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

What is the appropriate way to do the same sort on previous
releases?  At patch level 10 perl bawks at the sort syntax
(guess it's new syntax.)


----------------------------------------------------------------
Jason Heirtzler      1-617-353-2780            jdh@bu-pub.bu.edu
Sci Comp & Vis       Information Technology    Boston University

"Congratulations.  You aren't running Eunice."
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Whereis ftp.pl?
Originator: tchrist@pixel.convex.com
Date: Wed, 19 Aug 1992 00:55:01 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, 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 davew@jpl-devvax.jpl.nasa.gov (Dave Wagner):
:I must have missed it when it was announced... Where can I get a copy
:of ftp.pl?

Spaf posted one on 1 May 92 in <18604@ector.cs.purdue.edu>.
I'll put a copy in /pub/perl/scripts/ftp.shar on convex.com 
for you to fetch yourself.

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

Perl itself is usually pretty good about telling you what you shouldn't do. :-)
        --Larry Wall in <11091@jpl-devvax.JPL.NASA.GOV>
From: merlyn@romulus.reed.edu (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Just another Perl hacker
Date: 21 Aug 92 20:23:35 GMT
Organization: Reed College

In article <BtCJ74.3Dq.1@cs.cmu.edu> jfriedl+@CS.CMU.EDU (Jeffrey Friedl) writes:
   Ok, so why isn't there an Obfuscated Perl Contest?

   Not that the above is a particularly good example, but there's little
   doubt that Randal would be the winner of the 1st OPC (-:

   Maybe he and the other two of the PT (Perl Trinity) should be the judges
   (which would leave more chance for the rest of us).  Hmmm, maybe not...
   I'd love to see what they would come up with (only the use of documented
   features allowed, though! :-)


[The Perl Trinity... heh.]

Actually, the most obscure Perl code, especially for JAPH's or
near-JAPH's has come from others, not me.  Unless you count my
one-line paper-tape-image reader... :-)

And, I've stumbled into a bit of JAPH-block over the past six months,
for fear of repeating myself, I think.  Maybe I should quietly start
reposting some of my older ones... heh.

Also, romulus.reed.edu is a 2.5 second telnet delay from where I spend
most of my online time (it's out on the skinny branches of the NWnet:
"if there's a bright center to the internet, you're on the wire that
is farthest from it").  Have you ever tried to be creative when you
can't even see what you're typing?

That also partially explains the shift from "answer everything" to
"answer just a few things"... it takes me too darn long to type this
stuff now.

I know, complain, complain.

$] =~ /(p..l)/; print "Just another \u$1 hacker,"
--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@reed.edu (guest account) merlyn@ora.com (better for permanent record)
cute quote: "Welcome to Portland, Oregon -- home of the California Raisins!"
Newsgroups: comp.lang.perl
From: jfriedl+@cs.cmu.edu (Jeffrey Friedl)
Subject: Defined behavior?
Reply-To: jfriedl@cs.cmu.edu
Organization: Carnegie Mellon / Omron Corporation
Date: Fri, 14 Aug 1992 21:58:08 GMT

Excuse the pun, but is the following defined behavior?

The two-line program
	$foo = 1; defined($foo,$foo);
	print $foo;
when executed with 'perl -w' (v4.035)  produces
	Use of uninitialized variable at file line 2.

It seems that the odd usage of 'defined' (having more than one "argument")
undefines the "arguments" (I'm guess they're not really arguments, but
expressoins linked by the comma operator).

I stumbled across this due to some dyslexic typing on my part.

Thanks,
	*jeff*
-------------------------------------------------------------------------
Jeffrey Eric Francis Friedl   jfriedl@cs.cmu.edu -or- jfriedl@omron.co.jp
Omron Corporation, Section RZE, Shimokaiinji, Nagaokakyo Kyoto 617, Japan
Visiting researcher to the Mach Project, Carnegie Mellon University
Newsgroups: comp.lang.perl
From: hfaester@Physik.TU-Muenchen.DE (Hannes Faestermann)
Subject: Re: Where is patch?
Organization: Leibniz-Rechenzentrum, Muenchen (Germany)
Date: Thu, 20 Aug 1992 10:05:06 GMT

neil@salmon.demon.co.uk ("Neil S. Briscoe") writes:

>I asked archie to tell me where to find patch and it gave me quite a
>long list with various program names.  patch1 was the most common name
>but it had varying sizes even on the same site.  Can someone give me a
>defacto site and directory for this please?

The most recent version I know of resides on prep.ai.mit.edu in /pub/gnu
as patch-2.0.12u7.tar.Z.

Hope that helps

	Hannes

--
Hannes Faestermann           |  Internet: 
Physik-Department E17        |   Hannes.Faestermann@Physik.TU-Muenchen.DE
TU Muenchen,                 |  
8046 Garching, West Germany  |
Newsgroups: comp.lang.perl
From: markd@silogic.uucp (Mark C. DiVecchio (K3FWT))
Subject: #! Emulation in MSDOS
Organization: Silogic Systems, San Diego, CA
Date: Thu, 13 Aug 1992 04:43:23 GMT


In a recent posting, I saw a reference to #! emulation in MSDOS.  The
posting showed a code fragment which was to be place at the front of the
file:
 
@REM=(qq!
@echo off
perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
@goto end :) if 0;

After trying this, it became obvious that a line or two is required at
the end of the file after the Perl code.  I'm not versed enough in Perl
to figure out the lines at the end. 

Can anyone help?

-- 
Mark DiVecchio, Silogic Systems, 619-549-9841                       K3FWT
-----   9888 Carroll Center Road, Suite 113, San Diego, CA 92126    -----
markd@silogic.uucp                             BBS 619-549-3927
...!ucsd!sdcrsi!silogic!markd     sdcrsi!silogic!markd@ucsd.edu
From: buzz@toxicavenger.bear.com (Buzz Moschetti)
Newsgroups: comp.lang.perl
Subject: Re: Applauds for Mr. Wall: and Tom...
Date: 18 Aug 92 13:29:44 GMT
	<1992Aug17.174512.13975@netlabs.com>
	<1992Aug.004245.29615@abigale.uucp>
Reply-To: buzz@fsrg.bear.com
Organization: Bear, Stearns & Co. Inc.
In-reply-to: joel@abigale.UUCP's message of 17 Aug 92 23:42:45 GMT

Don't forget Tom Christiansen @ Convex, whose ongoing commitment to and
support of this newsgroup also merits recognition and praise.
Newsgroups: comp.lang.perl
From: tomg@stud.cs.uit.no (Tom Grydeland)
Subject: Re: Arrays of filehandles
Organization: University of Tromsoe
Date: Thu, 13 Aug 1992 14:57:58 GMT

In article <1992Aug12.230411.20069@unixg.ubc.ca>, andy@orchid.bdc.ubc.ca (Andrew Dwelly) writes:
|> 
	[stuff deleted]
|> # But this bit just falls through as if @filehandle[0] was empty
|> while (<@filehandle[0]>)

As has been answered on many similar questions on this group, @array[$index]
is an array slice with one value.

|> I need to get various lumps of data from <@filehandle[$whatever]> in the
|> rest of the code. 

Then refer to it as $filehandle[$whatever]

|> What should I be doing here. Also, what is the difference between an
|> array @this[$that] and $this[that] ? this has also been troubling
|> me in the last few days.

The `@' in `@this[$that]' tells perl that you're refering to an array value,
i.e the array slice with one value, $this[$that].

The first `$' in $this[$that]' tells perl that you're refering to a scalar
value.

thus:   @this[$that] == ($this[$that])


|> Andy Dwelly (andy@bcu.ubc.ca)

-- 
//Tom Grydeland(tomg@stud.cs.uit.no)._._._._._._._._._._._._._._._._._._._._._
|A._| . . ._| | |_._._. . ._|_._._._._. ._|_. ._ _._. ._| | . ._|_. | . ._._. |
| ._|_| |_. | | | | ._._|_. |_._. . |_. | | | ._._| |_._._._| | ._. ._| . . |_|
|_._._._._|_._._._._._._|_._._._._|_._._._._._._._._._._._._|_._._|_|_._|_|_.B|
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: die hook
Date: 15 Aug 92 03:04:57 GMT
Organization: NetLabs, Inc.

In article <Aug.13.17.56.21.1992.22441@piecomputer.rutgers.edu> mende@piecomputer.rutgers.edu (Bob Mende Pie) writes:
: 
:    I am currently working on a set of programs that use common "required"
: packages.  I use the die command in many of the different monules and
: packages.  Depending on what main program I use to invoke the program, I
: would possibly like to add a "hook" to the die command that would run a
: subroutine before exiting.  It could be used for cleaning up lockfiles,
: saving the state of arrays, whatever.  Since I can not be sure how my
: modules will be called this hook may or not be in existance.   Is there a
: subroutine that die will try to call when it is invoked.   If not this
: would be a useful addition.   It could be as simple as the perl code:
: 	&'die if defined &'die;

The code I'm developing for Perl 5 already has two magical subroutines
in it called BEGIN and END.  They're so magical that you don't even have
to put "sub" in front of them.  BEGIN is automatically called before
the program starts, and END is automatically called just before the
program exits, no matter how it exits.

Not only does this give you your die hook, but it also gives you
BEGIN and END blocks like awk.  So you'll be able to say things like:

    perl -pe 'BEGIN { $/ = "\r\n" } s/\r$//'

or

    perl -lane 'BEGIN { require "timelocal.pl" } print &timegm(@F)'

Note that it's a subroutine definition, so the order doesn't matter.
You can say stuff in the order you think important, like:

    perl -pal -e 'BEGIN { $accum = 1 }' \
	      -e 'END { print $accum }'	\
	      -e '$accum *= $F[3]'

Awk has irrational hissyfits if you don't hide END down at the end.

Larry
Xref: sparky comp.lang.perl:5368 alt.sources:1910
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: How do I make 'stty -echo' work from a net service
Date: 15 Aug 92 20:15:59 GMT
Organization: NetLabs, Inc.

In article <1992Jul29.073546.4419@id.dth.dk> ej@id.dth.dk (Erik Johansen) writes:
: In a perl program I need to request a username without
: echoing it.  This works fine when I am running it from a shell.
: 
: I intend to run it from a tcp net service (/etc/services) but
: here it will not disable echoing ("Not a tty").
: 
: I suppose that solving the above problem involves creating a pty
: but I do not know how to do it.
: 
: Any ideas of how to code this ?

Well, ask yourself who's doing the echoing?  With most network services,
the client is doing the echoing, and sending entire lines to the server.
So it's not the server's responsibility to turn off echoing--it's usually
the clients.  If, on the other hand, you're doing a character-oriented
protocol like telnet, then either you're doing the echoing yourself, and
you have perfect control over what you send back, or you're running
it on a pty, as you say.  In general you don't have to open a pty--they're
already there.  For some sample pty code, look at Randal's chat2.pl
that comes with the Perl library.  If you do this then you can suppress
"echo" by simply refusing to forward what you get from the pty back to
the client.  Or run something on the pty that turns off echo itself,
and then you don't have to worry about it.  Those are your options.

Larry
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: open2 w/ telnet
Originator: tchrist@pixel.convex.com
Date: Wed, 19 Aug 1992 14:56:00 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 lance@caesar.ucs.indiana.edu (Lance Speelmon):
:
:I am trying to do some telnet scripting with open2.  Is this the
:correct library to use?  Has anyone done this before?
:
:Any tips would be greatly appreciated.

I'd use chat2 for telnet, I think.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
    :  I've heard that there is a shell (bourne or csh)  to perl filter, does
    :  anyone know of this or where I can get it?
    Yeah, you filter it through Tom Christiansen.  :-)  --Larry Wall
Newsgroups: comp.lang.perl
From: ras@rayssd.ssd.ray.com (Shaw)
Subject: Bad label: _EVAL_, inconsistent behavior
Summary: eval works nonsetuid, fails when setuid
Keywords: eval, setuidness, etc.
Organization: Raytheon Submarine Signal Division, Portsmouth, RI
Distribution: usa
Date: Fri, 14 Aug 1992 18:44:02 GMT

Got a problem maybe somebody can help shed light on.  I've been
working on a program that will run (with a wrapper) setuid to root,
(as it's "chfn" - working on the password file), which behaves
differently when running from a C wrapper, setuid, then when it isn't.
(I'm running PERL 4.19, I know I should update, but haven't yet.)

I've done similar things before, (setuid wrapper running perl that
eval's something), and have beaten my way thru the gauntlet of
"taintperl", and it does not seem to object to anything I've done.
basically, I've got an array of field names and constraint-patterns,
and am passing them down to a subroutine that queries the user for
the new value, or accepts the old one (if it's valid), etc.  See below:

$ chfn ras
Warning: Employee Nbr. (UNIX Support) is not numeric (5-digit)

Cannot change Last Name: Shaw
Change First Name: (Ralph A.) 
Change Mail Stop: (130) 131
Change Employee Nbr.: (UNIX Support) 00000
Bad label: _EVAL_ at passutils.pl line 375, <STDIN> line 3.

$ pik 345 385 passutils.pl
345 sub chfn { # change what they gave you, or return it
346 	local($N) = $_[0];	# index into @FN array
347 	local($old) = $_[1];	# what it was set to
348 
349 	die "$PROGNAME: chfn: invalid index $N\n"
350 		if(($N % 4) > $#FN);
351 
352 	local($prompt) = $FN[$N];	# what to ask them
353 	local($test) = $FN[$N+1];	# what to check it against
354 	local($warn) = $FN[$N+2];	# what to tell them for failures
355 	local($allow) = $FN[$N+3];	# can this be changed by a user?
356 	local($answer, $tries);
357 
358 	
359 #
360 # 	Some fields only the Superuser can change
361 #
362 	if($RUID && $allow == 0) {
363 		print "Cannot change $FN[$N]: $A[$C]\n";
364 		return $old;
365 	}
366 
367 	$warn = "Alphabetic" if(length($warn) == 0);
368 
369 	while($tries++ < 10) {
370 		print "Change $prompt: ($old) ";
371 		$answer = <STDIN>;
372 		chop($answer);
373 		$answer = $old if($answer eq '');
374 
375 		if(length($test)) {
376 			print "if($answer =~ $test)\n" if $DEBUG;
377 			eval qq:return "$answer" if "$answer" =~ $test:;
378 			print "$prompt must be $warn\n\n";
379 		} else {
380 			return($answer);
381 		}
382 	}
383 	print STDERR "Too many tries, I give up!\n";
384 	exit(1);
385 }

I've also tried:
	eval "return \$answer if (\$answer =~ $test)";
and
	eval qq:return $answer if (\$answer =~ $test):;
as well as a few other combnations.  The "Bad label:" message
comes out on the next call to the subroutine after I've changed
something, and refers to <STDIN> line N, where N is the number of
times it's run the sub and gotten an answer.

Any clues?  I find no reference to _EVAL_ in the Book, and mysterious
references to the "qq" mechanism didn't seem to help either.
Thanks,
Ralph Shaw		ras@ssd.ray.com
From: Sepp@ppcger.ppc.sub.org (Josef Wolf)
Newsgroups: comp.lang.perl
Subject: Re: How do you simulate a multidimensional list?
Distribution: world
Organization: PPC Germersheim, Germany
Date: 22 Aug 92 13:52:20 GMT

In <1992Aug11.121132.13920@id.dth.dk> ej@id.dth.dk (Erik Johansen) writes:
] bill@Celestial.COM (Bill Campbell) writes:
] >:I understand that perl doesn't directly support multidimentional
] >:arrays (or lists), but that there's some way to simulate it. I don't
] >:know how to do it. I have a perl program that manipulates several sets
] >:of data, where I represent each set as a list. I'd like to make a list
                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                   ^^^^^^
] >:of the lists, and use foreach over the list of lists. Below is a
    ^^^^^^^^^^^^
] >:simplified example of what I'd like.

] >can use a similar expression a{"$i,$j,$k"}.

]  The quotes are not needed just say  $a{ $i, $j, $k } then Perl

I don't thik this are the answers the original poster was searching for.
I think he's searching for something like:

@list1 = ("a1", "b1", "c1", "d1");
@list2 = ("a2", "b2", "c2", "d2");
@list3 = ("a3", "b3", "c3", "d3");
@list4 = ("a4", "b4", "c4", "d4");

@biglist = ("list1", "list2", "list3", "list4");

foreach $list (@biglist) {
  local (*alias) = $list;
  foreach (@alias) {
    print "$_\n";
  }
}

Disclaimer: never tested this, because perl not available yet for this
            machine :-( 

Greetings
    Sepp

-- 
|   Josef Wolf,  Germersheim,  Germany    aka    sepp@ppcger.ppc.sub.org   |
| +49 7274 8048  USR HST-DS  300-14400 V32/V32bis V42/V42bis/HST 24 Hours  |
| ...und wieviel brave Deutsche haben wieder nichts geschnallt... (Marius) |
From: jfriedl+@CS.CMU.EDU (Jeffrey Friedl)
Newsgroups: comp.lang.perl
Subject: Just another Perl hacker
Date: 21 Aug 92 18:25:51 GMT
Reply-To: jfriedl@cs.cmu.edu
Organization: Carnegie Mellon / Omron Corporation

merlyn@romulus.reed.edu (Randal L. Schwartz) writes:
|> for('a'..'z','A'..'Z'){*XX=$_;$XX=$_;}print"$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $h$a$c$k$e$r,"

Ok, so why isn't there an Obfuscated Perl Contest?

Not that the above is a particularly good example, but there's little
doubt that Randal would be the winner of the 1st OPC (-:

Maybe he and the other two of the PT (Perl Trinity) should be the judges
(which would leave more chance for the rest of us).  Hmmm, maybe not...
I'd love to see what they would come up with (only the use of documented
features allowed, though! :-)

	*jeff*
-------------------------------------------------------------------------
Jeffrey Eric Francis Friedl   jfriedl@cs.cmu.edu -or- jfriedl@omron.co.jp
Omron Corporation, Section RZE, Shimokaiinji, Nagaokakyo Kyoto 617, Japan
Visiting researcher to the Mach Project, Carnegie Mellon University