[9714] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Resend: Perl-Users Digest, Issue: 3305 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 1 21:27:17 1998

Date: Sat, 1 Aug 98 18:19:05 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Sat, 1 Aug 1998     Volume: 8 Number: 3305

Today's topics:
        Split the command line! <jonah@g-s.net>
    Re: Split the command line! (Abigail)
    Re: Split the command line! <aperrin@mcmahon.qal.berkeley.edu>
    Re: Split the command line! <jdporter@min.net>
    Re: Split the command line! <thomas@daimi.aau.dk>
        Standalone apps on Win/95/NT <tony@ugems.psu.edu>
    Re: Standalone apps on Win/95/NT dturley@pobox.com
        strange question <groans@mailexcite.com>
    Re: strange question <jdporter@min.net>
    Re: strange question <groans@mailexcite.com>
    Re: strange question <groans@mailexcite.com>
    Re: String to Ascii (Tye McQueen)
        Sturcts from C to Perl (Eric W. Bressler)
        Telecommute! jester7@mci2000.com
    Re: test <thomas@daimi.aau.dk>
        Trouble calling perl from C++ <tduffy@atl.com>
        Try to execute perl script in local <cogelog@wanadoo.fr>
    Re: Try to execute perl script in local <thomas@daimi.aau.dk>
    Re: Try to execute perl script in local <cogelog@wanadoo.fr>
    Re: Trying to lock tied ndbm file <zenin@bawdycaste.org>
        Typemaps with XS (Eric W. Bressler)
        Un peu d'aide svp <cogelog@wanadoo.fr>
    Re: Using PUSH (I.J. Garlick)
    Re: Variable length exceed? (Chris Russo)
    Re: Variable length exceed? (Ronald J Kimball)
        Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Thu, 30 Jul 1998 17:14:06 GMT
From: "Jonah Olsson" <jonah@g-s.net>
Subject: Split the command line!
Message-Id: <yR1w1.38$7E2.93482@nntpserver.swip.net>

Hi everyone!

How do I split the command line (i.e. $ENV{'QUERY_STRING'}) so I get the key
in one array and the value in another array. Both should be depending on
each other so that key 1 is connected to value 1 and so on.

The command line could look like this:

test.cgi?key1=value1&key2=value2 .........

Would be grate if someone can help me with this! Thanks!



Sincerely,

Jonah Olsson
Generation Software
http://www.g-s.net





------------------------------

Date: 31 Jul 1998 21:53:30 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Split the command line!
Message-Id: <6ptecq$fsg$1@client3.news.psi.net>

Andrew Perrin (aperrin@mcmahon.qal.berkeley.edu) wrote on MDCCXCV
September MCMXCIII in <URL: news:35C21A04.C0FD16A1@mcmahon.qal.berkeley.edu>:

[About $ENV{'QUERY_STRING'}]

++ I suspect there's a quicker way, but how about something along the lines of:


Yes. It's called 'use CGI;'



Abigail
-- 
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'


------------------------------

Date: Fri, 31 Jul 1998 12:24:52 -0700
From: Andrew Perrin <aperrin@mcmahon.qal.berkeley.edu>
To: Jonah Olsson <jonah@g-s.net>
Subject: Re: Split the command line!
Message-Id: <35C21A04.C0FD16A1@mcmahon.qal.berkeley.edu>

I suspect there's a quicker way, but how about something along the lines of:

@chunks = split(/\&|\?/,$ENV{'QUERY_STRING'}); # make an array of passed info
foreach $chunk (@chunks) {
    ($key, $value) = split(/=/,$chunk);  # split each chunk on the = sign into
key/value
    $vars{$key} = $value if $value;      # this checks to make sure it's got a
value to save
}

Then you should have an associative array, %vars, which contains your input
string, callable by key.

Cheers,
Andy Perrin

Jonah Olsson wrote:

> Hi everyone!
>
> How do I split the command line (i.e. $ENV{'QUERY_STRING'}) so I get the key
> in one array and the value in another array. Both should be depending on
> each other so that key 1 is connected to value 1 and so on.
>
> The command line could look like this:
>
> test.cgi?key1=value1&key2=value2 .........
>
> Would be grate if someone can help me with this! Thanks!
>
> Sincerely,
>
> Jonah Olsson
> Generation Software
> http://www.g-s.net



--
-------------------------------------------------------------
Andrew J. Perrin - NT/Unix/Access Consulting -  (650)938-4740
aperrin@mcmahon.qal.berkeley.edu (Remove the Junk Mail King
http://socrates.berkeley.edu/~aperrin        to e-mail me)
    e-mail wheres-andy@socrates.berkeley.edu to find me!
-------------------------------------------------------------




------------------------------

Date: Fri, 31 Jul 1998 20:40:15 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Split the command line!
Message-Id: <35C22C49.1E0F@min.net>

Jonah Olsson wrote:
> 
> Hi everyone!
> 
> How do I split the command line (i.e. $ENV{'QUERY_STRING'}) so I get the key
> in one array and the value in another array. Both should be depending on
> each other so that key 1 is connected to value 1 and so on.

	use CGI;

By the way, the value of $ENV{'QUERY_STRING'} is not the "command line",
it's the "query string".

-- 
John Porter


------------------------------

Date: Fri, 31 Jul 1998 23:28:04 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Split the command line!
Message-Id: <35C236E4.D9801DFA@daimi.aau.dk>

Jonah Olsson wrote:
> 
> Hi everyone!
> 
> How do I split the command line (i.e. $ENV{'QUERY_STRING'}) so I get the key
> in one array and the value in another array. Both should be depending on
> each other so that key 1 is connected to value 1 and so on.
> 
> The command line could look like this:
> 
> test.cgi?key1=value1&key2=value2 .........
> 
> Would be grate if someone can help me with this! Thanks!

I recommend you go to CPAN and get CGI.pm. Everything will be easier
then!

(this is also recommended in perlfaq9, which will be useful to read if
you want to do perl CGI-programming)


------------------------------

Date: Fri, 31 Jul 1998 11:39:11 -0400
From: Tony Demark <tony@ugems.psu.edu>
Subject: Standalone apps on Win/95/NT
Message-Id: <35C1E51F.179F42B0@ugems.psu.edu>

Can a script in Perl_Win32 be saved as a standalone application that can
be executed as without Perl being installed (like can be done with
MacPerl)?

I checked the Perl_Win32 FAQ and didn't see a definate answer either
way.

- Tony


------------------------------

Date: Fri, 31 Jul 1998 18:26:07 GMT
From: dturley@pobox.com
Subject: Re: Standalone apps on Win/95/NT
Message-Id: <6pt27u$4k6$1@nnrp1.dejanews.com>

In article <35C1E51F.179F42B0@ugems.psu.edu>,
  Tony Demark <tony@ugems.psu.edu> wrote:
> Can a script in Perl_Win32 be saved as a standalone application that can
> be executed as without Perl being installed (like can be done with
> MacPerl)?

http://www.demobuilder.com/perl2exe.htm

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum


------------------------------

Date: Fri, 31 Jul 1998 11:40:59 -0700
From: Ted Groans <groans@mailexcite.com>
Subject: strange question
Message-Id: <35C20FBB.D91E194D@mailexcite.com>

Hi all,
Here is a rather strange question.  I have just coded a proxy server in
Perl.  I know this is not a Perl newsgroup, but I think the question
still applies.  See, this perl script is for a proxy server.  And if you

know about proxy servers, you know that they will fetch a page for your
browser, then return the result of the fetch to your browser.  Here is
the thing.  Most javascript that occurs on a page, seems to be within
the <html></html> tags.  But every once in a while, you find situations
where the javascript is added after the </html>  I want my proxy server
to tack on a javascript trailor (if you will) that will display an alert

message.  I will not include the whole code because of bandwidth
considerations, but below is a SHORT excerpt of a failed attempt.  Any
help would be greatly appreciated, and thanx in advance!
~Prime

print CHILD <<END_of_Multiline_Text;    # This tells the proxy to print
all of
                                                                     #
the following to the browser.
</noscript>
<!-- -->
</noscript>
<SCRIPT LANGUGE="JavaScript" onLoad="hello()">

<!--
function hello(){
          alert("@mylist");
}
//-->


</SCRIPT>
END_of_Multiline_Text








------------------------------

Date: Fri, 31 Jul 1998 19:20:21 GMT
From: John Porter <jdporter@min.net>
Subject: Re: strange question
Message-Id: <35C2198E.324B@min.net>

Ted Groans wrote:
> 
> I have just coded a proxy server in Perl.
> I know this is not a Perl newsgroup, but I think the question
> still applies.  See, this perl script is for a proxy server.  And if you
> know about proxy servers, you know that they will fetch a page for your
> browser, then return the result of the fetch to your browser.  

Makes one wonder if Ted realizes what newsgroup he's posting to.
And if he knows about Randal Schwartz's tried-and-true
proxy server, visible at
    http://www.stonehenge.com/merlyn/WebTechniques/col11.html

-- 
John Porter


------------------------------

Date: Fri, 31 Jul 1998 12:34:07 -0700
From: Ted Groans <groans@mailexcite.com>
Subject: Re: strange question
Message-Id: <35C21C2F.F9ACD4E9@mailexcite.com>

I just solved my own problem.  Here is how it is done:

print CHILD <<END_of_Multiline_Text;    # This tells the proxy to printall
of
                                                                     # the
following to the browser.
<SCRIPT LANGUAGE="JavaScript">Host = "<-@mylist->";
window.alert("Filtered code: " + Host);
</SCRIPT>

END_of_Multiline_Text

VIOLA!!!
~Prime

Ted Groans wrote:


> Hi all,
> Here is a rather strange question.  I have just coded a proxy server in
> Perl.  I know this is not a Perl newsgroup, but I think the question
> still applies.  See, this perl script is for a proxy server.  And if you
>
> know about proxy servers, you know that they will fetch a page for your
> browser, then return the result of the fetch to your browser.  Here is
> the thing.  Most javascript that occurs on a page, seems to be within
> the <html></html> tags.  But every once in a while, you find situations
> where the javascript is added after the </html>  I want my proxy server
> to tack on a javascript trailor (if you will) that will display an alert
>
> message.  I will not include the whole code because of bandwidth
> considerations, but below is a SHORT excerpt of a failed attempt.  Any
> help would be greatly appreciated, and thanx in advance!
> ~Prime
>
> print CHILD <<END_of_Multiline_Text;    # This tells the proxy to print
> all of
>                                                                      #
> the following to the browser.
> </noscript>
> <!-- -->
> </noscript>
> <SCRIPT LANGUGE="JavaScript" onLoad="hello()">
>
> <!--
> function hello(){
>           alert("@mylist");
> }
> //-->
>
> </SCRIPT>
> END_of_Multiline_Text
>
>



------------------------------

Date: Fri, 31 Jul 1998 23:57:28 -0700
From: Ted Groans <groans@mailexcite.com>
Subject: Re: strange question
Message-Id: <35C2BC58.A637DC98@mailexcite.com>

Yeah, in fact Mr. Schwartz's proxy code is much more functional, but for some
reason that I could never figure out, it just would not work for me.  I could
never get it up and running.  If I had, I would have used it a long time ago.
But for now, I just decided to code one from scratch.

John Porter wrote:

> Ted Groans wrote:
> >
> > I have just coded a proxy server in Perl.
> > I know this is not a Perl newsgroup, but I think the question
> > still applies.  See, this perl script is for a proxy server.  And if you
> > know about proxy servers, you know that they will fetch a page for your
> > browser, then return the result of the fetch to your browser.
>
> Makes one wonder if Ted realizes what newsgroup he's posting to.
> And if he knows about Randal Schwartz's tried-and-true
> proxy server, visible at
>     http://www.stonehenge.com/merlyn/WebTechniques/col11.html
>
> --
> John Porter
>



------------------------------

Date: 29 Jul 1998 02:17:39 -0500
From: tye@fumnix.metronet.com (Tye McQueen)
Subject: Re: String to Ascii
Message-Id: <6pmiaj$767@fumnix.metronet.com>

Dave Stephens <stepherd@gusun.georgetown.edu> writes:
) Here you go:
) 
) $string = "A string to be converted into ascii";
) 
) @letters = split (//, $string);
) 
) while (@letters[$count] ne "")
) {
)  @ascii[$count] = ord("@letters[$count]");
)  $count++;
) }
) $count = 0;
) foreach $letter (@ascii)
) {
)  $count++;
)  print "Letter $count = $letter\n\n";
) }

Please take this as constructive criticism.  I don't really see
anything wrong with what you wrote [except for item (3) below],
just some alternatives that may have some advantages in some cases.

1)  Much shorter:

    $string= "A string to be converted";
    @ascii= unpack("C*",$string);

2) 
) while (@letters[$count] ne "")
) {
)  @ascii[$count] = ord("@letters[$count]");
)  $count++;
) }

    foreach $let (@letters) {
	push( @ascii, ord($let) );
    }

3)
)  @ascii[$count] = ord("@letters[$count]");

    "@letters[$count]"

should be written as:

    $letters[$count]

I say this one is a problem because writting C<@array[$index]>
when you mean C<$array[$index]> can lead to serious surprises
in certain situations.  For example:

    @lines[$count]= <STDIN>;

would read all lines from STDIN and throw away all but the first
one because C<@lines[$count]> is a _list_ that happens to have
just one item in it.

Adding quotes where you don't need them can also lead to problems
because it forces a variable to be interpretted as a string when
it might not hold a string value.  But good examples of this
causing a problem are rather advanced.

Thanks for the posting.
-- 
Tye McQueen    Nothing is obvious unless you are overlooking something
         http://www.metronet.com/~tye/ (scripts, links, nothing fancy)


------------------------------

Date: Fri, 31 Jul 1998 16:36:08 GMT
From: ebressler@netegrity.com (Eric W. Bressler)
Subject: Sturcts from C to Perl
Message-Id: <35c1f239.9726500@argand.security.com>

	I am on win32s and I want to use a C struct in PERL from a
module I am wrriting.  How would I go about doing this?  I am trying
to use XS with no success.
			----Eric W. Bressler


------------------------------

Date: Sat, 01 Aug 1998 16:57:31 GMT
From: jester7@mci2000.com
Subject: Telecommute!
Message-Id: <35C34857.9462295B@mci2000.com>

If you have marketable skills in html, programming, desktop publishing,
writing, consulting; consider becoming a Telecommuter from your home.

At -Will work 4 Food-
http://www.2020tech.com/ww4f
You can add a 100 word post describing your skills under a particular
category. Employers of telecommuters can then view these listings and
pick out the people they desire. There is also a place to view current
jobs offered at:
http://www.2020tech.com/ww4f/helpwanted2.html

While you are at the site, check out the bookstore for excellent
references on telecommuting.

Best Regards,
Richard W. Cummings
Will Work 4 Food


------------------------------

Date: Thu, 30 Jul 1998 15:51:31 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: test
Message-Id: <35C07A63.739CD16B@daimi.aau.dk>

Philip Kulp wrote:
> 
> test

http://www.geocities.com/ResearchTriangle/8211/virgins.html


------------------------------

Date: Fri, 31 Jul 1998 15:58:34 -0700
From: "Tom Duffy" <tduffy@atl.com>
Subject: Trouble calling perl from C++
Message-Id: <6pthtn$kuj1@sunshine.atl.com>

Can somebody what compile and link options I should be using on Visual C++
when I'm compiling C++ code that embeds perl?

I'm trying to compile the example in perlembed section of the perl docs and
I'm getting the following error message from Visual C++:

perlCRT.lib(crtexew.obj) : error LNK2001: unresolved external symbol
_WinMain@16

I've added perlcore.lib, perlCAPI.lib, perlCRT.lib to the list of libraries
to link.

Thanks for any help,
Tom




------------------------------

Date: Thu, 30 Jul 1998 16:22:46 +0200
From: Ferdi <cogelog@wanadoo.fr>
Subject: Try to execute perl script in local
Message-Id: <35C081B6.49149113@wanadoo.fr>

I have learned perl for a few days now. I have installed Perl (last
version) and a 
local server (omnihttpd 1.01) to test my scripts. In the dos windows, I
can see the script results.
But in my browser, I have always ( and it not depends on the perl file,
I try several files)
the same error message in a dialog box : "Document contains no data".
Can you help me!
Thanks in advance.
Ferdi


------------------------------

Date: Thu, 30 Jul 1998 16:33:15 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Try to execute perl script in local
Message-Id: <35C0842B.6B4074F1@daimi.aau.dk>

Ferdi wrote:
> 
> I have learned perl for a few days now. I have installed Perl (last
> version) and a

last version? I hope not ;)

> local server (omnihttpd 1.01) to test my scripts. In the dos windows, I
> can see the script results.
> But in my browser, I have always ( and it not depends on the perl file,
> I try several files)
> the same error message in a dialog box : "Document contains no data".
> Can you help me!
> Thanks in advance.
> Ferdi

did you remember \n\n after the content-type line?


------------------------------

Date: Thu, 30 Jul 1998 17:42:09 +0200
From: Ferdi <cogelog@wanadoo.fr>
To: thomas@daimi.aau.dk
Subject: Re: Try to execute perl script in local
Message-Id: <35C09451.CB978F3B@wanadoo.fr>

> did you remember \n\n after the content-type line?
Yes... there're present


------------------------------

Date: 30 Jul 1998 14:33:17 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Trying to lock tied ndbm file
Message-Id: <901809800.521936@thrush.omix.com>

F.Quednau <quednauf@nortel.co.uk> wrote:
	>snip<
: tie (%VOTE, 'NDBM_File', '/u/quednauf/temp/testdbm',
: O_RDWR|O_CREAT|LOCK_EX, 0644) or die "hmm $!";

	This won't work.  LOCK_EX is a constant that likely evaluates to
	one of the O_* constant values, which is why it doesn't complain.

	You *can* do this in this way, but you need support for an open(2)
	flag such as O_EXLOCK.  Note that this is not portable at all. -Most
	SysV systems don't have this flag for instance.  If you're on
	a system like FreeBSD and not planing on putting it anywere else
	however, this is a very handy shortcut.

: Is it because it is in fact in one script?

	Yes.

: reading the manpage on fcntl didn't help me too much. So my questions
: are: What means the bad file number business? (I tried to find something
: on UNIX error messages on the system but failed)

	man 2 errno

: How do I do a lock on a tied NDBM file ?

	Check out the DB_File man page.  It has locking examples for
	DBM files.  At least, Berkeley DB files, but you might be
	able to use similar ideas for NDBM.
-- 
-Zenin (zenin@archive.rhps.org)           From The Blue Camel we learn:
BSD:  A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts.  Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.)  The full chemical name is "Berkeley Standard Distribution".


------------------------------

Date: Fri, 31 Jul 1998 13:22:47 GMT
From: ebressler@netegrity.com (Eric W. Bressler)
Subject: Typemaps with XS
Message-Id: <35c1c48f.229307906@argand.security.com>

I am trying to convert a C/C++ struct to a perl equivalent for use in
a module.  How would I make the eqivalence in somthing like this for
the typemap file

typedef struct My_Struct_s
{
	char					lpszIpAddr[128];

	int					nConnMin;		
	int					nConnMax;		
	int					nConnStep;		
	int					nTimeout;	
	int					nPort[3];	
	void*					pHandle[3];		
}My_Struct_t;

Any help is great

		---Eric W. Bressler




------------------------------

Date: Thu, 30 Jul 1998 16:05:13 +0200
From: Ferdi <cogelog@wanadoo.fr>
Subject: Un peu d'aide svp
Message-Id: <35C07D99.408D99A4@wanadoo.fr>

Salut, 

 Cela fait quelques jours maintenant que j'essaie d'apprendre le langage
Perl. Un internaute m'a
fourni l'adresse d'un site contenant des explications d'installation
pour tester des scripts perl
 http//:www.perso.hol.fr/~logonna/perl/perl.htm. J'y ai suivi toutes les
instructions 
mais une erreur persiste. Lorsque j'execute un script perl en double
cliquant dessus 
(execution dans la fenetre dos) pas de pb. Mais lorsque je tente
d'executer un script 
(n'importe lequel) perl ` partir d'une page html j'ai toujours le meme
message dans une boite 
de dialogue "Document contains no data". As-tu une idee d'ou cela
pourrais venir?
Merci
Ferdi


------------------------------

Date: Thu, 30 Jul 1998 17:18:16 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
To: Mark Simonetti <se96ms@english.iielr.dmu.ac.uk>
Subject: Re: Using PUSH
Message-Id: <Ewx42H.G8p@csc.liv.ac.uk>

[Posted and mailed]

In article <Pine.OSF.3.96.980730111449.32421E-100000@english.iielr.dmu.ac.uk>,
Mark Simonetti <se96ms@english.iielr.dmu.ac.uk> writes:
>
> $$hash{'thingy'} = [];
> push($$hash{'thingy'}, 'hmm');
> 

Not sure about this but I think I have used something like this in the
past:

	 my @thingy_array = @{$hash{'thingy'}};

for assigning arrays in hashes to arrays.

So will this:

	push @{$$$hash{'thingy'}}, 'hmm';

work? I don't know but it may be worth trying.

-- 
--
Ian J. Garlick
ijg@csc.liv.ac.uk

Executive ability is deciding quickly and getting somebody else to do
the work.
                -- John G. Pollard


------------------------------

Date: Fri, 31 Jul 1998 08:21:39 -0700
From: news@russo.org (Chris Russo)
Subject: Re: Variable length exceed?
Message-Id: <news-3107980821390001@buzz.hq.alink.net>


><IF>;
>chomp;

This was a mistake I made when first learning perl.  I assumed (as you
apparently did too) that reading a line of a file "<FILE>" without any
assignment just placed the line in $_.  I gained this impression from
"while(<FILE>){}".  Sadly, that assumption is incorrect.  Explicitly
assign the line to a variable.

Regards,

Chris Russo

-- 
Chris Russo
news@russo.org
http://www.russo.org


------------------------------

Date: Thu, 30 Jul 1998 23:55:19 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Variable length exceed?
Message-Id: <1dd07i7.1akwwph1h847duN@bay2-38.quincy.ziplink.net>

gregory j pryzby <pryzby@tux.org> wrote:

> Here is sample code:
> 
> <IF>;
> chomp;
> $line = $_;
> <IF>

missing semicolon

> chomp;
> $line .= $_;
> 
> The file being read:
> <meta XXXXX
> xxx="ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
> dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
> dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
> dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
> ddddddddddddddddddddddddddddddddd">
> 
> The second line is 447 characters long.
> 
> If I place the data file with:
> <one
> two or more>
> 
> it works fine...

It won't work in either case, as the code you posted contains a syntax
error.  Next time post your real code.

Even without the syntax error, it still won't work in either case.   The
<> operator only assigns to $_ when it is alone in the conditional of a
while loop.  In void context, the line read is discarded.

-- 
 _ / '  _      /         - aka -         rjk@coos.dartmouth.edu
( /)//)//)(//)/(     Ronald J Kimball      chipmunk@m-net.arbornet.org
    /                                  http://www.ziplink.net/~rjk/
        "It's funny 'cause it's true ... and vice versa."


------------------------------

Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>


Administrivia:

Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.

If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu. 


The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.

The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V8 Issue 3305
**************************************

home help back first fref pref prev next nref lref last post