HDTenEightyP/NetNews huggingface dataset:
From: asherman@fmrco.com (Aaron Sherman)
Subject: Re: Need help globbing.
Reply-To: asherman@fmrco.COM
Organization: I-Kinetics, 19 Bishop-Allen Dr., Cambridge, MA
Date: Tue, 5 Jan 1993 19:51:33 GMT


>>>>> frazier@kona.cs.ucla.edu (Gregory Frazier) said:

Russell Mosemann (mosemann@unlinfo.unl.edu) wrote:
: 
:    What's wrong with this?
: 
:       chown($uid, $gid, <"$home/.*">);
: 
:    I get "csh: Permission denied.".  I've tried various combinations of
: <${home}/.*>, <${home}/.??*>, <${"$home/.*"}> (heh), etc., but that doesn't
: work, either.  The script is running setuid to root, and a previous line
: 
:       chown($uid, $gid, $home);
: 
:    works fine.  Thanks.

> The problem is that you are trying to change the ownership and
> group of "~/..", which is not yours to change.

Nope. The problem is that csh (which is what perl uses to resolve
globbing in <>'s will not allow itself to be used if uid != euid.
Stupid, but there it is. You need to do 

	$< = $>;

To make your uid the same as your euid.


			-AJS

--
--------
Disclaimer: I am solely responsible for the content of this message.
The views expressed here may not be the views of I-Kinetics, Fidelity,
any of the Fidelity-owned corporations or my mother.
From: brossard@siisun.epfl.ch (Alain Brossard EPFL-SIC/SII)
Newsgroups: comp.lang.perl
Subject: Re: Makefile parsing (challenge)
Date: 11 Jan 93 11:11:55 GMT
Reply-To: brossard@sic.epfl.ch
Organization: Ecole Polytechnique Federale de Lausanne

|> Kevin Burton <noran!iowa!kburton@uunet.uu.net> writes:
|> 
|> >I want to extract certain variables defined in a makefile.
   
    I wrote the following because I needed to do just that.  You'll need
to adapt it to your specific needs.

#  get_nis_passwd_file returns the name of the NIS password file and the
# name of the shadow password file.  Either can be replaced with the
# string NIS if it thinks this is the master NIS machine but it couldn't find
# the password file; or it returns an empty string otherwise (not an NIS master)
.
# It assumes that the current directory is /var/yp
#
local( %var );
sub get_nis_passwd_file {
    local( $pwd, $pwd_adj );
    if( -e 'binding' && -e 'Makefile' && -e 'passwd.time' &&
                                open( MAKE, "Makefile" ) ) {
        while( $_ = <MAKE> ) {
            if( /^\s*(\w+)\s*=\s*(.*)$/ ) {
                $var{ $1 } = $2;        # record Make variables   <===========
            } elsif ( /^passwd.time:\s*([^\s]+)/ ) {
                $pwd = &gnpf_expand_make_name( $1 );
                $pwd = '' if ! -e $pwd;
            }
        }
        close MAKE;
        $pwd = 'NIS' if ! $pwd;
    }

    return ( $pwd, $pwd_adj );
}
#
#               Expand any variables in the file name
#
sub gnpf_expand_make_name {
    local( $pwd ) = shift;
    local( $begin, $var, $end );
    while( $pwd =~ /^([^\$]*)\$[({](\w+)[)}](.*)$/ ) {
        $begin = $1; $var = $2; $end = $3;
        $var = $var{ $var };    # Doesn't matter if not defined!
        $pwd = $begin.$var.$end;
    }
    return $pwd;
}
1;

-- 

Alain Brossard, Ecole Polytechnique Federale de Lausanne,
	SIC/SII, EL-Ecublens, CH-1015 Lausanne, Suisse, +41 21 693-2211
brossard@sic.epfl.ch
Newsgroups: comp.lang.perl
From: rahardj@ccu.umanitoba.ca (Budi Rahardjo)
Subject: Re: ftp side for latest version on MS/DOS
Organization: University of Manitoba, Winnipeg, Canada
Date: Tue, 5 Jan 1993 04:57:12 GMT

In <1993Jan04.085032.2364@news.mentorg.com> Gertjan Koetsier <gertjan_koetsier@mentorg.com> writes:

>I would like to get hold of the latest version of perl (I have no C
>compiler).
>but I cannot get from jpl on anonymous (permission denied for
>anonymous). Is
>there another way to get it?

Try anonymous ftp    ftp.ee.umanitoba.ca:/pub/msdos/perl 

-- budi
-- 
Budi Rahardjo <Budi_Rahardjo@UManitoba.Ca>
Unix Support - Computer Services - University of Manitoba
From: manaster@yu1.yu.edu (Chaim Manaster)
Newsgroups: comp.lang.perl
Subject: Re: How to run a Perl under DOS?
Date: 10 Jan 93 03:50:18 GMT
Organization: School of Engineering and Applied Sciences, UCLA

In article <1993Jan8.220106.10383@netcom.com> jfh@netcom.com (Jack Hamilton) writes:
>>>1  >>    @rem = '                   
>>>2  >>    some dos batch commands
>>>3  >>    PERL -S %0.BAT %1 %2 %3 (etc)
>>>4  >>    GOTO ENDOFPERL
>>>5  >>    ';
>>>6  >>    # your perl script here
>>>7  >>    __END__
>>>8  >>    :ENDOFPERL
>>>9  >>    some more DOS if you need it
>>>10 >>    rem Drop through end of Batch file

>>Why does Perl skip over the GOTO?
>
>Because it's inside a quoted string, the one which starts on line 1 and
>ends on line 5.  As far as perl is concerned, it's not a statement.

Right, that should have been obvious.

>>How does the expansion of the %0-%9 parameters work? Apparently
>>this is done twice, once in the batch processor and again in the
>>Perl processor. Is that right? Thus which meta characters must be
>>escaped and Once or twice?
>
>The parameters are expanded only by DOS.  They're inside single quotes and
>not expanded.  And even if they were, they'd still be inside a string, so
>nothing would happen. 

I am still very confised on this one. If my batch file is named
"howdy" and my DOS command line is: Howdy firstname lastname, then
firstname gets passed to %1 and lastname gets passed to %2. Then,
when Perl is activated it passes %1 and %2 to @ARGV. Where do the
single quotes youtalk about come into the picture? Also if  there
were no single quotes (no matter where they come from) would Perl
then do an expansion as well?


-- 
***************************************************************************
	Henry Manaster          *     EMail: manaster@yu1.yu.edu
	Brooklyn, NY            *
                                *
	Disclaimer: The above is not necessarily MY opinion nor that 
				of anyone else :-)  ????!
****************************************************************************
From: merlyn@ora.com (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: bug with "last"
Date: 11 Jan 93 20:09:56 GMT
Article-I.D.: romulus.MERLYN.93Jan11120951
Organization: Stonehenge Consulting Services; Portland, Oregon, USA

>>>>> In article <1993Jan11.175416.3503@netcom.com>, lgolding@netcom.com (Laurence J. Golding) writes:
Laurence> 	Within the BLOCK of any compound loop statement, you may use ...
Laurence> 			last
Laurence> 			last LABEL
Laurence> 	... If the LABEL is omitted, the loop control statement refers to
Laurence> 	the innermost enclosing loop.

Laurence> Now, in your example, the "{last;}" certainly does not look like a loop,
Laurence> and the "for" certainly does look like the innermost enclosing loop.  So it
Laurence> appears that the book should read:

Laurence> 	... If the LABEL is ommitted, the loop control statement refers to
Laurence> 	the innermost enclosing _block_.

Ahhh.  But it's not just a block, or the branches of an "if" would count.

So, we have three overloaded uses of curlies: an "if" branch, a naked
block, and a traditional loop.  "last" applies to the last two, so
we've collectively called them (defined in folklore) as "loops".  All
three qualify as "blocks", using the C definition, so changing the
Camel reference to "block" doesn't cut it.

OK, so the folklore should have been described. Sorry. :-)

{ print "Just another Perl hacker,"; last; }
--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@ora.com (semi-permanent) merlyn@reed.edu (for newsreading only)
factoid: "Portland, Oregon, home of the California Raisins and Lone-Star Beer!"
From: paul@alantec.com (G. Paul Ziemba)
Newsgroups: comp.lang.perl
Subject: Re: Makefile parsing (challenge)
Date: 11 Jan 93 18:32:06 GMT

noran!iowa!kburton@uunet.uu.net (Kevin Burton) writes:


>I want to extract certain variables defined in a makefile.

>	SOURCES= foo.c boo.c\
>	tmp.c tmp1.c \
>	a.c b.c c.c

Rather than use perl to parse the makefile (*gasp*), why not add a target
to the makefile that emits the value of the macro you're interested
in? This technique avoids any problems you might encounter if make's
parsing is different from your script's parsing.

For instance:

	emit-sources-value:
		@echo $(SOURCES)

If you were interested in an arbitrary macro's value, you could
use perl to construct a makefile fragment with the desired rule,
and then run make on it together with the makefile in question
to get the value, with make's -f flag.

cheers,

 ~!paul
-- 
Paul Ziemba  paul@alantec.com	alantec!paul  408.955.9000 x227

"The first TV I ever owned...I threw from a third story window at a burglar"
 - sjackson@parc.xerox.com
Newsgroups: comp.lang.perl,gnu.emacs.help
From: pat@fitz.b30.ingr.com (Patrick Fitzgerald)
Subject: WANTED: perl or elisp code for SGML
Organization: Gizmonic Institute
Distribution: comp
Date: Thu, 7 Jan 1993 15:18:05 GMT

I am looking for perl and elisp code that handles SGML files.
Please respond via email if possible.  Thanks in advance,
-- 
   ______   |o| Patrick Fitzgerald    |o| Mailstop GD3002
  / ___  )  |o| pat@fitz.b30.ingr.com |o| Intergraph Corporation
 / __)/ /__ |o| Sr. Software Analyst  |o| (205) 730-3741, FAX 3300
(_/it(_____)          Don't blame me, I voted Libertarian!
From: john@sekrit.WPI.EDU (John Stoffel)
Newsgroups: comp.lang.perl
Subject: Re: stat problem
Date: 6 Jan 93 11:48:43
Organization: Worcester Polytechnic Institute
NNTP-Posting-Host: sekrit.wpi.edu
In-reply-to: jwh2@cornell.edu's message of Wed, 6 Jan 1993 15:10:16 GMT

>>>>> On Wed, 6 Jan 1993 15:10:16 GMT, jwh2@cornell.edu (James W. Howell) said:
James> Nntp-Posting-User: @cornell.edu

James> Using the below perl script the stat routine doesn't return
James> anything, has anyone seen this type of behavior before???  Jim
James> Howell

I played around with this for a bit before i figured out that stat()
wants the FULL path to the file before it will work.  All you have to
do is make two simple changes to your program.

James> #!/usr/bin/perl
James> $usr_spool_dir = "/usr/include/";
                                     ^
Add the trailing slash to make it easier later on...

James> # $usr_spool_dir = "/usr/spool/mail/jwhtest";
James> # $usr_spool_dir = "./";
James> opendir(SDIR,$usr_spool_dir);
James> @dir_files = readdir(SDIR);
James> closedir(SDIR);
       ^^^^^^^^^^^^^^^

Moved this up here because it is 'safer' and makes more logical sense
to have it here, right after you have finished reading in all the
directory entries.

James> $ct = 0;
James> foreach $file (@dir_files)   {
James> 	if( -d $file) { next; }
James> 	if( -B $file) { next; }
James> 	$one_file[$ct] = $file;

James> 	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) =
		stat($usr_spool_dir . $one_file[$ct]);
                     ^^^^^^^^^^^^^^^^^

This is the major change, adding in the full path to the file you want
to stat.

This should do the trick.  Oh yeah, this was with Perl 4.035 running
on a DECstation 3100 running Ultrix 4.3

					John

--
Youth of today!  Join me in a mass rally for traditional mental attitudes!
-------------------------------------------------------------------------------
john@wpi.wpi.edu | Work Station Specialist | Worcester Polytechnic Institute
John Stoffel     | 508-831-5512 (work)     | Worcester, MA  01609
Newsgroups: comp.lang.perl
From: efroyman@lynx.dac.northeastern.edu (Ella Froyman)
Subject: PERL
Keywords: perl
Organization: Northeastern University
Date: Wed, 6 Jan 1993 21:26:56 GMT

Hi netters;

I am new to perl and can you clarify some things for me:

(1) What does a $variable| mean?
(2) What does $source++ do?
    !(system ("mt -f $source fsf 1") >> 8) || &tape_fail();

Thanks I know this are basic questions but i am new to PERL and
languages.


Send all replies to my email
Ella
From: merlyn@ora.com (Randal L. Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Question about output formats and numbers
Date: 10 Jan 93 14:30:41 GMT
Article-I.D.: romulus.MERLYN.93Jan10063037
Organization: Stonehenge Consulting Services; Portland, Oregon, USA

>>>>> In article <1993Jan10.071638.25039@ils.nwu.edu>, mccoy@ils.nwu.edu (Jim Mccoy) writes:
Jim> I have a small question regarding formats and numbers that I have not been
Jim> able to find in the docs or Camel book and thought I would throw it out
Jim> here and see if anyone knows either way...

Well, yeah, this is probably the right place.  Better than rec.pets. :-)

Jim> I am printing out a bunch of stuff that I would like to just write a format
Jim> for and use "write", but I need to print one of the fields with a format of
Jim> "%1.5e".  Can this be done in a format?  The Camel book mentions mixing
Jim> prints with writes on the same output filehandle, but is it possible to mix
Jim> the two on the same line?

Of course.  Two ways to do that.  Either stuff the result of
sprintf("%1.5e",$yourval) into a variable and print that variable, or
use the sprintf directly in the format.  Here's an arbitrary example
of the latter:

	$someval = 3.2;
	$otherstring = "Hello world";
	write;

format STDOUT =
@<<<<<<<<<<< @<<<<<<<<<<<
$otherstring, sprintf("%1.5e",$someval);
.

See? Pretty simple. Arbitrary expressions in the variable part of the
format have saved my tail on more than one occasion.  For example,
watch this:

	@alist = [some list];
	@blist = [some list];
	@clist = [some list];
	write;

format STDOUT =
@<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<< ~~
shift(@alist),shift(@blist),shift(@clist)
.

Note the double tilde repeat... that means to iterate this line until
the entire line is blank.  Now, I've got a format that prints columnar
data side by side until all three parts are exhausted.  Cool, eh?

"After taking Randal's class, and with a few short weeks of practice,
I too, was writing clever, obscure Perl code." -- actual testimonial
(not!)

eval "format =\nJust another Perl hacker,\n.\n"; write
--
Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
merlyn@ora.com (semi-permanent) merlyn@reed.edu (for newsreading only)
factoid: "Portland, Oregon, home of the California Raisins and Lone-Star Beer!"
From: przemek@rrdstrad.nist.gov (Przemek Klosowski)
Newsgroups: comp.lang.perl
Subject: Re: Problems with "-s" in #! line - help !
Date: 7 Jan 93 16:27:56 GMT
Organization: U. of Maryland/NIST
In-reply-to: peter@micromuse.co.uk's message of 6 Jan 93 12:59:10 GMT

In article <peter.726325150@hilly> peter@micromuse.co.uk (Peter Galbavy) writes:

   If the #! line reads:

   #!/usr/local/bin/perl -s

   All is OK'ish. But then add a comment for emacs:

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

I think it is a better policy to add 

# Local variables:
# mode:Perl
# End:

at the end of the file, since different operating systems have different
limits on the length of the #! line, so besides not working, your scripts
may be non-portable :^)

I use Wayne Mesard's dmacro package in Emacs, so that every new Perl file
starts this way here:


#!/usr/local/bin/perl
# Copyright (c) 1993 Przemek Klosowski at NIST. All Rights Reserved
# Filename: new.pl.
# $Id$
# Purpose: 
# Options: 
# History:              przemek - Jan 7, 1993: Created.


require "getopts.pl";
&Getopts();

# Local variables:
# mode:Perl
# End:

--
			przemek klosowski (przemek@rrdstrad.nist.gov)
			Reactor Division (bldg. 235), E111
			National Institute of Standards and Technology
			Gaithersburg, MD 20899,      USA

			(301) 975 6249
From: przemek@rrdstrad.nist.gov (Przemek Klosowski)
Newsgroups: comp.lang.perl
Subject: How to limit Perl memory usage?
Date: 5 Jan 93 23:18:33 GMT
Organization: U. of Maryland/NIST


Hello!

I wrote a Perl script to archive data from across the network (from
non-unix machines). The script uses FTP to get the remote files,
calling G. Spafford's ftplib.pl library. 

The program seems to have a memory leak: it grows by 100 KB per each
file transfered (and I may have several hundred files per run).

This is a core of the script (%getlist contains a list of candidates for 
transfer):
	
	while (($key,$val) = each %getlist) {

	    # <prepare source and destination names>

	    if (&check_file($fullname)) {
		    &ftp'get($fullname, $unixpath) || do # '
		    {		# 
			warn &ftp'error; # '
			&booboo("Coudn't get file $host::$fullname"); 
			&ftp'close; # 'shut down ftp 
			next COMPUTER; #  give up on this computer for now
		    };		# 
	    } else {
		    warn "Couldn't find file $host::$fullname\n";
	    }
	    $BCKLST{$key} = $val;
	}

where routine check_file checks if the remote file exists

sub check_file {		# does the unique file exist on the FTP host?
    local($file)=@_[0];
    local(@listnames);
    (@listnames = &ftp'list($file)) || (warn &ftp'error, return undef);
    return pop @listnames if( $#listnames == 0 ); # worry if more than one...
    return undef;		# otherwise
}

The only place that I can think of that may leak memory is the ftp'do_ftp_listing
routine that I include below: it seems to allocate a global array @ftp_list
and pass it as a result. I have those questions:

 - is this consistent with my observed memory growth? I mean, typically
   there would be only one file returned by ftp'list(); why would the list
   take 100KB? 
   If not, what else do I miss? 

   If yes, 

 - is there a way of deallocating the storage created in do_ftp_listing?

   

sub list { ## Public
    &do_ftp_listing("nlst", @_);
}
sub do_ftp_listing { ## Private
    local(@lcmd) = @_;
    @ftp_list = ();
    $ftp_trans_flag = 0;

    return undef unless &do_open_dport;

    return undef unless &do_ftp_cmd(150, @lcmd);
    do {			#  Following is grotty, but chat2 makes us do it
        &chat'expect($Data_handle, 30,
		"(.*)\r?\n",    'push(@ftp_list, $1)',
		"EOF",     '$ftp_trans_flag = 1');
    } until $ftp_trans_flag;

    &chat'close($Data_handle);
    return undef unless &do_ftp_cmd(226);

    grep(y/\r\n//d, @ftp_list);
    @ftp_list;
}  

--
			przemek klosowski (przemek@rrdstrad.nist.gov)
			Reactor Division (bldg. 235), E111
			National Institute of Standards and Technology
			Gaithersburg, MD 20899,      USA

			(301) 975 6249
From: manaster@yu1.yu.edu (Chaim Manaster)
Newsgroups: comp.lang.perl
Subject: Re: *sigh* Yes, the eternal question: How do I run it under 4dos aga
Date: 8 Jan 93 19:16:31 GMT
Organization: School of Engineering and Applied Sciences, UCLA

In article <C0Jq2p.FDD@world.std.com> aml@world.std.com (Andrew M Langmead) writes:
>In the DOS version, if you have 4DOS to execute the file FOO.PL with the
>perl interpreter, and add a parameter BAR (FOO BAR) the command that a
>actually gets executed is PERL.EXE FOO.PL BAR
>BAR is now available in the @ARGV array. Any options to perl itself can
>be specified on the first line as #!/usr/bin/perl -n
>or by explicitly starting the perl interpreter with the appropriate options
>PERL -n FOO.PL BAR

I thought that the point of invoking the 4dos convention was that
the unix #! convention doesn't work in DOS.

Also, if the perl script is named "howdy" with parameters firstname
and lastname then the command line would not refernce perl at all,
but only howdy, as in: howdy(.pl) firstname lastname, and
the only refernce to perl would be IN howdy but not on the command
line. This seems to contadict your above statement. What am I
misunderstanding?

Thanks again for the help.

Henry Manaster


x
x
x
x

>>Thanks for the help.
>
>>Henry Manaster
>
>>-- 
>>***************************************************************************
>>	Henry Manaster          *     EMail: manaster@yu1.yu.edu
>>	Brooklyn, NY            *
>>                                *
>>	Disclaimer: The above is not necessarily MY opinion nor that 
>>				of anyone else :-)  ????!
>>****************************************************************************
>> 
>-- 
>----


-- 
***************************************************************************
	Henry Manaster          *     EMail: manaster@yu1.yu.edu
	Brooklyn, NY            *
                                *
	Disclaimer: The above is not necessarily MY opinion nor that 
				of anyone else :-)  ????!
****************************************************************************
From: manaster@yu1.yu.edu (Chaim Manaster)
Newsgroups: comp.lang.perl
Subject: Re: *sigh* Yes, the eternal question: How do I run it under 4dos aga
Date: 7 Jan 93 22:43:43 GMT
Organization: School of Engineering and Applied Sciences, UCLA

In article <0L1PwB5w165w@cybrspc.UUCP> roy%cybrspc@cs.umn.edu (Roy M. Silvernail) writes:
>kenc@sol.acs.unt.edu (Ken Corey - Operator) writes:
>
>> anyway, what's the line I put in 4dos.ini so that 4dos recognixses .pl as an 
>> executable, and runs perl on that script?
>
>Not in the .ini, but in autoexec.bat, put
>
>set .pl=c:\where\ever\perl.exe
>
>Works for me.  For command line flags, put 'em in the #!/usr/bin/perl
>line at the beginning of the script.
>--

Could you provide an example of  using the command line flags and
how they go into the #!/usr/bin/perl line when using 4dos. Also
what would the actual command line inokation be? Also is there a
difference between "flags" and file parameters on the command line?

I also don't quite understand the logic here? Isn't the # sign the
comment marker in DOS, so how is anything on that line actually
used? Also in DOS it is the \ rather than the / that demarks
directories. Is this auto translated?

Also, how are the flags and parameters from either the command line
or the #! line referenced in the Perl script. I thought I
understood this in the Unix version, but I am even more confused
in the DOs versions. I am obviously new to all of this.

Thanks for the help.

Henry Manaster

-- 
***************************************************************************
	Henry Manaster          *     EMail: manaster@yu1.yu.edu
	Brooklyn, NY            *
                                *
	Disclaimer: The above is not necessarily MY opinion nor that 
				of anyone else :-)  ????!
****************************************************************************
 
Newsgroups: comp.lang.perl
From: davidj@Data-IO.COM (David Jablonski)
Subject: How do I do scanf() in Perl?
Organization: Data I/O Corporation
Date: Mon, 4 Jan 1993 17:26:56 GMT


Hello,

        I am writing an application that needs to take records in the
following printf-like format and split up the various fields:

        %3d,"%s",%d,%f,"%s","%s",%d,%f

        The strings may or may not contain commas.

        I have been able to do this with a couple of split() commands
and some other tricks but it would sure be nice if I could do it as
clearly and concisely as good old fscanf().  Has anyone out there
found a good way to do this?

        Please reply to davidj@Data-IO.COM.  Thanks for your help.

                                        --David

Newsgroups: comp.lang.perl
From: lgolding@netcom.com (Laurence J. Golding)
Subject: Re: bug with "last"
Organization: Netcom - Online Communication Services  (408 241-9760 guest) 
Date: Mon, 11 Jan 1993 17:54:16 GMT

cameron@cs.unsw.oz.au writes:

>This loop runs three times.

>	for (('a','b','c'))
>		{ print "\$_ is '$_'\n";
>		  { last; }
>		}

>Surely it shouldn't? This is perl 4.035.

I believe this behavior is correct (BTW, it does the same thing in 4.019),
but I can see why it looks like a bug.  The "problem" seems to be in the
description of "last" on p.95 of the Camel book.  There we read:

	Within the BLOCK of any compound loop statement, you may use ...
			last
			last LABEL
	... If the LABEL is omitted, the loop control statement refers to
	the innermost enclosing loop.

Now, in your example, the "{last;}" certainly does not look like a loop,
and the "for" certainly does look like the innermost enclosing loop.  So it
appears that the book should read:

	... If the LABEL is ommitted, the loop control statement refers to
	the innermost enclosing _block_.

Either of these constructs works:

	for (('a','b','c'))
	{
	    print "\$_ is $_\n"; last;
	}
or
	MY_LABEL:
	for (('a','b','c'))
	{
	    print "\$_ is $_\n"; {last MY_LABEL;}
	}

Can anyone verify this speculation on my part?
-- 
Laurence J. Golding
lgolding@netcom.com
(510)490-3663
Newsgroups: comp.lang.perl