[17960] in Perl-Users-Digest
Perl-Users Digest, Issue: 120 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 22 14:15:41 2001
Date: Mon, 22 Jan 2001 11:15:20 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <980190920-v10-i120@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 22 Jan 2001 Volume: 10 Number: 120
Today's topics:
Re: Posting Guidelines (was Re: Perl - Bytecode, Compil jdf@pobox.com
Q: socket communication between perl and java <bh213@damtp.cam.ac.uk>
Re: Q: socket communication between perl and java <jdf@pobox.com>
Slightly Off Topic question, CG forms and hidden query (Stan Brown)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Still Can't Get MIME Lite To Send Attachment... (Rand Simberg)
Re: warning! moronzilla is back <callgirl@la.znet.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jan 2001 12:15:13 -0500
From: jdf@pobox.com
Subject: Re: Posting Guidelines (was Re: Perl - Bytecode, Compile to C, Perl2EXE)
Message-Id: <4ryr33vi.fsf@pobox.com>
"Jeffrey Grace" <gracenews@optusnet.com.au> writes:
> Wasn't actually complaining, and wasn't talking about myself either. Though
> some people seem to assume that you've read the entire FAQ, when you might
> have missed something through searches
All anybody ever wants to see here is "I searched perlfaq4 for the
keywords 'frob' and 'quux', but didn't find anything that made sense
to me. I did read perlfunc about the floogle() function, but I didn't
understand the example code it gave..." In other words, if it looks
like you've tried, then even the touchiest people here are happy to
guide you. I'm using the word "you" here in the sense of "one", not
YOU, JEFFREY GRACE! :)
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 22 Jan 2001 16:43:05 +0000
From: Bjorn Hassler <bh213@damtp.cam.ac.uk>
Subject: Q: socket communication between perl and java
Message-Id: <3A6C6319.B1209A80@damtp.cam.ac.uk>
Hello all!
I was wondering whether somebody has experimented with `sticking a bit
of perl'
between two java apps (on linux btw.), e.g.
JAVA Simple Perl Java
APPLET---->socket1<--------Server---------------->socket2<--------Server
where the perl server simply relays all that comes in from the applet to
the
Java server, and vice versa. THe reason why I want to do this is long,
complicated
and horrible, so let's just treat it as an exercise :-)
I've got all the bits of code, and the various servers and applet all
recognise
eachother connecting and disconnecting, but I cannot get them to pass
any data.
Perl details: I am using IO::Socket, tcp connection, and recv/send
methods
Java details: java.net.* (serverSocket), e.g. stream.writeUTF (uses tcp
too(?))
Both the perl methods and the java methods use tcp - so what else could
there
be going wrong? (Could of course be very elementary - I am really no
network
guru!)
Just in case anybody has ever played with this kinda thing - I'd be
grateful for a posting!
Bjoern
------------------------------
Date: 22 Jan 2001 12:47:01 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Q: socket communication between perl and java
Message-Id: <ofwzjx7u.fsf@pobox.com>
Bjorn Hassler <bh213@damtp.cam.ac.uk> writes:
> Both the perl methods and the java methods use tcp - so what else
> could there be going wrong? (Could of course be very elementary - I
> am really no network guru!)
Are you certain that your writers are flushing? Are you certain that
the various components are speaking and listening in the right order?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 22 Jan 2001 13:35:39 -0500
From: stanb@panix.com (Stan Brown)
Subject: Slightly Off Topic question, CG forms and hidden query data fileds?
Message-Id: <94huhr$deh$1@panix2.panix.com>
I am writing a perl CGI script. This script leads teh suer through a
serries of choices, each set of choices is based upon the prvious ones.
I have this working using hidden data forms fileds, and it works well.
Now after all teh choices have been made, I intend to split the browser
window inot 2 frames, using ione to display the results of all teh input
fileds, and the other to display the resultant data retrieved from a DB.
My problem is that the forms callbacks to my script don't seem to be able
to see the hidden data fields. I am puting them in the message to the
server that draws the framest.
Is this wrong?
Can this be made to work?
I'm using CGI.pm, if it matters.
------------------------------
Date: Mon, 22 Jan 2001 16:38:29 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <t6oog5sr33lk6f@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 15 Jan 2001 16:24:09 GMT and ending at
22 Jan 2001 14:42:26 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) 2001 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: 410
Articles: 1239 (465 with cutlined signatures)
Threads: 354
Volume generated: 2409.2 kb
- headers: 994.9 kb (19,582 lines)
- bodies: 1357.4 kb (44,833 lines)
- original: 903.3 kb (31,905 lines)
- signatures: 55.7 kb (1,352 lines)
Original Content Rating: 0.665
Averages
========
Posts per poster: 3.0
median: 1.0 post
mode: 1 post - 222 posters
s: 5.8 posts
Posts per thread: 3.5
median: 2.0 posts
mode: 1 post - 106 threads
s: 4.2 posts
Message size: 1991.1 bytes
- header: 822.3 bytes (15.8 lines)
- body: 1121.8 bytes (36.2 lines)
- original: 746.5 bytes (25.8 lines)
- signature: 46.0 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
66 143.2 ( 65.2/ 68.8/ 43.0) tadmc@augustmail.com
37 63.2 ( 26.6/ 36.0/ 17.3) Garry Williams <garry@zvolve.com>
36 80.5 ( 34.8/ 39.7/ 34.6) abigail@foad.org
28 105.4 ( 21.3/ 83.0/ 83.0) PerlFAQ Server <faq@denver.pm.org>
28 38.8 ( 20.3/ 16.4/ 9.6) nobull@mail.com
25 74.7 ( 20.9/ 49.0/ 34.5) mgjv@tradingpost.com.au
22 34.1 ( 16.6/ 17.5/ 7.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
21 34.5 ( 18.6/ 15.9/ 7.9) bernard.el-hagin@lido-tech.net
21 37.8 ( 16.3/ 21.5/ 14.3) Damian James <damian@puma.qimr.edu.au>
20 33.7 ( 17.9/ 15.2/ 9.6) Ren Maddox <ren.maddox@tivoli.com>
These posters accounted for 24.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
143.2 ( 65.2/ 68.8/ 43.0) 66 tadmc@augustmail.com
105.4 ( 21.3/ 83.0/ 83.0) 28 PerlFAQ Server <faq@denver.pm.org>
80.5 ( 34.8/ 39.7/ 34.6) 36 abigail@foad.org
74.7 ( 20.9/ 49.0/ 34.5) 25 mgjv@tradingpost.com.au
63.2 ( 26.6/ 36.0/ 17.3) 37 Garry Williams <garry@zvolve.com>
51.6 ( 9.8/ 39.8/ 29.1) 17 Chris Stith <mischief@velma.motion.net>
38.8 ( 20.3/ 16.4/ 9.6) 28 nobull@mail.com
37.8 ( 16.3/ 21.5/ 14.3) 21 Damian James <damian@puma.qimr.edu.au>
37.1 ( 15.2/ 21.9/ 12.0) 16 "Jeffrey Grace" <gracenews@optusnet.com.au>
34.5 ( 18.6/ 15.9/ 7.9) 21 bernard.el-hagin@lido-tech.net
These posters accounted for 27.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 83.0 / 83.0) 28 PerlFAQ Server <faq@denver.pm.org>
0.995 ( 19.7 / 19.8) 11 Rob <a565a87@my-deja.com>
0.878 ( 1.9 / 2.2) 5 BUCK NAKED1 <dennis100@webtv.net>
0.870 ( 34.6 / 39.7) 36 abigail@foad.org
0.868 ( 4.7 / 5.4) 5 "Merlin" <robert@chalmers.com.au>
0.819 ( 11.7 / 14.3) 11 Rand Simberg <simberg.interglobal@trash.org>
0.778 ( 3.3 / 4.3) 5 "Anson Parker" <ans@_nospam_x64.net>
0.729 ( 29.1 / 39.8) 17 Chris Stith <mischief@velma.motion.net>
0.723 ( 4.8 / 6.6) 8 "Alan J. Flavell" <flavell@mail.cern.ch>
0.711 ( 10.0 / 14.1) 10 "James Kauzlarich" <nospam-abuse@[127.0.0.1]>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.475 ( 1.9 / 3.9) 7 Ron Grabowski <ronnie@catlover.com>
0.461 ( 4.5 / 9.8) 8 ben-fuzzybear@geocities.com
0.452 ( 2.2 / 4.9) 7 adelton@informatics.muni.cz
0.448 ( 7.9 / 17.5) 22 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.422 ( 2.2 / 5.1) 5 Jamie O'Shaughnessy <jamie.oshaughnessy@ntlworld.com>
0.418 ( 1.5 / 3.7) 5 Rick Delaney <rick.delaney@home.com>
0.412 ( 2.9 / 7.0) 9 "John Boy Walton" <johngros.NOSPAM@bigpond.net.au>
0.405 ( 3.0 / 7.3) 9 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.381 ( 4.4 / 11.6) 9 David Efflandt <efflandt@xnet.com>
0.185 ( 1.6 / 8.6) 9 John Tutchings <ccx138@coventry.ac.uk>
51 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
30 Random Numbers with a Twist
23 NEWBIE: need help with search spider/crawler
22 What do you call the => operator?
16 FAQ 9.15: How do I decode a CGI form?
15 Newbie question: hash tables and dbm files; what am I doing wrong?
15 Perl - Bytecode, Compile to C, Perl2EXE
14 More questions about pattern matching
14 Perl and AOL. How is this possible?
12 Suppressing stderr on `` commands
12 How to convert a double-spaced file to single spaced?
These threads accounted for 14.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
68.3 ( 25.2/ 40.8/ 26.5) 30 Random Numbers with a Twist
48.1 ( 13.8/ 32.7/ 18.7) 15 Perl - Bytecode, Compile to C, Perl2EXE
46.1 ( 21.5/ 23.6/ 15.8) 23 NEWBIE: need help with search spider/crawler
40.6 ( 21.1/ 17.2/ 9.4) 22 What do you call the => operator?
37.4 ( 14.7/ 21.8/ 16.5) 16 FAQ 9.15: How do I decode a CGI form?
32.6 ( 12.8/ 19.8/ 10.3) 15 Newbie question: hash tables and dbm files; what am I doing wrong?
32.1 ( 10.4/ 21.6/ 8.2) 11 Can't associate .PL files in Win98
30.5 ( 12.3/ 17.0/ 9.1) 14 Perl and AOL. How is this possible?
28.2 ( 10.4/ 17.2/ 10.6) 14 More questions about pattern matching
25.1 ( 2.9/ 21.6/ 12.1) 4 Fork lots of children
These threads accounted for 16.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.953 ( 5.1/ 5.4) 7 Posting email from PERL to Outlook (Exchange)???
0.866 ( 4.3/ 5.0) 8 Random text script, got one?:-)
0.850 ( 7.5/ 8.8) 8 percentages, how?
0.789 ( 5.9/ 7.5) 5 FAQ 9.10: How do I redirect to another page?
0.787 ( 10.9/ 13.8) 6 Child processes don't clean up (defunct processes left) even though SIGCHLD does wait()
0.782 ( 4.6/ 5.9) 8 Perl Style Guide - uncuddled elses
0.759 ( 1.9/ 2.4) 5 simple newbie question
0.758 ( 16.5/ 21.8) 16 FAQ 9.15: How do I decode a CGI form?
0.758 ( 2.2/ 2.9) 8 $ problem
0.749 ( 3.6/ 4.8) 6 Passing a parameter to a "sort" sub?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.461 ( 4.6 / 10.0) 10 regular expression question. pls help
0.455 ( 4.4 / 9.7) 8 isInNet() function
0.450 ( 1.3 / 2.9) 5 Limits on array and hash storage
0.445 ( 2.4 / 5.3) 5 Can't get Apache, Win98, and Mod_Perl working.
0.444 ( 2.9 / 6.5) 5 What's wrong with this (parent fork multiple children)?
0.440 ( 6.7 / 15.2) 9 Words in Perl - Pulling Hair
0.409 ( 2.1 / 5.1) 5 Insert value into table using perl/DBI
0.382 ( 8.2 / 21.6) 11 Can't associate .PL files in Win98
0.369 ( 3.0 / 8.0) 9 Command line switch (-s)
0.349 ( 3.0 / 8.6) 7 input_record_separator error
87 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
9 comp.lang.perl.modules
4 comp.lang.perl
4 alt.perl
3 comp.infosystems.www.servers.unix
2 comp.answers
2 news.answers
2 comp.lang.perl.moderated
2 comp.infosystems.www.cgi
2 comp.lang.perl.tk
1 comp.infosystems.www.servers.ms-windows
Top 10 Crossposters
===================
Articles Address
-------- -------
4 David <david_xia@yahoo.com>
3 Terrence Brannon <brannon@lnc.usc.edu>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
2 swan_daniel@my-deja.com
2 vivek@cse.iitd.ernet.in
2 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
2 jari.aalto@poboxes.com
2 mine <ball@merck.com>
1 jzhang_97@my-deja.com
1 Uri Guttman <uri@sysarch.com>
------------------------------
Date: Mon, 22 Jan 2001 17:15:11 GMT
From: simberg.interglobal@trash.org (Rand Simberg)
Subject: Re: Still Can't Get MIME Lite To Send Attachment...
Message-Id: <3a6c69b7.318593191@nntp.ix.netcom.com>
On Sun, 21 Jan 2001 15:18:30 GMT, in a place far, far away,
adelton@fi.muni.cz (Honza Pazdziora) made the phosphor on my monitor
glow in such a way as to indicate that:
>Did you try to specify Filename, as the doc shows? Since you have slash
>in Path, MIME::Lite may refuse that attach call.
No. I thought that Filename was to specify what the file would be
called when it reached the addressee's inbox.
I tried what you said, with the following code:
# Create a new multipart message:
$msg = new MIME::Lite
From =>"$mailer",
To =>"$recipient",
# Cc =>"$recipient",
Subject =>'Contact Record Archive',
Type =>'multipart/mixed';
# Add parts (each "attach" has same arguments
as "new"):
attach $msg
Type =>'TEXT',
Data =>"The attached file contains
your requested archive backup.";
attach $msg
Type =>'text/plain',
Encoding =>'quoted-printable',
Path =>"$data_directory/$file",
Filename =>"$file";
$msg->send;
This time, it sent the file data, but incorporated it into the body of
the message, not as an attachment, as follows:
************************************
Content-Disposition: inline
Content-Length: 57
Content-Transfer-Encoding: binary
Content-Type: text/plain
The attached file contains your requested archive backup.lkjlskdfj
dhfsdfh
ghsfghsdfg dfhjhg
dfgd yiku
ttynnty 7ytjrsht
************************************
where the nonsense characters constitute the file data for testing
purposes.
Should I be using a different encoding scheme? What do I have to do
to force it to send the data as an attached file?
************************************************************************
simberg.interglobal.org * 310 372-7963 (CA) 307 739-1296 (Jackson Hole)
interglobal space lines * 307 733-1715 (Fax) http://www.interglobal.org
"Extraordinary launch vehicles require extraordinary markets..."
Replace first . with @ and throw out the "@trash." to email me.
Here's my email address for autospammers: postmaster@fbi.gov
------------------------------
Date: Mon, 22 Jan 2001 08:10:49 -0800
From: Kira <callgirl@la.znet.com>
Subject: Re: warning! moronzilla is back
Message-Id: <3A6C5B89.BFA46020@la.znet.com>
Abigail wrote:
> Uri Guttman (uri@sysarch.com) wrote on MMDCCI September MCMXCIII in
> <URL:news:x7wvbow5kl.fsf@home.sysarch.com>:
> \\ [To Kira]
> \\ here is the only place where
> \\ you can even show your hidden self and not be filtered out
> \\ completely.
> Any group can easily deal with a troll. Trolls are easily filtered out
> EXCEPT WHEN THERE ARE MORONS WHO KEEP REPLYING AND QUOTING THE TROLL.
Reads to me over these past couple of years,
you good folks of this group are the trolls.
Hmm... rather hateful trolls at that.
Godzilla!
------------------------------
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 V10 Issue 120
**************************************
