[18491] in Perl-Users-Digest
Perl-Users Digest, Issue: 659 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 9 11:05:49 2001
Date: Mon, 9 Apr 2001 08:05:20 -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: <986828719-v10-i659@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 9 Apr 2001 Volume: 10 Number: 659
Today's topics:
cgi <Richard_member@newsranger.com>
Re: cgi (Bernard El-Hagin)
Re: cgi (Gwyn Judd)
Re: cgi <joe+usenet@sunstarsys.com>
Re: cgi (Abigail)
Re: cookies and perl <gtoomey@usa.net>
Re: cookies and perl <flavell@mail.cern.ch>
Re: FAQ 9.9: How do I decode or create those %-encodi <webmaster@webdragon.unmunge.net>
Re: FAQ 9.9: How do I decode or create those %-encodi <gtoomey@usa.net>
How many lines have I read? <thomas.lohmueller@swisscom.com>
Re: How many lines have I read? (Bernard El-Hagin)
Re: How many lines have I read? (Anno Siegel)
how to break a regexpr over a line? <thomas.lohmueller@swisscom.com>
Re: How to get perl to count POD lines (Bernard El-Hagin)
Re: How to get perl to count POD lines (Rafael Garcia-Suarez)
how to improve this code? <jens@irs-net.com>
Re: how to improve this code? <info@fruiture.de>
Re: how to improve this code? (Abigail)
Re: How to use Net::Telnet if the login without passwor <scottalorda@free.fr>
linebreak in forms (SwissOnline AG)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: problem with making dirs! <webmaster@webdragon.unmunge.net>
Re: problem with quoting or how to avoid \n at the the <info@java.seite.net>
Re: problem with quoting or how to avoid \n at the the <info@java.seite.net>
Re: Seeking Perl Script for Notice Board <nospam@demon.net>
Re: Seeking Perl Script for Notice Board <nospam@demon.net>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: To Perl Or Not To Perl (Re: Why Perl?) (Abigail)
Re: To Perl Or Not To Perl (Re: Why Perl?) (Gwyn Judd)
Re: Using Perl's Expect like from Comm.pl <wayne.keenan@ntlworld.com>
Re: Why Perl? <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 09 Apr 2001 13:38:50 GMT
From: Richard Dobson <Richard_member@newsranger.com>
Subject: cgi
Message-Id: <KXiA6.771$FY5.38120@www.newsranger.com>
Hi,
does anyone know how to create a 'Browse..' function on a web page?
thanks in advance
Richard
------------------------------
Date: Mon, 9 Apr 2001 13:49:59 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: cgi
Message-Id: <slrn9d3ffc.7pf.bernard.el-hagin@gdndev32.lido-tech>
On Mon, 09 Apr 2001 13:38:50 GMT, Richard Dobson
<Richard_member@newsranger.com> wrote:
>
>Hi,
>does anyone know how to create a 'Browse..' function on a web page?
I doubt it.
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: Mon, 09 Apr 2001 13:58:15 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: cgi
Message-Id: <slrn9d3fvm.pof.tjla@thislove.dyndns.org>
I was shocked! How could Richard Dobson <Richard_member@newsranger.com>
say such a terrible thing:
>Hi,
>does anyone know how to create a 'Browse..' function on a web page?
Anyone did know, but then he left because of the incessant CGI
questions. furrfu. Go away, troll.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
He had occasional flashes of silence that made his conversation perfectly
delightful.
-- Sydney Smith
------------------------------
Date: 09 Apr 2001 10:02:13 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: cgi
Message-Id: <m3snji9noa.fsf@mumonkan.sunstarsys.com>
Richard Dobson <Richard_member@newsranger.com> writes:
> Hi,
> does anyone know how to create a 'Browse..' function on a web page?
<html>
<head><title>Off Topic</title>
<script>
function Browse () {
window.open("news:comp.infosystems.www.authoring.cgi");
}
</script>
</head>
<body onLoad="javascript:Browse();"></body>
</html>
HTH
--
Joe Schaefer "It is by the fortune of God that, in this country, we have
three benefits: freedom of speech, freedom of thought, and the
wisdom never to use either."
--Mark Twain
------------------------------
Date: Mon, 9 Apr 2001 14:41:40 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: cgi
Message-Id: <slrn9d3ih4.flf.abigail@tsathoggua.rlyeh.net>
Richard Dobson (Richard_member@newsranger.com) wrote on MMDCCLXXVIII
September MCMXCIII in <URL:news:KXiA6.771$FY5.38120@www.newsranger.com>:
::
:: does anyone know how to create a 'Browse..' function on a web page?
Why on earth do you think this is the appropriate group to ask?
Abigail
------------------------------
Date: Mon, 9 Apr 2001 23:09:11 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: cookies and perl
Message-Id: <sjiA6.12412$45.72214@newsfeeds.bigpond.com>
You asked the same question three days ago.
Did you bother to read the replies?
gtoomey
----------
"Bob Smith" <gglackin@nospam.eircom.net> wrote in message
news:TniA6.7062$_W2.7575@news.indigo.ie...
> Hi,
>
> I am writing a cookie based application to build up stats/profiles on
> visitors to our sites. The problem is that if cookies have been disabled
> then I end up recording a new session entry for every page visited.
>
> Is there any way to detect if a browser has cookies disabled??.
...
------------------------------
Date: Mon, 9 Apr 2001 15:23:31 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: cookies and perl
Message-Id: <Pine.LNX.4.30.0104091521440.6935-100000@lxplus003.cern.ch>
On Mon, 9 Apr 2001, Bob Smith wrote:
> Is there any way to detect if a browser has cookies disabled??.
Client options for cookie control are far more complex than a mere
on/off switch. All you need to know is that it's not sending you the
ones you expected. But that might change directly after you detected
it.
This is not a Perl question, f'ups redirected.
------------------------------
Date: 9 Apr 2001 13:05:14 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: Re: FAQ 9.9: How do I decode or create those %-encodings on the web?
Message-Id: <9asc2a$m0m$3@216.155.33.105>
In article <xtcA6.737$T3.192169984@news.frii.net>,
PerlFAQ Server <faq@denver.pm.org> wrote:
| This message is one of several periodic postings to comp.lang.perl.misc
| intended to make it easier for perl programmers to find answers to
| common questions. The core of this message represents an excerpt
| from the documentation provided with every Standard Distribution of
| Perl.
|
| +
| How do I decode or create those %-encodings on the web?
|
| -
|
| Documents such as this have been called "Answers to Frequently
| Asked Questions" or FAQ for short. They represent an important
| part of the Usenet tradition. They serve to reduce the volume of
I'm guessing this is one of those off-topic questions? :D
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Mon, 9 Apr 2001 23:16:34 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: FAQ 9.9: How do I decode or create those %-encodings on the web?
Message-Id: <nqiA6.12419$45.71789@newsfeeds.bigpond.com>
Exactly. The is now a CGI-free zone. ;-(
The FAQ server should be dispatched to Comp.infosystems.www.authoring.cgi
gtoomey
-------------
"Scott R. Godin" <webmaster@webdragon.unmunge.net> wrote in message
news:9asc2a$m0m$3@216.155.33.105...
> In article <xtcA6.737$T3.192169984@news.frii.net>,
> PerlFAQ Server <faq@denver.pm.org> wrote:
>
> I'm guessing this is one of those off-topic questions? :D
------------------------------
Date: Mon, 9 Apr 2001 13:26:33 +0000 (UTC)
From: "Thomas Lohmüller" <thomas.lohmueller@swisscom.com>
Subject: How many lines have I read?
Message-Id: <01c0c0f8$b1b9cc60$8623880a@u51542>
Hi,
I have a programm like this...
open FILE, "<afile.txt";
then I read a few lines.
Can I get the number of the last read line?
Thanx
------------------------------
Date: Mon, 9 Apr 2001 13:28:16 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: How many lines have I read?
Message-Id: <slrn9d3e6n.7pf.bernard.el-hagin@gdndev32.lido-tech>
On Mon, 9 Apr 2001 13:26:33 +0000 (UTC), Thomas Lohmüller
<thomas.lohmueller@swisscom.com> wrote:
>Hi,
>
>I have a programm like this...
>
>open FILE, "<afile.txt";
>
>then I read a few lines.
>Can I get the number of the last read line?
You can either use a counter which you increment each time you read a
new line or read about the $. variable:
perldoc perlvar
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: 9 Apr 2001 13:29:34 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How many lines have I read?
Message-Id: <9asdfu$13q$2@mamenchi.zrz.TU-Berlin.DE>
According to Thomas Lohmüller <thomas.lohmueller@swisscom.com>:
> Hi,
>
> I have a programm like this...
>
> open FILE, "<afile.txt";
>
> then I read a few lines.
> Can I get the number of the last read line?
Yes. Look for $. in perlvar.
Anno
------------------------------
Date: Mon, 9 Apr 2001 15:00:37 +0000 (UTC)
From: "Thomas Lohmüller" <thomas.lohmueller@swisscom.com>
Subject: how to break a regexpr over a line?
Message-Id: <01c0c105$d5d09db0$8623880a@u51542>
Hi
I have a long regexpr. Is there any chance to break this line over two
line?
while
($line=~/^[^,]+,[^,]+,\"([^\"]+)\",(\d+),\"(\d+:\d+)\",\d+,(\d+),(\d+),\"(\d
+:\d+)\",\"(\d+:\d+)\",\"(\d+:\d+)\",/)
thanks
------------------------------
Date: Mon, 9 Apr 2001 13:10:34 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: How to get perl to count POD lines
Message-Id: <slrn9d3d5h.7pf.bernard.el-hagin@gdndev32.lido-tech>
On Mon, 09 Apr 2001 14:30:43 +0100, Boris Lenhard
<boris.lenhard@cgr.ki.se> wrote:
>Sorry if it is a stupid question..
>
>I am trying to document my code using POD as I write it, but the line
>numbers in perl error messages do not match those in Emacs because perl
>interpreter does not count the POD lines.
>
>Is there an easy way to get perl to count POD lines as well in the
>source when reporting errors?
Don't use Emacs.
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: 9 Apr 2001 13:12:43 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: How to get perl to count POD lines
Message-Id: <slrn9d3db8.jtq.rgarciasuarez@rafael.kazibao.net>
Boris Lenhard wrote in comp.lang.perl.misc:
>
> I am trying to document my code using POD as I write it, but the line
> numbers in perl error messages do not match those in Emacs because perl
> interpreter does not count the POD lines.
Are you sure ?
I tried this :
#!/usr/local/bin/perl
=comment
pod text
=cut
open FOO, 'quuux' or die;
__END__
Output (using perl 5.6.1 on linux):
Died at bin/quux line 5.
Perhaps your end-of-line markers are garbled because of DOS-ish
characters on some lines. Or something.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Mon, 09 Apr 2001 16:04:30 +0200
From: "Jens Luedicke" <jens@irs-net.com>
Subject: how to improve this code?
Message-Id: <20010409.160429.2086206725.3777@irs-net.com>
hi there ...
how can I improve this code?
foreach (split /\n/, $records[$number_of_mails]{"Header"}) {
$element = $_;
foreach $e (qw(From Subject To Reply-To Cc)) {
$records[$number_of_mails]{$e} = $1 if $element =~ /^$e:\s+(.+)/i;
}
}
thanks in advance ...
--
with friendly regards....
jens luedicke <jens@irs-net.com>
------------------------------
Date: Mon, 9 Apr 2001 16:14:42 +0200
From: "fruiture" <info@fruiture.de>
Subject: Re: how to improve this code?
Message-Id: <9asgh3$vga$1@Merlin.et.bocholt.fh-gelsenkirchen.de>
"Jens Luedicke" <jens@irs-net.com> schrieb im Newsbeitrag
news:20010409.160429.2086206725.3777@irs-net.com...
> hi there ...
>
> how can I improve this code?
>
> foreach (split /\n/, $records[$number_of_mails]{"Header"}) {
> $element = $_;
> foreach $e (qw(From Subject To Reply-To Cc)) {
> $records[$number_of_mails]{$e} = $1 if $element =~ /^$e:\s+(.+)/i;
> }
> }
>
> thanks in advance ...
> ....
use strict;
foreach my $element (split /\n/, $records[$number_of_mails]{'Header'})
{
foreach my $e (qw(From Subject To Reply-To Cc)) {
$records[$number_of_mails]{$e}= $1 if $element =~ /^$e:\s+(.+)/i;
}
}
it's just: use strict
--
do something for your health
______fruiture.de___yeah!_
------------------------------
Date: Mon, 9 Apr 2001 14:46:48 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: how to improve this code?
Message-Id: <slrn9d3iqo.flf.abigail@tsathoggua.rlyeh.net>
Jens Luedicke (jens@irs-net.com) wrote on MMDCCLXXVIII September MCMXCIII
in <URL:news:20010409.160429.2086206725.3777@irs-net.com>:
() hi there ...
()
() how can I improve this code?
()
() foreach (split /\n/, $records[$number_of_mails]{"Header"}) {
() $element = $_;
() foreach $e (qw(From Subject To Reply-To Cc)) {
() $records[$number_of_mails]{$e} = $1 if $element =~ /^$e:\s+(.+)/i;
() }
() }
my %h = map {$_ => 1} qw /From Subject To Reply-To Cc/;
while ($records [$number_of_mails] {"Header"} =~ /^(\S+):\s+(.+)/m) {
$records [$number_of_mails] {$1} = $2 if $h {$1};
}
Abigail
--
BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
{["", "Just ", "another ", "Perl ", "Hacker\n"] -> [shift]};
$^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
print 1, 2, 3, 4;
------------------------------
Date: Mon, 09 Apr 2001 14:17:00 GMT
From: "Sébastien Cottalorda" <scottalorda@free.fr>
Subject: Re: How to use Net::Telnet if the login without password
Message-Id: <wvjA6.150$M_.97735792@nnrp5.proxad.net>
Hi,
Try with the "Expect" Package (cf CPAN), it's based on the philisophy:
- If I receive ...
then I send ....
Then you can run Telnet and answer him as you like.
Hope this helps.
Sebastien
jackkon <jackkon@pchome.com.tw> a écrit dans le message :
9arohf$mek@netnews.hinet.net...
> hi.....
> I will use the Net::Telnet to login the linux system.
> But the account don't have password.
> How can I do?
> I try the code below, but it seems don't work.
>
> $user='myname';
> $passwd='';
> $t->login($user, $passwd);
>
>
>
>
------------------------------
Date: Mon, 09 Apr 2001 14:37:59 GMT
From: "Sebastian Huber (SwissOnline AG)" <t_hispeed_05@solintern.ch>
Subject: linebreak in forms
Message-Id: <3AD1C997.99F366A2@solintern.ch>
hello,
i am facing the problem that i want to use a html-form with a
textarea-input of several rows.
if the user presses the enter-key, how is the newline encoded? what
regex do i have to use if i do not want linebreaks?
i tryed:
FORM{'text'}=~ s/<!--(.|\n)-->//g;
but it did not work
thx sebastian
------------------------------
Date: Mon, 09 Apr 2001 14:30:03 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <td3hrb994bbgce@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 02 Apr 2001 15:28:02 GMT and ending at
09 Apr 2001 14:35:16 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.
Totals
======
Posters: 166 (44.7% of all posters)
Articles: 308 (27.7% of all articles)
Volume generated: 613.7 kb (29.3% of total volume)
- headers: 256.6 kb (5,123 lines)
- bodies: 352.2 kb (12,153 lines)
- original: 257.3 kb (9,359 lines)
- signatures: 4.7 kb (121 lines)
Original Content Rating: 0.731
Averages
========
Posts per poster: 1.9
median: 1.0 post
mode: 1 post - 114 posters
s: 2.7 posts
Message size: 2040.4 bytes
- header: 853.1 bytes (16.6 lines)
- body: 1170.8 bytes (39.5 lines)
- original: 855.5 bytes (30.4 lines)
- signature: 15.5 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
26 44.5 ( 27.7/ 16.8/ 6.4) wayne.keenan@ntlworld.com
14 34.9 ( 11.5/ 23.4/ 12.9) A_Geekette <moiraine{NOSPAM}@qwest.net>
7 22.5 ( 6.4/ 16.1/ 7.8) Dave Bailey <dave@sydney.daveb.net>
7 10.4 ( 5.6/ 4.8/ 2.4) Nick Pinckernell <nap@illx.org>
6 8.7 ( 5.4/ 3.3/ 1.5) "Nathan Pertuset" <npertuset@hotmail.com>
6 13.4 ( 5.2/ 8.2/ 5.2) "Zachary Kent" <zkent@together.net>
6 9.9 ( 6.5/ 3.4/ 2.1) "Chris W" <chrisw+usenet@dynamite.com.au>
5 8.1 ( 4.9/ 3.3/ 2.6) Scott <admin@gatordev.net>
5 10.7 ( 4.6/ 6.1/ 4.9) "John Doe" <joeybach@127.0.0.1>
5 5.0 ( 3.8/ 1.2/ 0.4) "Aleksandr Guidrevitch" <pillgrim@mail.ru>
These posters accounted for 7.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
44.5 ( 27.7/ 16.8/ 6.4) 26 wayne.keenan@ntlworld.com
34.9 ( 11.5/ 23.4/ 12.9) 14 A_Geekette <moiraine{NOSPAM}@qwest.net>
34.1 ( 0.9/ 33.2/ 33.2) 1 David.nospam.Smith@ds-nospam-electronics.co.uk
22.5 ( 6.4/ 16.1/ 7.8) 7 Dave Bailey <dave@sydney.daveb.net>
17.4 ( 2.0/ 15.4/ 7.5) 2 Don Lundgren <dlungren@corecomm.net>
15.2 ( 0.9/ 14.3/ 14.2) 2 Darrick
13.4 ( 5.2/ 8.2/ 5.2) 6 "Zachary Kent" <zkent@together.net>
10.7 ( 4.6/ 6.1/ 4.9) 5 "John Doe" <joeybach@127.0.0.1>
10.4 ( 5.6/ 4.8/ 2.4) 7 Nick Pinckernell <nap@illx.org>
10.1 ( 0.6/ 9.5/ 4.3) 1 Alex Robinson <perl_news@tranzoa.com>
These posters accounted for 10.2% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.0 / 1.0) 3 Don Koks <don.koks@defence.gov.auREMOVE_CAPITALS>
1.000 ( 0.9 / 0.9) 3 Dasdale <dasdale@cs.com>
1.000 ( 1.8 / 1.8) 3 hue micheal <huem@MailAndNews.com>
0.839 ( 3.8 / 4.6) 3 "hangover" <matt@webexplorers.com.au>
0.817 ( 1.9 / 2.3) 3 hhsoft@csoft.net
0.808 ( 4.9 / 6.1) 5 "John Doe" <joeybach@127.0.0.1>
0.786 ( 2.6 / 3.3) 5 Scott <admin@gatordev.net>
0.767 ( 4.5 / 5.9) 3 "B McDonald" <plz@righthere.com>
0.726 ( 0.9 / 1.2) 4 david_j_findlay@yahoo.com.au
0.713 ( 1.2 / 1.7) 4 "Bert" <webmaster@netdating.nl>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.507 ( 2.4 / 4.8) 7 Nick Pinckernell <nap@illx.org>
0.497 ( 1.6 / 3.2) 3 "David Pratt" <pratt@biop.ox.ac.uk>
0.487 ( 7.8 / 16.1) 7 Dave Bailey <dave@sydney.daveb.net>
0.461 ( 1.5 / 3.3) 6 "Nathan Pertuset" <npertuset@hotmail.com>
0.407 ( 1.2 / 3.0) 4 magrav@unx.sas.com
0.406 ( 1.0 / 2.5) 3 Gary W <gary@db.stanford.edu>
0.382 ( 6.4 / 16.8) 26 wayne.keenan@ntlworld.com
0.373 ( 0.4 / 1.2) 5 "Aleksandr Guidrevitch" <pillgrim@mail.ru>
0.337 ( 0.7 / 2.2) 3 Alexis Roda <alexis.roda@si.urv.es>
0.257 ( 1.1 / 4.1) 4 "Florian Paulus" <paulus86@ascat.de>
27 posters (16%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 comp.lang.perl.modules
13 comp.lang.perl
13 alt.perl
10 comp.lang.perl.tk
5 comp.text.xml
5 alt.php
4 sas.lang.perl5;
3 comp.lang.perlmodules
3 comp.unix.bsd.freebsd.misc
3 comp.infosystems.www.servers.unix
Top 10 Crossposters
===================
Articles Address
-------- -------
6 Scott <admin@gatordev.net>
3 "Dr Joolz" <jxm96c@hotmail.com>
3 "Roger W. Winget" <wingetr@wingetsolutions.com>
3 "Florian Paulus" <paulus86@ascat.de>
2 "smilepak" <smilepak@hotmail.com>
2 "Tony Smith" <tsmith@pathnet.net>
2 "Chris Hartles" <educool@mpx.com.au>
2 "Eagle Web Services" <nospam@please.com>
2 Don Lundgren <dlungren@corecomm.net>
2 A_Geekette <moiraine{NOSPAM}@qwest.net>
------------------------------
Date: 9 Apr 2001 13:12:36 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: Re: problem with making dirs!
Message-Id: <9ascg4$m0m$4@216.155.33.105>
In article <0YbA6.12077$45.69749@newsfeeds.bigpond.com>,
"Gregory Toomey" <gtoomey@usa.net> wrote:
| I did the same - signed up with an ISP to find they only offered Win NT on
| their "commercial" servers. They only think you could do was to FTP to the
| site.
|
| Now I have an ISP that offers Linux, Telnet, Apache and associated goodies
| at half the cost. Transferring domains is easy ...
Indeed.. the place I'm currently hosting my site is on NT (ugh) and I
cannot do anything cgi wise on it to display some of the work I've done
to prospective clients without going to my remote domain at my ISP
(which does indeed provide a lovely shell account, and who is more than
happy to (usually) update local Perl modules. :)
I hope to move the site soon .. It's terribly frustrating. Particularly
when you want to show off :D *duck*
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Mon, 09 Apr 2001 15:44:20 +0200
From: Christoph Bergmann <info@java.seite.net>
Subject: Re: problem with quoting or how to avoid \n at the the end of <<EOF?
Message-Id: <3AD1BCB4.2089@java.seite.net>
Mona Wuerz wrote:
>
> In article <3ACF5BD7.6CA8@java.seite.net>, Christoph Bergmann
> <info@java.seite.net> wrote:
>
> > is there a possibility to write
> >
> > $x=<<EOF
> > text
> > EOF
> >
> > without an additional \n at the end of "text" ??
>
> not that I know of, but what's wrong with chomp, if the \n bothers you?
>
> -mona
if i would need it just like the above code, chomp would be fine, but i
need it in a construct like this:
&anothersub("&somesub(<<'WHATEVER'
$val
WHATEVER
)");
"anothersub" evals the code it gets (it has to be eval because the $val
comes from outside the program).
a chomp afterwards is useless and a chomp before results in the same
problem (if $val doesn't end with \n, chomp has no effect and
<<'WHATEVER' adds \n...)
mhh, looks like there is no solution...?
best regards,
christoph bergmann
------------------------------
Date: Mon, 09 Apr 2001 16:24:19 +0200
From: Christoph Bergmann <info@java.seite.net>
Subject: Re: problem with quoting or how to avoid \n at the the end of <<EOF?
Message-Id: <3AD1C613.4FF7@java.seite.net>
Uri Guttman wrote:
>
> >> Christoph Bergmann <info@java.seite.net> wrote:
> >>
> >>> is there a possibility to write
> >>>
> >>> $x=<<EOF
> >>> text
> >>> EOF
> >>
>
> and it is so easy to chomp/chop off the trailing newline that it is not
> worth answering. and trying to use multiline quoted strings with quote
> chars or q/qq is annoying. you have to continue the statement on the
> other side of the string which is not visually clear.
>
> uri
>
the above code was a reply to an answer of my original question. the
real problem is not that simple. i want to give code to a subroutine
which evals this code (it has to be eval, because the code could come
from outside the program):
&anothersub("&somesub(<<'WHATEVER'
$val
WHATEVER
)");
$val could contain any char, including ', ", }, ! etc. (thats why q{...}
would not work)... chomping $val before the statement would end in the
same problem if $val does not end with \n... "somesub" could be called
from "normal" (not eval'ed) code as well (like &somesub("blah\n"); ) so
chomping generally in "somesub" isn't ok either...
maybe the question sounds a bit theoretical, but i just didn't thought
there is really no way to leave the given value unchanged (even if its
just a \n more at the end)...
best regards,
christoph...
------------------------------
Date: Mon, 9 Apr 2001 15:33:07 +0100
From: "Mark Ryan" <nospam@demon.net>
To: comp.lang.perl.misc
Subject: Re: Seeking Perl Script for Notice Board
Message-Id: <ALLN77759AAB5@allen-coding.co.uk>
Thank you for your assistance,
- Mark -
<daniel.cutter@polizei.brandenburg.de> wrote in message
news:9akbqu$bha$1@news.netmar.com...
> In article <ALLN769798EBF@allen-coding.co.uk>, Mark Ryan
<nospam@demon.net>
> writes:
>
> >My company wishes to have a customer support notice board on the web
site,
> >and presently I have no real knowledge of Perl scripting, could someone
> >point me to a source which is pre-written?
>
>
> Try http://www.discusware.com
>
> It's free and good. Installs itself easily too.
>
> Daniel
>
> ----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the
eb -----
> http://newsone.net/ -- Free reading and anonymous posting to 60,000+
groups
> NewsOne.Net prohibits users from posting spam. If this or other posts
> made through NewsOne.Net violate posting guidelines, email
abuse@newsone.net
------------------------------
Date: Mon, 9 Apr 2001 15:33:14 +0100
From: "Mark Ryan" <nospam@demon.net>
To: comp.lang.perl.misc
Subject: Re: Seeking Perl Script for Notice Board
Message-Id: <ALLN77759AAB7@allen-coding.co.uk>
Thank you for your assistance,
- Mark -
Clinton Munden <clinton.munden@alcatel.com> wrote in message
news:3ACDDEA0.E2F235F4@alcatel.com...
> try this script at this site
> http://www.waytotheweb.com
> the script is called talkback
>
> Clinton Munden
>
> Mark Ryan wrote:
>
> > Hi People,
> >
> > My company wishes to have a customer support notice board on the web
site,
> > and presently I have no real knowledge of Perl scripting, could someone
> > point me to a source which is pre-written?
> >
> > --
> >
> > Regards,
> >
> > Mark Ryan - IT Administrator,
> > Thermo Allen Coding Ltd., Unit 6, Little Mundells,
> > Welwyn Garden City, Hertfordshire. AL7 1LD.
> > Tel +44 (0) 1707 379500 Fax +44 (0) 1707 320225
> > Email: it.admin@thermoallen-coding.co.uk
> > Web Site: http://www.thermoallen-coding.co.uk
>
------------------------------
Date: Mon, 09 Apr 2001 14:29:58 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <td3hr6li06cqc8@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 02 Apr 2001 15:28:02 GMT and ending at
09 Apr 2001 14:35:16 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
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 371
Articles: 1112 (444 with cutlined signatures)
Threads: 332
Volume generated: 2096.9 kb
- headers: 927.3 kb (18,097 lines)
- bodies: 1103.2 kb (36,287 lines)
- original: 734.1 kb (26,184 lines)
- signatures: 65.3 kb (1,435 lines)
Original Content Rating: 0.665
Averages
========
Posts per poster: 3.0
median: 1 post
mode: 1 post - 213 posters
s: 4.9 posts
Posts per thread: 3.3
median: 2.0 posts
mode: 2 posts - 100 threads
s: 3.7 posts
Message size: 1931.0 bytes
- header: 853.9 bytes (16.3 lines)
- body: 1015.9 bytes (32.6 lines)
- original: 676.0 bytes (23.5 lines)
- signature: 60.2 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
46 102.2 ( 47.2/ 48.7/ 30.8) tadmc@augustmail.com
41 85.9 ( 37.1/ 36.6/ 16.4) Uri Guttman <uri@sysarch.com>
28 49.9 ( 19.8/ 30.1/ 15.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
26 44.5 ( 27.7/ 16.8/ 6.4) wayne.keenan@ntlworld.com
24 43.6 ( 18.2/ 23.5/ 14.2) nobull@mail.com
24 60.2 ( 23.0/ 33.3/ 29.3) abigail@foad.org
19 42.2 ( 15.6/ 23.8/ 23.8) "Scott R. Godin" <webmaster@webdragon.unmunge.net>
18 32.1 ( 14.7/ 14.9/ 7.5) Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
17 44.6 ( 17.0/ 25.9/ 12.5) Benjamin Goldberg <goldbb2@earthlink.net>
16 31.5 ( 15.0/ 16.0/ 10.8) Ren Maddox <ren@tivoli.com>
These posters accounted for 23.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
102.2 ( 47.2/ 48.7/ 30.8) 46 tadmc@augustmail.com
85.9 ( 37.1/ 36.6/ 16.4) 41 Uri Guttman <uri@sysarch.com>
60.2 ( 23.0/ 33.3/ 29.3) 24 abigail@foad.org
49.9 ( 19.8/ 30.1/ 15.6) 28 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
44.6 ( 17.0/ 25.9/ 12.5) 17 Benjamin Goldberg <goldbb2@earthlink.net>
44.5 ( 27.7/ 16.8/ 6.4) 26 wayne.keenan@ntlworld.com
43.6 ( 18.2/ 23.5/ 14.2) 24 nobull@mail.com
42.2 ( 15.6/ 23.8/ 23.8) 19 "Scott R. Godin" <webmaster@webdragon.unmunge.net>
40.2 ( 12.8/ 25.8/ 18.7) 16 Logan Shaw <logan@cs.utexas.edu>
34.9 ( 11.5/ 23.4/ 12.9) 14 A_Geekette <moiraine{NOSPAM}@qwest.net>
These posters accounted for 26.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.999 ( 23.8 / 23.8) 19 "Scott R. Godin" <webmaster@webdragon.unmunge.net>
0.952 ( 1.8 / 1.9) 6 The Mosquito ScriptKiddiot <anotherway83@aol.com>
0.880 ( 29.3 / 33.3) 24 abigail@foad.org
0.853 ( 12.0 / 14.1) 7 "novastar" <root@novastar.dtdns.net>
0.829 ( 6.7 / 8.1) 7 "Alan J. Flavell" <flavell@mail.cern.ch>
0.811 ( 11.5 / 14.1) 16 Mark Jason Dominus <mjd@plover.com>
0.808 ( 4.9 / 6.1) 5 "John Doe" <joeybach@127.0.0.1>
0.795 ( 2.6 / 3.2) 8 "Waarddebon" <Waarddebon@chello.nl>
0.787 ( 8.2 / 10.4) 7 ---Pete--- <bogus@erol.com>
0.786 ( 2.6 / 3.3) 5 Scott <admin@gatordev.net>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.457 ( 3.0 / 6.5) 7 Randal L. Schwartz <merlyn@stonehenge.com>
0.451 ( 2.8 / 6.2) 11 Jonathan Stowe <gellyfish@gellyfish.com>
0.449 ( 16.4 / 36.6) 41 Uri Guttman <uri@sysarch.com>
0.448 ( 3.1 / 7.0) 13 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.446 ( 2.5 / 5.7) 8 Dmitry Epstein <mitiaNOSPAM@northwestern.edu.invalid>
0.410 ( 3.6 / 8.8) 11 bernard.el-hagin@lido-tech.net
0.382 ( 6.4 / 16.8) 26 wayne.keenan@ntlworld.com
0.373 ( 0.4 / 1.2) 5 "Aleksandr Guidrevitch" <pillgrim@mail.ru>
0.255 ( 1.4 / 5.4) 10 ubl@schaffhausen.de
0.224 ( 1.5 / 6.9) 5 "Mihalis Tsoukalos" <mtsouk@freemail.gr>
57 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
35 complaint about moderation of this group
26 Please Flame my Benchmark: open vs. cat
24 So what do YOU use Perl for?
21 Newbies welcome
18 Please Help
13 Deleting one line from a file
13 Regular Expression Help (Easy Question) - Another One
12 ? The best Perl book ?
12 what are the new languages?
12 Copying Directories
These threads accounted for 16.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
98.1 ( 33.5/ 60.6/ 43.3) 35 complaint about moderation of this group
72.7 ( 25.2/ 45.2/ 30.4) 26 Please Flame my Benchmark: open vs. cat
57.5 ( 20.4/ 35.5/ 13.0) 21 Newbies welcome
37.2 ( 18.6/ 16.6/ 11.9) 24 So what do YOU use Perl for?
34.1 ( 0.9/ 33.2/ 33.2) 1 File locking problem
33.1 ( 10.3/ 22.1/ 15.3) 12 Script optimization question
25.2 ( 8.6/ 15.8/ 10.4) 10 Radius detail File to csv
23.1 ( 14.3/ 8.2/ 4.4) 18 Please Help
22.2 ( 1.9/ 20.3/ 20.1) 3 help needed converting beteen sybase::ctlib and win32::odbc
21.6 ( 7.6/ 13.5/ 5.9) 8 Funny behavior?
These threads accounted for 20.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.838 ( 5.1/ 6.0) 7 Return code for % operator
0.826 ( 1.6/ 2.0) 5 Perl Timer!
0.811 ( 10.9/ 13.5) 6 Q: Units of Measurement in Convert-Units
0.800 ( 7.3/ 9.1) 6 Does localtime() handle daylight savings
0.800 ( 5.6/ 7.0) 5 Want Lisp-like state machine impl.
0.767 ( 2.4/ 3.2) 7 Please help
0.746 ( 2.1/ 2.8) 5 White Space Characters
0.725 ( 2.1/ 2.9) 8 help needed with sorting Hash
0.717 ( 3.6/ 5.0) 7 array and hash presentation as text
0.716 ( 11.9/ 16.6) 24 So what do YOU use Perl for?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.459 ( 1.9 / 4.2) 6 'system' in perl script
0.455 ( 1.8 / 3.8) 5 What level of Perl needed for my system() call to work?
0.447 ( 1.1 / 2.5) 5 Free perl interpreter
0.436 ( 5.9 / 13.5) 8 Funny behavior?
0.436 ( 3.1 / 7.2) 5 GD::Graph again
0.429 ( 1.4 / 3.2) 7 Any good way to split a very large string?
0.378 ( 1.2 / 3.3) 5 matrix multiplication
0.374 ( 2.6 / 6.8) 9 Disguising Perl scripts
0.366 ( 13.0 / 35.5) 21 Newbies welcome
0.267 ( 1.7 / 6.4) 6 Multidimensional Arrays?
69 threads (20%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 comp.lang.perl.modules
13 comp.lang.perl
13 alt.perl
10 comp.lang.perl.tk
5 comp.text.xml
5 alt.php
4 sas.lang.perl5;
3 comp.lang.perlmodules
3 comp.unix.bsd.freebsd.misc
3 comp.infosystems.www.servers.unix
Top 10 Crossposters
===================
Articles Address
-------- -------
7 Chris Stith <mischief@velma.motion.net>
6 Scott <admin@gatordev.net>
3 "Scott R. Godin" <webmaster@webdragon.unmunge.net>
3 garry@zvolve.com
3 "Dr Joolz" <jxm96c@hotmail.com>
3 "Roger W. Winget" <wingetr@wingetsolutions.com>
3 John Joseph Trammell <trammell@bayazid.hypersloth.invalid>
3 "Florian Paulus" <paulus86@ascat.de>
3 tadmc@augustmail.com
2 Benjamin Goldberg <goldbb2@earthlink.net>
------------------------------
Date: Mon, 9 Apr 2001 13:35:16 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: To Perl Or Not To Perl (Re: Why Perl?)
Message-Id: <slrn9d3ekk.flf.abigail@tsathoggua.rlyeh.net>
John Klassa (klassa@cisco.com) wrote on MMDCCLXXVIII September MCMXCIII
in <URL:news:slrn9d3bj0.rlo.klassa@klassa-u5.cisco.com>:
:} On Sat, 7 Apr 2001 14:07:12 +0000 (UTC), Abigail <abigail@foad.org> wrote:
:} > Cons: ...
:} > perl6
:}
:} Interesting... Why the "con" on perl6?
Because sofar I've seen a lot of hype, and bucketloads of bullshit.
Abigail
------------------------------
Date: Mon, 09 Apr 2001 13:49:35 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: To Perl Or Not To Perl (Re: Why Perl?)
Message-Id: <slrn9d3ffd.pof.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>John Klassa (klassa@cisco.com) wrote on MMDCCLXXVIII September MCMXCIII
>in <URL:news:slrn9d3bj0.rlo.klassa@klassa-u5.cisco.com>:
>:}
>:} Interesting... Why the "con" on perl6?
>
>Because sofar I've seen a lot of hype, and bucketloads of bullshit.
Concur. Too much talk, and way not enough do.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
If you would understand your own age, read the works of fiction produced
in it. People in disguise speak freely.
------------------------------
Date: Mon, 09 Apr 2001 13:59:37 +0100
From: "wayne.keenan" <wayne.keenan@ntlworld.com>
Subject: Re: Using Perl's Expect like from Comm.pl
Message-Id: <3AD1B239.A9570CC6@ntlworld.com>
avoid, superseded.
use Expect;
use Net::Telnet
use Net::Ftp;
perdoc <ABOVE>
LS wrote:
> Hi :
>
> I downloaded a from, www.perl.com, a utility called Comm.pl . Inside
> it it has a Perl subroutine that allows someone to do telnet, ftp,
> etc.., and also uses the know expect calls .
>
> If anyone has downloaded this Comm.pl, and tried the telnet
> example, can they please reply on how they got it to work
>
> I tried it, but for some reason in the "expect"
> subroutine call, once the PID was created, it did out for some
> reason.
>
> I will post the exact ouptut that I got, if someone has downloaded
> this module, and tried it.
>
> Look forward for a reply.
>
> Regds
>
> LS
------------------------------
Date: Mon, 09 Apr 2001 14:45:58 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Why Perl?
Message-Id: <j9i3dtk6bjovn4v0gi837tnuu5uecuk1c1@4ax.com>
GrapeApe wrote:
>Thats why I ask, why Perl? What can it do for me?
From what I can see, you want MacPerl, and start practicing with
regexes, s/// for replacing, and sort(). Most definitely check out the
Schwartzian Transform. (<http://www.5sigma.com/perl/schwtr.html>, I
think. The server isn't responding right now.)
Compared to Applescript, even with dedicated OSAXen, Perl is fast, and
very flexible indeed.
--
Bart.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
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 659
**************************************
