[16008] in Perl-Users-Digest
Perl-Users Digest, Issue: 3420 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 19 11:11:42 2000
Date: Mon, 19 Jun 2000 08:10:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <961427416-v9-i3420@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 19 Jun 2000 Volume: 9 Number: 3420
Today's topics:
Returning a hash from XS <cching@mqsoftware.com>
Re: simple array question (jason)
SSL session variable robb4444@my-deja.com
Re: SSL session variable <tony_curtis32@yahoo.com>
starting default cgi file on server <danielxx@bart.nl>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Use of split and join with special character <pagirre@ada.ucin.com>
Re: Use of split and join with special character (Rafael Garcia-Suarez)
RE: Use of split and join with special character <pagirre@ada.ucin.com>
Re: Use of split and join with special character (Abigail)
Re: Use of split and join with special character (Tad McClellan)
Re: What's the difference between a hash and an array? <care227@attglobal.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Jun 2000 09:50:51 -0500
From: "Craig L. Ching" <cching@mqsoftware.com>
Subject: Returning a hash from XS
Message-Id: <8ilc9c$71f$1@paxfeed.eni.net>
Hi,
I found the following XS code on the archives for this newsgroup:
SV *
test_hash()
CODE:
HV *msg_hash;
msg_hash = newHV();
hv_store(msg_hash, "code", 4, newSViv(42), 0);
RETVAL = sv_2mortal(newRV_noinc((SV *)msg_hash));
OUTPUT:
RETVAL
My question is, what does the Perl code that uses this look like? The
return is a reference, but I can't seem to make this work. Is there a
better way to return a hash? Thanks in
advance!
Craig
------------------------------
Date: Mon, 19 Jun 2000 13:44:40 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: simple array question
Message-Id: <MPG.13b8c102eea31a9e989748@news>
Tad McClellan writes ..
>[ snip 80 lines of Jeopardy quoted text about "wanting" to
> use symbolic references.
>]
it was stealth emailed too *8^(
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Mon, 19 Jun 2000 14:16:30 GMT
From: robb4444@my-deja.com
Subject: SSL session variable
Message-Id: <8il9vj$iuo$1@nnrp1.deja.com>
Is there a session variable that you need to 'reset' after logging out
of a ssl/https website?
Thanks,
Robb Samuell
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Jun 2000 09:31:50 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: SSL session variable
Message-Id: <87hfapu4h5.fsf@limey.hpcc.uh.edu>
>> On Mon, 19 Jun 2000 14:16:30 GMT,
>> robb4444@my-deja.com said:
> Is there a session variable that you need to 'reset'
> after logging out of a ssl/https website?
What on earth does this have to do with perl?
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Mon, 19 Jun 2000 10:17:29 GMT
From: "Daniel van den Oord" <danielxx@bart.nl>
Subject: starting default cgi file on server
Message-Id: <Zqm35.2244$%h3.38434@Typhoon.bART.nl>
I've seen a code like this work somewhere
http://<name_server>/cgi-bin/server/?command=string&whatever=more
I've got IIS4 with a directorie with standard opening file being server.cgi
meaning I don't have to put that name in the bar what happens is that it
does start
the file but doesn't read the ?...... string anybody knows how to resolve
this thing ???
Daniel van den Oord ( Daniel304 RTCL )
It's nice to be important, but it's more important to be nice
See there be good bye bye
Daniel304rt ResearchTriangle Community Leader
http://www.geocities.com/ResearchTriangle/Forum/5577
------------------------------
Date: Mon, 19 Jun 2000 13:36:39 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <sks8f7pve7f165@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 12 Jun 2000 14:34:21 GMT and ending at
19 Jun 2000 14:06:03 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 540
Articles: 2130 (877 with cutlined signatures)
Threads: 460
Volume generated: 3755.2 kb
- headers: 1763.5 kb (34,399 lines)
- bodies: 1871.4 kb (60,896 lines)
- original: 1163.0 kb (41,620 lines)
- signatures: 118.3 kb (2,755 lines)
Original Content Rating: 0.621
Averages
========
Posts per poster: 3.9
median: 1.0 post
mode: 1 post - 293 posters
s: 10.2 posts
Posts per thread: 4.6
median: 3.0 posts
mode: 2 posts - 101 threads
s: 7.5 posts
Message size: 1805.3 bytes
- header: 847.8 bytes (16.1 lines)
- body: 899.7 bytes (28.6 lines)
- original: 559.1 bytes (19.5 lines)
- signature: 56.9 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
134 228.3 (129.0/ 83.4/ 53.3) Tom Phoenix <rootbeer@redcat.com>
86 124.6 ( 75.9/ 48.6/ 26.6) Drew Simonis <care227@attglobal.net>
70 133.1 ( 55.8/ 67.6/ 39.9) Tad McClellan <tadmc@metronet.com>
65 91.2 ( 57.2/ 33.5/ 20.4) Bart Lateur <bart.lateur@skynet.be>
58 101.1 ( 40.8/ 53.7/ 28.7) Larry Rosler <lr@hpl.hp.com>
48 97.7 ( 40.8/ 48.5/ 46.4) abigail@delanet.com
44 137.6 ( 47.2/ 90.4/ 61.6) Henry <henry@penninkilampi.net>
39 78.3 ( 42.4/ 35.4/ 25.7) "Alan J. Flavell" <flavell@mail.cern.ch>
38 76.0 ( 32.2/ 43.8/ 17.6) Dan Sugalski <dan@tuatha.sidhe.org>
38 60.7 ( 35.2/ 22.1/ 8.9) Jonathan Stowe <gellyfish@gellyfish.com>
These posters accounted for 29.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
228.3 (129.0/ 83.4/ 53.3) 134 Tom Phoenix <rootbeer@redcat.com>
137.6 ( 47.2/ 90.4/ 61.6) 44 Henry <henry@penninkilampi.net>
133.1 ( 55.8/ 67.6/ 39.9) 70 Tad McClellan <tadmc@metronet.com>
124.6 ( 75.9/ 48.6/ 26.6) 86 Drew Simonis <care227@attglobal.net>
101.1 ( 40.8/ 53.7/ 28.7) 58 Larry Rosler <lr@hpl.hp.com>
97.7 ( 40.8/ 48.5/ 46.4) 48 abigail@delanet.com
91.2 ( 57.2/ 33.5/ 20.4) 65 Bart Lateur <bart.lateur@skynet.be>
80.1 ( 30.8/ 49.3/ 36.3) 34 "Godzilla!" <godzilla@stomp.stomp.tokyo>
78.3 ( 42.4/ 35.4/ 25.7) 39 "Alan J. Flavell" <flavell@mail.cern.ch>
76.0 ( 32.2/ 43.8/ 17.6) 38 Dan Sugalski <dan@tuatha.sidhe.org>
These posters accounted for 30.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.5 / 1.5) 6 Samay <samay1NOsaSPAM@hotmail.com.invalid>
1.000 ( 2.0 / 2.0) 5 damonr <damonNOdaSPAM@unispace.com.invalid>
0.997 ( 3.6 / 3.6) 6 "scott thomason" <scott@industrial-linux.org>
0.976 ( 2.6 / 2.7) 7 "Daniel van den Oord" <danielxx@bart.nl>
0.957 ( 46.4 / 48.5) 48 abigail@delanet.com
0.870 ( 10.3 / 11.8) 5 "Godzilla!" <callgirl@la.znet.com>
0.831 ( 3.2 / 3.9) 7 "Robert Chalmers" <robert@chalmers.com.au>
0.815 ( 1.1 / 1.4) 7 "A Pietro" <apietro@my-deja.com>
0.814 ( 15.4 / 18.9) 16 David Bell <db7654321@aol.comspamsux>
0.791 ( 3.6 / 4.6) 6 Mark-Jason Dominus <mjd@plover.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.403 ( 8.9 / 22.1) 38 Jonathan Stowe <gellyfish@gellyfish.com>
0.402 ( 17.6 / 43.8) 38 Dan Sugalski <dan@tuatha.sidhe.org>
0.397 ( 1.2 / 3.1) 8 bmetcalf@baynetworks.com
0.396 ( 5.5 / 13.9) 13 "Trevor Sky Garside" <trevor@trevorsky.com>
0.393 ( 6.7 / 17.2) 15 "Raphael Pirker" <raphaelp@nr1webresource.com>
0.386 ( 4.3 / 11.2) 10 Dave Cross <dave@dave.org.uk>
0.364 ( 3.2 / 8.7) 12 Rafael Garcia-Suarez <garcia_suarez@hotmail.com>
0.299 ( 1.7 / 5.8) 6 "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
0.295 ( 2.9 / 9.8) 13 Tom Briles <sariq@texas.net>
0.233 ( 5.4 / 23.0) 9 "Timothy H. Schilbach" <tschilbach@aodinc.com>
82 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
75 Crazy enough that it might just work...
63 Larry Rosler interview on perl.com!
46 Bot for this group to auto-answer queries?
40 ANSI Perl: No Way !!!
39 I can't figure this one out... (Newbie question)
31 A Computer Programmers Profile
28 Easy CGI question
25 sorting an array
23 Name/Value pair for a hyperlink?
22 bug with arrays?
These threads accounted for 18.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
209.2 ( 76.6/128.1/ 86.5) 75 Crazy enough that it might just work...
136.7 ( 67.8/ 65.8/ 35.5) 63 Larry Rosler interview on perl.com!
100.3 ( 43.9/ 54.3/ 32.0) 46 Bot for this group to auto-answer queries?
99.1 ( 40.8/ 57.0/ 35.3) 40 ANSI Perl: No Way !!!
72.7 ( 29.4/ 39.5/ 26.7) 39 I can't figure this one out... (Newbie question)
53.1 ( 27.4/ 25.2/ 13.9) 28 Easy CGI question
50.0 ( 22.0/ 25.7/ 15.4) 25 sorting an array
45.5 ( 26.5/ 17.1/ 10.6) 31 A Computer Programmers Profile
43.2 ( 14.5/ 28.4/ 7.0) 18 NET::SMTP
37.8 ( 14.2/ 20.6/ 12.1) 17 Mystery Regex
These threads accounted for 22.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.900 ( 3.0/ 3.3) 5 Content type !!
0.883 ( 1.0/ 1.1) 5 GIMP on G4 Mac
0.869 ( 3.5/ 4.0) 5 Random string required
0.867 ( 7.0/ 8.1) 6 help - redefined subroutine warning
0.861 ( 6.0/ 7.0) 5 Multi language messages
0.828 ( 1.2/ 1.4) 5 Non echo password
0.815 ( 6.8/ 8.4) 6 Very strange DBI:mysql-problem!
0.793 ( 7.1/ 9.0) 9 Yet Another Abigail Admirer (WAS Re: Crazy enough that it might just work...) :)
0.768 ( 4.0/ 5.2) 5 Quick Network Ping : Can't make Net::Ping work?
0.766 ( 2.6/ 3.4) 7 my vs. our
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.437 ( 2.0 / 4.5) 8 Creating a new folder and file.
0.429 ( 4.3 / 10.1) 20 Text substitution problem
0.417 ( 4.1 / 9.8) 8 OLE and CGI ?? Not working !
0.415 ( 3.0 / 7.3) 14 Beginner's mySQL Tutorial?
0.412 ( 4.3 / 10.5) 22 Taryag Perl
0.407 ( 1.4 / 3.5) 7 Extract filename from path?
0.398 ( 6.3 / 15.9) 10 Attempting to parse malformed XML
0.381 ( 1.7 / 4.5) 8 default shell for 'backtick' commands
0.364 ( 1.8 / 5.1) 7 Variable variable names, was Re: now this is strange...
0.247 ( 7.0 / 28.4) 18 NET::SMTP
133 threads (28%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
35 comp.lang.perl.modules
26 soc.culture.jewish
21 alt.perl
21 comp.lang.perl
9 comp.lang.perl.moderated
7 comp.software.config-mgmt
7 microsoft.public.visual.sourcesafe
3 de.comp.lang.perl.cgi
2 news.admin.censorship
2 comp.answers
Top 10 Crossposters
===================
Articles Address
-------- -------
7 Drew Simonis <care227@attglobal.net>
7 Tom Phoenix <rootbeer@redcat.com>
6 brian d foy <brian@smithrenaud.com>
6 guy@crossflight.co.uk
6 "Peter T. Breuer" <ptb@oboe.it.uc3m.es>
5 Fabio Niski <fabion@sti.com.br>
4 Micha Berger <micha@aishdas.org>
4 DoverWare@CompuServe.Com
3 "Mike Rizzo" <mrizzo@ismd.ups.com>
3 Pieter de Rijk <derijk@linuxfan.com>
------------------------------
Date: Mon, 19 Jun 2000 13:21:22 +0200
From: "Pablo Agirre" <pagirre@ada.ucin.com>
Subject: Use of split and join with special character
Message-Id: <8il06q$ccq$1@reader1.fr.uu.net>
How could I use an special character in a split call ?
I don't want to use "\\ |", because I need to use it also in a join
expression.
my $delim = '|';
split (/$delim/, $line);
...
join ($delim, ...)
------------------------------
Date: Mon, 19 Jun 2000 11:33:52 GMT
From: garcia_suarez@hotmail.com (Rafael Garcia-Suarez)
Subject: Re: Use of split and join with special character
Message-Id: <slrn8ks1gh.vad.garcia_suarez@rafael.kazibao.net>
Pablo Agirre wrote in comp.lang.perl.misc:
> How could I use an special character in a split call ?
>
> I don't want to use "\\ |", because I need to use it also in a join
>expression.
>
> my $delim = '|';
> split (/$delim/, $line);
Replace this by
my $quoted_delim = quotemeta('|');
split (/$quoted_delim/, $line);
which quotes all metacharacters with a backslash.
See also perldoc -f quotemeta.
>...
>
> join ($delim, ...)
No quoting here, because join does not interpret $delim as a regular
expression.
--
Rafael Garcia-Suarez
------------------------------
Date: Mon, 19 Jun 2000 14:30:43 +0200
From: "Pablo Agirre" <pagirre@ada.ucin.com>
Subject: RE: Use of split and join with special character
Message-Id: <8il48q$ei9$1@reader1.fr.uu.net>
The $delim variable is user-defined, so the split and join functions
must work with '|' and any other character teh user chooses. (':' or ',' or
...)
"Rafael Garcia-Suarez" <garcia_suarez@hotmail.com> escribió en el mensaje
news:slrn8ks1gh.vad.garcia_suarez@rafael.kazibao.net...
> Pablo Agirre wrote in comp.lang.perl.misc:
> > How could I use an special character in a split call ?
> >
> > I don't want to use "\\ |", because I need to use it also in a join
> >expression.
> >
> > my $delim = '|';
> > split (/$delim/, $line);
>
> Replace this by
> my $quoted_delim = quotemeta('|');
> split (/$quoted_delim/, $line);
> which quotes all metacharacters with a backslash.
> See also perldoc -f quotemeta.
>
> >...
> >
> > join ($delim, ...)
>
> No quoting here, because join does not interpret $delim as a regular
> expression.
>
> --
> Rafael Garcia-Suarez
------------------------------
Date: 19 Jun 2000 10:02:43 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Use of split and join with special character
Message-Id: <slrn8ksb29.3a7.abigail@alexandra.delanet.com>
Pablo Agirre (pagirre@ada.ucin.com) wrote on MMCDLXXXIV September
MCMXCIII in <URL:news:8il06q$ccq$1@reader1.fr.uu.net>:
%% How could I use an special character in a split call ?
\Q
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Mon, 19 Jun 2000 08:43:04 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Use of split and join with special character
Message-Id: <slrn8ks5ao.df5.tadmc@magna.metronet.com>
On Mon, 19 Jun 2000 13:21:22 +0200, Pablo Agirre <pagirre@ada.ucin.com> wrote:
> How could I use an special character in a split call ?
>
> I don't want to use "\\ |", because I need to use it also in a join
>expression.
>
> my $delim = '|';
>
> split (/$delim/, $line);
split (/\Q$delim/, $line); # \Q same as quotemeta()
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 19 Jun 2000 10:04:11 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: What's the difference between a hash and an array?
Message-Id: <394E285B.77B8F1ED@attglobal.net>
Abigail wrote:
> --
> perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
Thats a nice one. Kinda nifty.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3420
**************************************
