HDTenEightyP/NetNews huggingface dataset:
From: iac!simpson@uunet.uu.net (Scott Simpson)
Newsgroups: comp.lang.perl
Subject: Bug in perl. Infinite loop on EOF.
Summary: Perl goes in an infinite loop on EOF.
Keywords: infinite loop, end of file
Date: 12 Jan 93 23:55:03 GMT
Reply-To: iac!simpson@uunet.uu.net
Organization: Investment Technology Group, Culver City, CA


This is perl, version 4.0

$RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $
Patch level: 33

I have the following script:

#! /usr/lbin/perl
while (<>) {
    chop;
    if ($line2 = <>) {
	if ($line3 = <>) {
	    ;
	}
    }
}

and the following data file:

line1
line2

When I run the script on the file, perl goes in an infinite loop. If I
run it in the debugger, the debugger goes in an infinite loop on the
inner loop statement.
-- 
Scott Simpson, Investment Technology Group, iac!simpson@uunet.uu.net
Newsgroups: comp.lang.perl
From: tim@mdd.comm.mot.com (Tim Rosmus)
Subject: Request: YADA (yet another data algorithm)
Organization: Motorola, Mobile Data Division - Seattle, WA
Date: Tue, 12 Jan 1993 00:53:16 GMT


  Does anybody have a routine that  will return the date given  weekday,
week-number, and year?

	ie @date = someroutine(Mon, week4 , 93)  or
	   $time = someroutine(Mon, week4 , 93)

Thanks.
-- 
 Internet:         <tim@mdd.comm.mot.com> |    Tim Rosmus (Sys Analyst)
 Motorola-X400-ID: <ctr001>               | Motorola - Mobile Data Division
 ...uw-beaver!uw-coco----\   (uucp)       |    19807 North Creek Parkway
 ...uunet-------------------!mdisea!tim   |   Bothell, WA  (206) 487-5928
Newsgroups: comp.lang.perl
From: frazier@kona.cs.ucla.edu (Gregory Frazier)
Subject: Re: Need help globbing.
Organization: UCLA, Computer Science Department
X-Newsreader: Tin 1.1 PL5
Date: Mon, 4 Jan 93 18:42:14 GMT

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.

--
"They thought to use and shame me but I win out by nature, because a true
freak cannot be made.  A true freak must be born." - K. Dunn, _Geek Love_

Greg Frazier	frazier@CS.UCLA.EDU	!{ucbvax,rutgers}!ucla-cs!frazier
Newsgroups: comp.lang.perl
From: Kevin Burton <noran!iowa!kburton@uunet.uu.net>
Subject: Makefile parsing (challenge)
Reply-To: noran!iowa!kburton@uunet.uu.net
Organization: The Internet
Date: Sat, 9 Jan 1993 21:56:26 GMT


I want to extract certain variables defined in a makefile. If the makefile
looks like:

		. 
		.
		.

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

	# This is a comment
	a.c : a.h
		al;kdjfl;kajdfl;jkadf
	b.c

		. 
		.
		.


I want to end up with a single string of "foo.c boo.c tmp.c tmp1.c a.c b.c c.c".
I want to be able to specifie the string or expression for a string that
describes the variable that I am trying to extract. I came up with the
following hard-coded perl script. I am a beginner and I know there is a
better solution than this. This is not even a complete solution, just
a start. Any ideas ?

	#!/usr/local/bin/perl
	# Extract the SOURCE files in a makefile
	
	$* = 1;
	while(<>) {
		$file .= $_;
	}

	$file =~ s/\\\n//g;
	$_ = $file;
	$file =~ s/(LIB)?SOURCES\s*=\s*(\w*\.c\s*)+//;
	print $&


-
Kevin Burton
Noran Instruments				voice: (608) 831-6511 x317
2551 West Beltline Highway, Room 532		  FAX: (608) 836-7224
Middleton, WI 53562				email: kburton@noran.com

Newsgroups: comp.lang.perl
From: tsnoddy@nyx.cs.du.edu (Todd T. Snoddy)
Subject: Need ftp site for perl documentation
Organization: Nyx, Public Access Unix @ U. of Denver Math/CS dept.
Date: Fri, 8 Jan 93 03:07:51 GMT

Can anyone give me an ftp site where I can find some type of documentation on
the perl language?  I am totally new to perl and recently installed one of the
DOS versions on my system. 

Thanks for any help.  Please email me at the following address:
tsnoddy@nyx.cs.du.edu.

Todd T. Snoddy
From: n8743196@henson.cc.wwu.edu (Jeff Wandling)
Newsgroups: comp.lang.perl
Subject: package for trig functions for use with bigfloat.pl?
Summary: bigtrig?
Keywords: bigfloat bigtrig?
Date: 12 Jan 93 06:02:56 GMT
Article-I.D.: henson.1993Jan12.060256.4640
Organization: Howling Dog

Does there exist a package for 'bigtrig' functions,
fsin(), fcos(), etc.. that are usable with bigfloat.pl?

Thanks in advance, (excuse my oversized Japh)

-- 
perl -e '$a="Japhuneasorcttlk h eae r r ,";$]=0;$s=$];while($s<4){do{$_ .= pack
("c",vec($a,$],8));$]+=4;}while($]<length($a)&&vec($a,$],8)!=32);$s++;$]=$s;$_
.= ' ';}chop;print;' Jeff Wandling  <jdw@huxley.wwu.edu> "will hack 4 food"
From: c23mts@kocrsv01.delcoelect.com (Mike Scheidler)
Newsgroups: comp.lang.perl
Subject: How to run a Perl under DOS?
Date: 6 Jan 93 21:19:29 GMT
Reply-To: c23mts@kocrsv01.delcoelect.com
Organization: Delco Electronics Corp.
Originator: c23mts@kocrsw12


Could someone shed some light on how to execute a script using one of
the DOS ports of perl?

I've seen an example somewhere which wraps the invocation of PERL.EXE into
a .BAT file (using %0 through %9 to pass any parameters), but it doesn't
seem to exit cleanly for me when using DOS 5.0.

Any help would be appreciated.

Thanks!

-- 
Mike Scheidler                    INTERNET:  c23mts@kocrsv01.delcoelect.com
Software Technology               UUCP:      deaes!c23mts
Delco Electronics Corporation     PHONE:     (317) 451-0642
Kokomo, IN 46904                  GMNET:     8-322-0642
Newsgroups: comp.lang.perl,biz.sco.general
From: giles@promed.com.au (Giles Lean)
Subject: Re: Perl on SCO Open Desktop, SCO Unix 3.2v4
Organization: Pro Medicus, Melbourne, Australia
Date: Tue, 12 Jan 93 23:57:46 GMT

kumar@cleaver.mti.sgi.com (Kumar Venkat) writes:

>Regarding big.t failing ....

>I was able to get around this by using the -DCRIPPLED_CC flag
>with cc. Then perl passed all the tests in the suite. I may have
>compromised some performance, but I am just glad to get perl
>running.

Worked here too:

1.	perly.fixer exposes SCO's egrep; use GNU egrep or
	re-write to use sed.  (Maybe you can just ignore this?)

2.	Run Configure.

	I specified -D_NO_PROTO and _DCRIPPLED_CC and used
	libs='-lc_s -lsocket -ldbm -lm -lx -lufc', and said
	that the standard C library was /lib/libc.a so that
	Configure sees the kernel stubs that are not in -lc_s.

	The -lufc is 'cos I am outside the USA and SCO doesn't
	ship crypt().

	When requested to supply the double alignment I said '4'.
	(The test program didn't compile.)

	Configure also reports errors for 'timeval' related stuff,
	but gets it right anyway (<time.h> and <sys/time.h> are
	needed).

	Configure fails to detect 'rewindir' -- on SCO Unix this
	is a macro.  I defined it by editing config.sh and noticed
	no damage.

3.	make depend
	make (not perfectly clean, but close)
	make test (all pass)


My config.sh is available for anyone who wants it; if you don't have TCP/IP
it would require some editing.

Thanks to all,

Giles
-- 
Giles Lean at Pro Medicus	<giles@promed.com.au>
From: mark@coombs.anu.edu.au (Mark)
Newsgroups: comp.lang.perl
Subject: Re: Need ftp site for perl documentation
Date: 10 Jan 93 06:22:25 GMT
Organization: Australian National University
NNTP-Posting-Host: 150.203.76.2
Organisation: Wassat?!

tsnoddy@nyx.cs.du.edu (Todd T. Snoddy) writes:

>Can anyone give me an ftp site where I can find some type of documentation on
>the perl language?  I am totally new to perl and recently installed one of the
>DOS versions on my system. 

Sniff around convex.com for docs and scripts and coombs.anu.edu.au for more 
scripts to help you learn the language.

>Thanks for any help.  Please email me at the following address:
>tsnoddy@nyx.cs.du.edu.

Done. (As Well)
From: dtb@otto (David Bath)
Newsgroups: comp.lang.perl
Subject: perl on vms ??
Date: 6 Jan 93 10:42:27 GMT
Organization: RMIT Computer Centre
NNTP-Posting-Host: otto.bf.rmit.oz.au
Summary: want perl on vms
Keywords: is perl on vms

Does perl compile on VMS ?  How ?  Do I have to take over ALL
then GNU stuff and compile it first ?

Could some kind person send me a uuencoded binary ?

Also what is this talk about v5 perl ?


David T. Bath	Email:dtb@otto.bf.rmit.oz.au	Phone:03-3477511
Global Technology Corporation, 179 Grattan St, CARLTON, VIC, 3153, AUSTRALIA
"Failure to emulate is the best revenge" - Marcus Aurelius
-- 
David T. Bath	Email:dtb@otto.bf.rmit.oz.au	Phone:03-3477511
Global Technology Corporation, 179 Grattan St, CARLTON, VIC, 3153, AUSTRALIA
"Failure to emulate is the best revenge" - Marcus Aurelius
From: mikewe@rigel.cs.pdx.edu (Michael C welsh)
Newsgroups: comp.lang.perl
Subject: Converting ctime format into an integer ??
Date: 4 Jan 93 22:16:12 GMT
Article-I.D.: pdxgate.6649
Organization: /etc/organization


I am trying to convert the actual ctime format:

	Sun Jan  3 14:17:18 PST 1993

into an integer for comparison.....

Does anyone know if there is anything laying around..or a really
good and (gulp) easy way to do this ?????

Thanks in advance,
-Mike
mikewe@acacia.cs.pdx.edu
From: lusol@Lehigh.EDU (Stephen O. Lidie)
Newsgroups: comp.lang.perl
Subject: Re: "Secure" way to find out hostname
Date: 6 Jan 93 14:01:49 GMT
Organization: Lehigh University, Bethlehem PA

In article <1id258INN8j6@nntp1.radiomail.net> hogan@radiomail.net (Emmett
Hogan) writes:
>Hi All,
>
>Quick and hopefully easy question:
>
>Is there an acceptable way to find out your machine's hostname in a setuid  
>PERL script?  When I try this: $host = `/bin/hostname` I get INSECURE  
>path.
>
>Any ideas?
>
>Thanks in advance,
>Emmett
>
Now, I've only written one setuid Perl program but I had the same problem.
Never did figure out 'the right way' to do it, but did get around it by doing
all my initialization under the user's id:

$euid = $>;               # user  
$> = $<;          
..
chop($hostname = `/bin/hostname`);
..
$> = $euid;               # back to root or whatever


OK you Perl heavies, let's hear the full 'how to untaint' story....



SOL

system( 'telnet Turkey.CC.Lehigh.EDU 4031' ); # JAPH
Newsgroups: comp.lang.perl
From: cameron@spectrum.cs.unsw.oz.au (Cameron Simpson)
Subject: Re: getopts.pl bug fix
Summary: they aren't bugs
Reply-To: cameron@spectrum.cs.unsw.oz.au (Cameron Simpson)
Organization: CS&E Computing Facility, Uni Of NSW, Oz
Date: Sat, 9 Jan 1993 09:12:07 GMT

In article <1993Jan8.062100.20495@uvaarpa.Virginia.EDU> aks%anywhere@hub.ucsb.edu writes:
| In debugging a new script, I've found a couple of bugs in "getopts.pl"
| (typically installed as /usr/local/lib/perl/getopts.pl).
| 
| First, if an option requires an argument and @ARGV is empty, its
| variable will get set to "shift @ARGV", which is "undef"; not a good
| thing to *set* a variable with.

I disagree. It's an excellent way to indicate that no value was supplied,
which is exactly the circumstance here.

| Second, if you give two consecutive options, both of which want
| arguments, the second option is used as the value for the first.  Eg:
| '-x -y' results in $opt_x eq '-y', not the expected result of setting
| both $opt_x and $opt_y.

But what if I _want_ to set to argument of -x to "-y"? With your patch I'm
screwed. This is NOT a bug!
	- Cameron Simpson
	  cameron@cse.unsw.edu.au, DoD 0743
--
If it can't be turned off, it's not a feature. - Karl Heuer
From: Eric-Amick@cup.portal.com (Richard E Amick)
Newsgroups: comp.lang.perl
Subject: Re: pattern matching
Date: Tue, 12 Jan 93 15:19:15 PST
Organization: The Portal System (TM)

>I expexted the constructs    /\d{1,1}/  or /\d{1}/
>to match single digits only, but it seems to match multiple digit
>numbers as well.
>My problem is trivial, and I know a couple of ways to get around
>it, but since I'll use Perl a lot in the future, I want to get to
>the bottom of things like this.
>
>I simply want to insert a leading zero in front of a one digit date:
>s/ *(\d{1})/0$1/;
>and it replaces 88 with 088 as well as 8 with 08.

The thing is that \d already matches a single digit!  Assuming that your
one- or two-digit number is a separate word:
s/\b(\d)\b/0$1/
should do what you want.  The other possibility is using sprintf.

Eric
Newsgroups: comp.lang.perl
From: tye@spillman.uucp (E. Tye McQueen)
Subject: Re: Makefile parsing (challenge)
Date: Mon, 11 Jan 1993 16:59:01 GMT
Organization: Spillman Data Systems

Kevin Burton <noran!iowa!kburton@uunet.uu.net> writes:
)I want to extract certain variables defined in a makefile. If the makefile
)looks like:
)
)   SOURCES= foo.c boo.c\
)   tmp.c tmp1.c \
)   a.c b.c c.c
)
)I want to end up with a single string of "foo.c boo.c tmp.c tmp1.c a.c b.c
) c.c".
)I want to be able to specifie the string or expression for a string that
)describes the variable that I am trying to extract.

A subsequent post to get make to tell you should work more often
then this.  But it is still an interesting example (maybe you picked
up a package with a makefile but you don't have make and you want to
compile it by hand?).

It is not too hard to correct this to differentiate "$$(VAR)" from
"$(VAR)", but I leave this as an exercise to the reader.  [Hint:
it involves "(^|[^\$])(\$\$)*".]

Interestingly, I couldn't find any way to get (at least one version
of) make to "quote" a # or tailing \ so this example is the same as
make in that respect.

#!/usr/bin/perl

if(  ! @ARGV  ) {
    die "Usage: $0 VAR1 [VAR2 [...]] <makefile\n";
}

while(  <STDIN>  ) {
    if(  m!^\s*([a-zA-Z]\w*)\s*=!  ) {  # "VAR=VAL" line:
        $var= $1;       # Save the variable name.
        $var{$var}= ""; # In case this redefines a variable.
        $_= $';         # At least the first part of the value.
        while(  1  ) {
            if(  /#/  ) {           # Comment on end of line:
                $var{$var} .= $`;   # Just use part before comment.
                last;               # Value can't continue onto next line.
            }
            $var{$var} .= $_;   # Why isn't this an L-value?
            chop( $var{$var} ); # Remove the newline
         last  unless  m!\\$!;  # Value is not continued onto next line.
            chop( $var{$var} ); # Remove the back slash
            $_= <STDIN>;        # Get next line of value.
        }
        # Expand "$(var)" strings in value:
        while(  $var{$var} =~ m!\$\(([a-zA-Z]\w*)\)!  ) { # Wrong for `$$(val)'
            $var{$var}= $` . ( $var{$1} || $ENV{$1} ) . $';
        }
    }
}

for(  @ARGV  ) {
    print "$_=`$var{$_}'\n";
}

 tye@spillman.com                         Tye McQueen, E.
----------------------------------------------------------
 Nothing is obvious unless you are overlooking something. 
----------------------------------------------------------
Newsgroups: comp.lang.perl
From: grover@dawkins.cs.unlv.edu (Kevin Grover)
Subject: Re: How to run a Perl under DOS?
Reply-To: grover@isri.unlv.edu
Organization: Information Science Research Institute (UNLV-ISRI)
Date: Thu, 7 Jan 93 19:41:56 GMT

In article <1993Jan7.182209.1931@unipalm.co.uk>, ian@unipalm.co.uk (Ian Phillipps) writes:
) 
) I've recently moved over to this idiom:
) 
)     @rem = '
)     some dos batch commands
)     PERL -S %0.BAT %1 %2 %3 (etc)
)     GOTO ENDOFPERL
)     ';
)     # your perl script here
)     __END__
)     :ENDOFPERL
)     some more DOS if you need it
)     rem Drop through end of Batch file
) 

They best i've found to call PERL, is from 4DOS.  Add this line to
your autoexec.bat file:
	set .PL=C:\BIN\PERL.EXE		(or where ever your exe lives)

Then, any file ending in .PL is automatically a executable perl
script.  The benefit of this is that redirection on the command line
works (it's pretty flaky w/ batch files).

--------------------------------------------------------------------------
 Kevin O. Grover      | UNLV Computer Science and Electrical Engineering
 grover@isri.unlv.edu | ISRI - Information Science Research Institute
 CServe: [73627,1677] | 4505 S. Maryland Parkway, Las Vegas NV 89154-1017
From: pleticha@casc.math.uh.edu (Dennis Pleticha)
Newsgroups: comp.lang.perl
Subject: Need help with passwd program from PERL book.
Date: 12 Jan 1993 17:28:50 GMT
Organization: UH Dept of Math
NNTP-Posting-Host: casc.math.uh.edu

I'm looking for information on a bit of code mentioned in chapter 6 page 282 
dealing with password aging.  The section reads as follows:

There are hooks in this program for doing password expiration - the age of the
password is mystically encoded in the salt of the encrypted password, and you
can write a program that goes through the /etc/passwd file each night and expires
old accounts by changing the user's shell.

I haven't been able to figure out how to decode the age of the password using
the salt as suggested above.  I would greatly appreciate any help (especially
perl scripts) to do this.

Thanks,

Dennis Pleticha
From: majidi@rwja.umdnj.edu (Masoud Majidi)
Newsgroups: comp.lang.perl
Subject: running setuid scripts
Date: 6 Jan 93 18:15:18 GMT
Organization: Robert Wood Johnson Medical School, Piscataway NJ

Dear netters,

I wrote a setuid script and used the suidscript on the camel book to get an
executable. Now  the permissions on the executable are rwsr-xr-x as expected
but when somebody else tries to run the script they get the following error:

Can't run setuid script with taint checks.

It runs fine when I run it from my account.
Could somebody please tell me know why I am getting this error and also
how I can get around it?

Thanks a lot,

--
Masoud Majidi                           Internet: majidi@umdnj.edu
Academic Computing Services             Voice: (908) 463-4839
University of Med & Dent of NJ          Fax:   (908) 463-5252
Newsgroups: comp.lang.perl
From: hfaester@Physik.TU-Muenchen.DE (Hannes Faestermann)
Subject: Re: Problems with "-s" in #! line - help !
Organization: Leibniz-Rechenzentrum, Muenchen (Germany)
Date: Thu, 7 Jan 1993 18:16:27 GMT

przemek@rrdstrad.nist.gov (Przemek Klosowski) writes:

>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:

That's a possibility, but I prefer using:

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

Hope that helps

	Hannes

--
Hannes Faestermann           |  Internet: 
Physik-Department E17        |   Hannes.Faestermann@Physik.TU-Muenchen.DE
TU Muenchen,                 |  
W-8046 Garching, Germany     |
Newsgroups: comp.lang.perl
From: jwh2@cornell.edu (James W. Howell)
Subject: stat problem
Summary: stat doesn't return anything when dealing large numbers of files.
Keywords: stat large amounts of files.
Nntp-Posting-User: @cornell.edu
Organization: Cornell University
Date: Wed, 6 Jan 1993 15:10:16 GMT

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

#!/usr/bin/perl


$usr_spool_dir = "/usr/include";
# $usr_spool_dir = "/usr/spool/mail/jwhtest";
# $usr_spool_dir = "./";

opendir(SDIR,$usr_spool_dir);

@dir_files = readdir(SDIR);

$ct = 0;
foreach $file (@dir_files)   {
	if( -d $file) { next; }
	if( -B $file) { next; }
	$one_file[$ct] = $file;
	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = stat($one_file[$ct]);
	$file_size[$ct] = $size;
	print "$dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size " ;
	print "file = $one_file[$ct]  size = $size 	\n";
	$ct = $ct + 1;
}

closedir(SDIR);

@sorted_big_files = sort bynumber  @file_size;

for ( $x=0; $x<=$ct; $x++ )    {
	print "$sorted_big_files[$x] \n";
	if($x>=10) { exit 0 ; }    # I only want to see the top ten.
}

sub bynumber { $b <=> $a; }
Newsgroups: comp.lang.perl
From: cameron@cs.unsw.oz.au
Subject: bug with "last"
Reply-To: cameron@cs.unsw.oz.au
Organization: CS&E Computing Facility, Uni Of NSW, Oz
Errors-To: cameron@cs.unsw.oz.au
Date: Mon, 11 Jan 1993 04:53:02 GMT
Return-Receipt-To: cameron@cs.unsw.oz.au

This loop runs three times.

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

Surely it shouldn't? This is perl 4.035.
	- Cameron Simpson
	  cameron@cse.unsw.edu.au, DoD 0743
--
You can lead a horse's ass to knowledge, but you can't make him think.
From: manaster@yu1.yu.edu (Chaim Manaster)
Newsgroups: comp.lang.perl
Subject: Re: How to run a Perl under DOS?
Date: 11 Jan 93 18:46:39 GMT
Organization: School of Engineering and Applied Sciences, UCLA

In article <1993Jan11.062312.323@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
>>
>>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?
>
>The quotes just make 1-5 a literal to perl.  When perl is called, it isn't
>called as "perl howdy.bat %1 %2", it's called as "perl howdy.bat firstname
>lastname" - the arguments have already been expanded by DOS.  If there were
>no quotes of any kind, the whole thing would blow up.  If there were double
>quotes, perl would (I think) try to interpret %1, etc as associative
>arrays.  It still works, but it seems to take a little longer. 

I still have problems understanding your response.
As you say above, the DOS batch processor gets:
	perl howdy.bat %1 %2
and expands it to:
	perl howdy.bat firstname lastname
What I don't see is where either the single quotes or double quotes
you refer to, come from. The only quotes in the script above,
enclosing lines 1-5 (single quote) are used by perl once it has
already been invoked and for all practile purposes thrown away.
Teh line seen by the perl line as seen by the DOS processor has NO
quotes (of either kind) at all. So the last three or four lines of
your reply above still confuse me.

My original question was meant to be, if (for example) lastname was
replaced by Henry$lastname would perl expand the $lastname part of
the parameter, and would DOS either choke or expand it as well? And
if you wanted to prevent expansion by either DOS or perl what would
you do?

Thanks again.

Henry Manaster



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