[19035] in Perl-Users-Digest
Perl-Users Digest, Issue: 1230 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 2 11:05:40 2001
Date: Mon, 2 Jul 2001 08:05:09 -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: <994086309-v10-i1230@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 2 Jul 2001 Volume: 10 Number: 1230
Today's topics:
Re: anonymous subroutines - why? (Tad McClellan)
Re: anonymous subroutines - why? <m.grimshaw@salford.ac.uk>
Re: anonymous subroutines - why? ctcgag@hotmail.com
arrays in XS... <jrl@ast.cam.ac.uk>
Re: check for file locking capabilities (Anno Siegel)
Re: check for file locking capabilities (Eric Bohlman)
Re: chmod xxx > where to put the command? <todd@designsouth.net>
Re: chmod xxx > where to put the command? <alan@headru.sh>
Re: chmod xxx > where to put the command? (Tad McClellan)
Re: Counting occurences of a character (Anno Siegel)
Re: Counting occurences of a character (Eric Bohlman)
Re: FAQ 9.15: How do I decode a CGI form? newbie ?s <jkline@one.net>
Re: FAQ 9.15: How do I decode a CGI form? newbie ?s (Tad McClellan)
Re: Grabbing a web page? <alan@headru.sh>
Re: Need a start or direction for PERL Program (SMS Bul <alan@headru.sh>
Re: New babies to Perl - FREE Documentation Require (raj)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: On The Brink.... <mjcarman@home.com>
Re: On The Brink.... (Tad McClellan)
Re: On The Brink.... <alan@headru.sh>
Re: Open or Die - is die the only choice? ctcgag@hotmail.com
Re: Query: PERL v.s. Perl ==> What's the difference?? <somewhere@in.paradise.net>
Sockets "zombie" (=?iso-8859-1?Q?C=E9dric_Foll?=)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: unix `ps` <todd@designsouth.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 2 Jul 2001 08:52:28 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: anonymous subroutines - why?
Message-Id: <slrn9k0rkb.4rq.tadmc@tadmc26.august.net>
Mark Grimshaw <m.grimshaw@salford.ac.uk> wrote:
>I'm asking a general question on the usefulness of anonymous subroutines
>possibly combined with coderefs.
^^^^^^^^
That cannot be right.
If the subroutine has no name, then the only way to call it is
via a code reference. No "possibly" about it.
You _must_ have a coderef for anon subs, else you cannot call them.
>In the way I've used it, would, for
>example, calling the coderef many times be more efficient than calling a
>subroutine directly many times?
use Benchmark;
>i.e. what are the advantages to
>anonymous subroutines?
When you do not need/want a name for the subroutine.
A classic example is the first argument to File::Find::find().
It does not _need_ the sub's name, it just needs a sub to call
when it finds a file system object.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 02 Jul 2001 15:49:26 +0100
From: Mark Grimshaw <m.grimshaw@salford.ac.uk>
Subject: Re: anonymous subroutines - why?
Message-Id: <3B4089F6.6F3AF4EE@salford.ac.uk>
Benjamin Goldberg wrote:
>
> Mark Grimshaw wrote:
> >
> > nobull@mail.com wrote:
> > >
> > > Mark Grimshaw <m.grimshaw@salford.ac.uk> writes:
> > >
> > > > [...] I've got a simplified version just for test purposes
> > > > followed by a 'standard' example. Despite the fact that Ex 2
> > > > requires less typing, is there an advantage to using Ex 1 or am I
> > > > just being perverse for such a simple script?
> > >
> > > I must admit I'm a bit bemused by this. You appear to say you've
> > > taken a bit of code that uses anonymous subroutines and simplified
> > > it to the point where it does nothing usesful and is simply an
> > > example of how anonymous subroutines work. You then ask if there's
> > > any advantage in this code in using anonymous subroutines!? Well...
> > > if you didn't what would be it's function?
> > >
> >
> > (If I didn't supply an example (no matter how simple), I'd probably be
> > asked to supply the code.)
> > I'm asking a general question on the usefulness of anonymous
> > subroutines possibly combined with coderefs. In the way I've used it,
> > would, for example, calling the coderef many times be more efficient
> > than calling a subroutine directly many times? i.e. what are the
> > advantages to anonymous subroutines?
>
> The difference is not in efficiency, but in terms of readability and the
> fact that an anonymous sub doesn't go into any symbol table.
>
> Consider if you have a complicated function for find (from File::Find).
> Which is nicer looking:
> sub wanted {
> ....
> }
> @results = find( \&wanted, $path );
>
> Or:
> @results = find( sub {
> ....
> }, $path );
>
> Further, consider when you have a number of different find calls, with
> different subs... you can't name all the subs "wanted", can you?
>
> Lastly, when you need a closure, an anonymous sub is the best (only?)
> way.
A good clear answer - thanks.
------------------------------
Date: 02 Jul 2001 14:54:24 GMT
From: ctcgag@hotmail.com
Subject: Re: anonymous subroutines - why?
Message-Id: <20010702105424.117$lY@newsreader.com>
Mark Grimshaw <m.grimshaw@salford.ac.uk> wrote:
> I'm asking a general question on the usefulness of anonymous subroutines
> possibly combined with coderefs. In the way I've used it, would, for
> example, calling the coderef many times be more efficient than calling a
> subroutine directly many times? i.e. what are the advantages to
> anonymous subroutines?
A while ago, I wanted to do this:
do_something_1
do_common
do_something_2
do_common
do_something_3
do_common
do_something_4
do_common
do_something_5
do_common
do_something_6
do_common
coding do_common 6 times would be hard to debug and maintain. Making
it a regular subroutine would require that I pass data structures by
reference (and recode do_common to do a lot of derefencing). By making
do_common a coderef to an anonymous routine, I circumvented both of these.
(BTW, Thanks, Anno)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service
------------------------------
Date: Mon, 02 Jul 2001 15:21:31 +0100
From: Jim Lewis <jrl@ast.cam.ac.uk>
Subject: arrays in XS...
Message-Id: <3B40836B.1263E741@ast.cam.ac.uk>
Hi,
Consider the following:
a C subroutine...
extern int aaa(char *a[]) {
.
.
.
}
How do I write the interface .xs routine so that I can call this from
perl using:
$returnval = &aaa(\@array);
cheers, Jim
------------------------------
Date: 2 Jul 2001 14:43:32 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: check for file locking capabilities
Message-Id: <9hq1ak$pmr$1@mamenchi.zrz.TU-Berlin.DE>
According to Torsten Crass <torsten.crass@gbf.de>:
> Hi,
>
> does anyone know how one can determine if the operating system a script
> is runnung on supports file locking - without causing the program to
> die? (Specifically, I have a script which is supposed to run under
> Linux, WinNT and Win98, but since Win98 doesn't have flock implemented,
> the script should just skip the corresponding lines. Can't use $^O to
> see if the script is condemned to run under Win98 since $^O doesn't
> distinguish between the 32bit-Windowses...)
You can catch an flock() error in eval and check $@ for the characteristic
error message. This should work with an undefined variable for a
filehandle (untested), so you don't have to open a file just to check
for the existence of flock.
Anno
------------------------------
Date: 2 Jul 2001 14:51:56 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: check for file locking capabilities
Message-Id: <9hq1qc$r8p$2@bob.news.rcn.net>
Torsten Crass <tcr@gbf.de> wrote:
> does anyone know how one can determine if the operating system a script
> is runnung on supports file locking - without causing the program to
> die? (Specifically, I have a script which is supposed to run under
> Linux, WinNT and Win98, but since Win98 doesn't have flock implemented,
> the script should just skip the corresponding lines. Can't use $^O to
> see if the script is condemned to run under Win98 since $^O doesn't
> distinguish between the 32bit-Windowses...)
Use Perl's try-catch mechanism, namely the block form of eval (not to be
confused with the string form of eval).
------------------------------
Date: Mon, 02 Jul 2001 14:08:56 GMT
From: "Todd Smith" <todd@designsouth.net>
Subject: Re: chmod xxx > where to put the command?
Message-Id: <Yf%%6.30134$P5.8766361@news1.rdc1.tn.home.com>
"tost" <osttim@hotmail.com> wrote in message
news:B766154F.958B%osttim@hotmail.com...
> Hi,
>
> I'm not a real codeman, but I'm trying, I'm trying..
>
> I'm installing WWWBoard (Matt's) on a server, and something is not clear
to
> me about the read/write/execute command:
> I understand the idea of the chmod-command, but where exactly do I put it?
> In the .pl or .cgi-file? Just right on top?
>
> tnx for your time,
> tost
You don't put it anywhere, you type it in at the command line.
example:
ls -l index.cgi
-rw-rw-r-- 1 user group 138 Mar 16 11:40 index.cgi
chmod a+x index.cgi
ls -l index.cgi
-rwxrwxr-x 1 user group 138 Mar 16 11:40 index.cgi
------------------------------
Date: Mon, 2 Jul 2001 15:45:34 +0100
From: "alan@" <alan@headru.sh>
Subject: Re: chmod xxx > where to put the command?
Message-Id: <9hq190$agq$1@news5.svr.pol.co.uk>
tost <osttim@hotmail.com> wrote in message
news:B766154F.958B%osttim@hotmail.com...
> Hi,
>
> I'm not a real codeman, but I'm trying, I'm trying..
>
> I'm installing WWWBoard (Matt's) on a server, and something is not clear
to
> me about the read/write/execute command:
> I understand the idea of the chmod-command, but where exactly do I put it?
> In the .pl or .cgi-file? Just right on top?
>
> tnx for your time,
> tost
None of those places...
When you have uploaded the script, you (depending on FTP software) can right
click on the server side file and choose "change file attributes" (or a
variation of that) You will get a pop up and usually you can just enter 755
and then submit the change.
Alan
------------------------------
Date: Mon, 2 Jul 2001 09:02:31 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: chmod xxx > where to put the command?
Message-Id: <slrn9k0s77.4rq.tadmc@tadmc26.august.net>
tost <osttim@hotmail.com> wrote:
>
>I'm not a real codeman, but I'm trying, I'm trying..
>
>I'm installing WWWBoard (Matt's) on a server,
Using Matt Wright's code is a Very Bad Way of becoming a Real Programmer.
You are likely to become a Cargo Cult Programmer[1] instead...
Matt was not a Real Programmer when he wrote most of his "popular"
programs, and he does not maintain them. He was a teenager when
he wrote most of them.
Helping you use his code is doing you a disservice.
>and something is not clear to
>me about the read/write/execute command:
>I understand the idea of the chmod-command, but where exactly do I put it?
Wherever you need it :-)
>In the .pl or .cgi-file? Just right on top?
^^^ ^^^^
Those are not descriptive. They have no meaning. Some systems identify
files based on filename extensions, some systems don't. I don't know
what you are talking about. Sorry.
What permissions are needed in a CGI environment have nothing to
do with which programming language you have chosen to write your
CGI application in, so it is off-topic in a programming language
newsgroup.
Server setup questions should be asked in a CGI or web server newsgroup:
comp.infosystems.www.authoring.cgi
comp.infosystems.www.servers.mac
comp.infosystems.www.servers.misc
comp.infosystems.www.servers.ms-windows
comp.infosystems.www.servers.unix
[1] http://www.tuxedo.org/~esr/jargon/html/entry/cargo-cult-programming.html
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 2 Jul 2001 14:09:31 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Counting occurences of a character
Message-Id: <9hpvar$l2a$1@mamenchi.zrz.TU-Berlin.DE>
According to John W. Krahn <krahnj@acm.org>:
>
> while ( <DATA> ) {
> chomp;
> my $count = tr/,//;
> $_ .= ',' x ( 9 - $count ) if $count < 9;
> print "$_\n";
> }
The x operator returns an empty string for a non-positive right operand,
so the "if" isn't really necessary. Since the count is now only used
once, tr/// can go directly into the expression:
$_ .= ',' x ( 9 - tr/,// );
Anno
------------------------------
Date: 2 Jul 2001 14:47:47 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: Counting occurences of a character
Message-Id: <9hq1ij$r8p$1@bob.news.rcn.net>
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> According to John W. Krahn <krahnj@acm.org>:
>>
>> while ( <DATA> ) {
>> chomp;
>> my $count = tr/,//;
>> $_ .= ',' x ( 9 - $count ) if $count < 9;
>> print "$_\n";
>> }
> The x operator returns an empty string for a non-positive right operand,
> so the "if" isn't really necessary. Since the count is now only used
> once, tr/// can go directly into the expression:
> $_ .= ',' x ( 9 - tr/,// );
And why bother concatenating when print takes a list:
while ( <DATA> ) {
chomp;
print $_, ',' x (9-tr/,//), "\n";
}
------------------------------
Date: Mon, 02 Jul 2001 09:42:10 -0400
From: Joe Kline <jkline@one.net>
Subject: Re: FAQ 9.15: How do I decode a CGI form? newbie ?s
Message-Id: <3B407A32.B532A000@one.net>
Jason Goodrow wrote:
> Newbie with some non-flamewar questions -
>
> <SNIP>
> These are all issues I haven't been addressing and I'm sure are lurking
> to confuse the issue during some database breakdown. I'm going to
> re-read the RFCs but can anyone point me at more knowledge?
Don't the RFC's provide the foundation, i.e. what is expected? CGI.pm is one
implementation of those RFC's. Wouldn't it seem logical to walk through the
code to see how it addresses the issues raised in the FAQ and the outline
provided by the RFC?
------------------------------
Date: Mon, 2 Jul 2001 08:26:37 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: FAQ 9.15: How do I decode a CGI form? newbie ?s
Message-Id: <slrn9k0q3t.4rq.tadmc@tadmc26.august.net>
Jason Goodrow <@opencity.com> wrote:
>
>I've had trouble with CGI.pm and ended up rolling my own for instances
>where I didn't want to de-url-encode input.
>(programing for Macromedia Flash input / output)
>This FAQ has given me some (probably healthy) parinoia - a my beginners
>instinct says continue rolling my own rather than study CGI.pm to cover
>my code.
I don't follow. A beginner's instinct says to write your own function
rather than use an already written-reviewed-debugged function?
I would think that beginners would want to write less code, not more...
> You'll see a lot of CGI programs that blindly read from STDIN the
>number
> of bytes equal to CONTENT_LENGTH for POSTs, or grab QUERY_STRING for
>
> decoding GETs. These programs are very poorly written.
>
>Guilty as charged.
CGI.pm gets that right.
> They typically forget to check the return value of the read()
> system call, which is a cardinal sin.
>
>---any more info here?
read() might fail. You should test whether or not it did so that
you can take the appropriate action. The return value from read()
is how you detect failure.
CGI.pm gets that right.
>They don't handle HEAD requests.
>
>or here --- ?
CGI.pm gets that right.
> They don't handle multipart forms used for file uploads. They don't
>deal
> with GET/POST combinations where query fields are in more than one
> place. They don't deal with keywords in the query string.
>
>These are all issues I haven't been addressing and I'm sure are lurking
>to confuse the issue during some database breakdown. I'm going to
>re-read the RFCs but can anyone point me at more knowledge?
^^^^^^^^^^^^^^^^^^^^^^^^^^
CGI.pm gets those right. You have the source code for CGI.pm.
See how it does it :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 2 Jul 2001 15:13:06 +0100
From: "alan@" <alan@headru.sh>
Subject: Re: Grabbing a web page?
Message-Id: <9hpud0$qrv$1@news8.svr.pol.co.uk>
cmavroudis <costas@othermedia.com> wrote in message
news:48dc5908.0106220104.656193f7@posting.google.com...
> What is the best way for me to grab the source of a web page and put
> it into a single variable?
Why must it be a single variable ?
Do you mean scalar ?
I would do this:
open (INPUT,"<$terms.htm");
@Selector = <INPUT>;
close (INPUT);
where $terms is defined as whatever you want to read in.
Of course this only works with local files
Cheers
Alan
------------------------------
Date: Mon, 2 Jul 2001 15:36:31 +0100
From: "alan@" <alan@headru.sh>
Subject: Re: Need a start or direction for PERL Program (SMS Bulk Message)
Message-Id: <9hpvos$rtt$1@news8.svr.pol.co.uk>
Vlad <leeassoc@hotmail.com> wrote in message
news:5bd5b7e0.0106301700.342b4729@posting.google.com...
> I have seen, know how it works via sendmail or perl script to send SMS
> messages to cell phones.
Yes it can be done but you need certain environment variables relating to
the cell phone network provider. They don't give that away (in my
experience).
> I would like to read about it or buy a book but I am not sure if the
> stuff is in there....
>
You could get "Professional WAP" published by WROX (ISBN 1-861004-0-44)
That book includes a section on the subject and points out (as above), the
things you need to know.
> Anyone tried it might know about, or where to start...
I have temporarily got round it by using my cell phone providers e-mail to
sms service (free) and my script sends e-mail to the waphone e-mail address
which then gets forwarded by the network provider.
If you find a better way then please let me know.
Cheers
Alan
------------------------------
Date: 2 Jul 2001 07:55:06 -0700
From: sharda@hotmail.com (raj)
Subject: Re: New babies to Perl - FREE Documentation Require
Message-Id: <ac4b6b9a.0107020655.30a98484@posting.google.com>
check links at the following sites:
www.perl.com
www.perl.org
HTH
"Kelvin Wong" <kvwong@singnet.com.sg> wrote in message news:<9holud$437$1@dahlia.singnet.com.sg>...
> Greeting all,
>
> I'm a new babies in Perl Programming and does anyone know where can i get
> the FREE documentation of learning Perl Programming?
>
> Any suggested URL?
>
> Thanks a lot! I appreciate your help!
>
> Kelvin Wong
------------------------------
Date: Mon, 02 Jul 2001 13:06:40 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tk0sf03vla0pca@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 25 Jun 2001 14:32:44 GMT and ending at
02 Jul 2001 13:17:01 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: 123 (39.2% of all posters)
Articles: 194 (18.6% of all articles)
Volume generated: 319.4 kb (17.1% of total volume)
- headers: 147.0 kb (3,081 lines)
- bodies: 171.3 kb (6,306 lines)
- original: 123.5 kb (4,770 lines)
- signatures: 0.9 kb (32 lines)
Original Content Rating: 0.721
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 85 posters
s: 1.4 posts
Message size: 1685.8 bytes
- header: 775.7 bytes (15.9 lines)
- body: 904.2 bytes (32.5 lines)
- original: 651.9 bytes (24.6 lines)
- signature: 4.8 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
6 9.7 ( 4.8/ 4.8/ 3.1) TuNNe|ing <troll@gimptroll.com>
5 8.1 ( 4.1/ 4.0/ 2.1) Sergio Vidales <svidales@please.no.spam.usa.net>
5 6.5 ( 4.4/ 2.1/ 2.1) goodrow@opencity.com
5 8.5 ( 4.1/ 4.4/ 2.2) "Christopher Shannon" <cshannon@data2design.com>
4 4.9 ( 2.7/ 2.2/ 0.9) "Anthony" <hoa@nortelnetworks.com>
4 8.1 ( 3.0/ 5.2/ 4.6) Thomas Schulze-Velmede <tsv.werbung@web.de>
4 10.1 ( 3.0/ 7.2/ 3.8) "news.sohoskyway.com" <jestersi@metacrawler.com>
4 13.6 ( 3.1/ 10.5/ 1.7) howard@brazee.net
4 4.9 ( 3.2/ 1.7/ 0.6) Brian Pontz <pontz@NO_SPAMchannel1.com>
3 4.4 ( 2.6/ 1.8/ 1.4) "toreLG" <torelg@hotmail.com>
These posters accounted for 4.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
13.6 ( 3.1/ 10.5/ 1.7) 4 howard@brazee.net
11.9 ( 2.5/ 9.4/ 8.6) 3 "DetUudslukkelige" <nospam@notformail.com>
10.1 ( 3.0/ 7.2/ 3.8) 4 "news.sohoskyway.com" <jestersi@metacrawler.com>
9.7 ( 4.8/ 4.8/ 3.1) 6 TuNNe|ing <troll@gimptroll.com>
8.5 ( 4.1/ 4.4/ 2.2) 5 "Christopher Shannon" <cshannon@data2design.com>
8.1 ( 3.0/ 5.2/ 4.6) 4 Thomas Schulze-Velmede <tsv.werbung@web.de>
8.1 ( 4.1/ 4.0/ 2.1) 5 Sergio Vidales <svidales@please.no.spam.usa.net>
6.9 ( 1.6/ 5.3/ 4.3) 2 Anthony <adsouza@globix.net>
6.7 ( 2.3/ 4.4/ 2.0) 3 Darren Spidell <dspidell@mta.ca>
6.6 ( 1.4/ 5.1/ 2.1) 2 "Jim Melanson" <jim@perlservices.com>
These posters accounted for 4.8% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.1 / 2.1) 5 goodrow@opencity.com
1.000 ( 1.7 / 1.7) 3 les ander <les_ander@yahoo.com>
1.000 ( 0.5 / 0.5) 3 "Eugene" <e.broeren@food-express.nl>
0.916 ( 8.6 / 9.4) 3 "DetUudslukkelige" <nospam@notformail.com>
0.890 ( 4.6 / 5.2) 4 Thomas Schulze-Velmede <tsv.werbung@web.de>
0.841 ( 2.0 / 2.4) 3 "David Frauzel" <nogard@gnosrehtaew.ten>
0.759 ( 1.4 / 1.8) 3 "toreLG" <torelg@hotmail.com>
0.690 ( 0.6 / 0.9) 3 "Liu Hui" <liuhui@nortelnetworks.com>
0.650 ( 2.3 / 3.5) 3 ^CooL^ <cool133@hotmail.com>
0.637 ( 3.1 / 4.8) 6 TuNNe|ing <troll@gimptroll.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.637 ( 3.1 / 4.8) 6 TuNNe|ing <troll@gimptroll.com>
0.602 ( 1.7 / 2.8) 3 "felix" <mr.thanquol@gmx.de>
0.535 ( 0.7 / 1.3) 3 "Irfan Baig" <irfan@abstractedge.com>
0.524 ( 3.8 / 7.2) 4 "news.sohoskyway.com" <jestersi@metacrawler.com>
0.521 ( 2.1 / 4.0) 5 Sergio Vidales <svidales@please.no.spam.usa.net>
0.494 ( 2.2 / 4.4) 5 "Christopher Shannon" <cshannon@data2design.com>
0.455 ( 2.0 / 4.4) 3 Darren Spidell <dspidell@mta.ca>
0.390 ( 0.9 / 2.2) 4 "Anthony" <hoa@nortelnetworks.com>
0.368 ( 0.6 / 1.7) 4 Brian Pontz <pontz@NO_SPAMchannel1.com>
0.159 ( 1.7 / 10.5) 4 howard@brazee.net
19 posters (15%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
8 comp.lang.perl.modules
3 comp.unix.questions
2 alt.perl
2 comp.unix.shell
1 comp.lang.python
1 comp.text.xml
1 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
1 Roger Hsu <rogerhsu2001@yahoo.com>
1 John Savage <rookswood@suburbian.com.au>
1 Akira Yamanita <ayamanita.nospam@bigfoot.com>
1 okumura@cslab.kecl.ntt.co.jp
1 "John Stumbles" <john.stumbles@ntlworld.com>
1 Yehuda Berlinger <jon@actcom.co.il>
0 "rdlittle" <rlittle@graphikdimensions.com>
0 Bob Sprenger <sprenger@rahul.net>
0 Joonas Paalasmaa <joonas.paalasmaa@nokia.com>
0 JR <tommyumuc@aol.com>
------------------------------
Date: Mon, 02 Jul 2001 08:38:53 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: On The Brink....
Message-Id: <3B40796D.FC5FA5F3@home.com>
Cro wrote:
>
> My script ranks sites.
> Information is stored about each site on the list in a .dat
> file, including it's current position, name and URL.
> These 'member files' are stored in a directory called 'members'
> (named 1.dat, 2.dat 3.dat.....) where each site has it's own file.
If your script is going to rank a large number of sites, it's probably
better to *not* have a seperate file for each one, but to use a DBM
(database) file instead. That's another issue, though...
> Within a member's file;
> @data[3] = Current Position
> @data[4] = SiteName
> @data[5] = SiteURL
Don't use a slice when you want an element.
@data is an array.
$data[0] is the zeroth element in an array.
@data[0] is an array slice (consisting of one element).
Perl will often do the Right Thing for you, but it's better to say what
you mean.
> To overcome this problem I will need 6 new variables:
> $1SiteName - Stores Site Ranked First Name
> $1SiteURL - Stores Site Ranked First URL
> $2SiteName - Stores Site Ranked Second Name
> $2SiteURL - Stores Site Ranked Second URL
> $3SiteName - Stores Site Ranked Third Name
> $3SiteUR - Stores Site Ranked Third URL
Whenever you find yourself naming variables this way, think about using
an array, hash, or combination thereof:
#!/usr/bin/perl -w
use strict;
my @site;
while (my $line = <DATA>) {
chomp($line);
my ($name, $url) = split(/\s+/, $line);
push(@site, {name => $name, url => $url});
}
foreach my $i (0 .. $#site) {
print "Name: $site[$i]{name}\n";
print " URL: $site[$i]{url}\n";
}
__DATA__
Site1 URL1
Site2 URL2
Site3 URL3
(Note: That isn't quite the most perlish way of writing it; I'm going
for clarity, here.)
Read the perlref manpage -- it has lots of info on creating complex data
structures. Once you get your data in the right format, manipulating it
should become easy.
-mjc
------------------------------
Date: Mon, 2 Jul 2001 09:48:41 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: On The Brink....
Message-Id: <slrn9k0utp.4rq.tadmc@tadmc26.august.net>
Cro <cro@freeallangels.com> wrote:
>Subject: On The Brink....
Please put the subject of your article in the Subject of your article.
> I don't know where to turn - I can't sleep at night - Please feel my
>frustration!
You should start drinking heavily :-)
>My script ranks sites.
>Information is stored about each site on the list in a .dat file, including
>it's current position, name and URL.
>These 'member files' are stored in a directory called 'members' (named
>1.dat, 2.dat 3.dat.....) where each site has it's own file.
>I would like to print the names of the site ranked first, second and third.
Oh, so you want to "cite ranks" of the "ranked sites".
heh heh.
>Also, when these names are clicked upon I would like them to hyperlink to
>the appropriate site.
>
>Extra Information:
>Within a member's file;
>@data[3] = Current Position
>@data[4] = SiteName
>@data[5] = SiteURL
^
^ dollar sign, not at sign
You want a scalar, not a one-element array slice.
If you put that in real code and enable warnings (you should *always*
enable warnings when developing Perl code) perl will say what you
are doing wrong there.
>To overcome this problem I will need 6 new variables:
>$1SiteName - Stores Site Ranked First Name
>$1SiteURL - Stores Site Ranked First URL
>$2SiteName - Stores Site Ranked Second Name
>$2SiteURL - Stores Site Ranked Second URL
>$3SiteName - Stores Site Ranked Third Name
>$3SiteUR - Stores Site Ranked Third URL
Those are not legal variable names. User defined variable names
must start with a letter or underscore character.
>I am unfamiliar with the syntax so the following attempt at the solution is
>basically an algorithm.
>
>sub find_site_info {
>
>Open and read Member files
I will assume that @data is populated somehow here.
>Where @data[3]=1
>@data[4]=$1SiteName
>@data[5]=$1SiteURL
Eh? Do you have that backwards?
I thought you wanted to set the "new variables", which would require
that they be on the *left* side of the assignment operator:
if ( $data[3] == 1 ) {
$SiteName1 = $data[4];
$SiteURL1 = $data[5];
}
elsif ( $data[3] == 2 ) {
...
>How can I write the code in perl to perform the above algorithm?
You should ask how to accomplish what you want accomplished, rather
than specifying a particular algorithm. What if we know of a better
algorithm?
P.S. "counting numbers" in variable names often suggest that an
array would be a better choice of data structure than a
bunch individually named scalars.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 2 Jul 2001 15:52:03 +0100
From: "alan@" <alan@headru.sh>
Subject: Re: On The Brink....
Message-Id: <9hq1l5$arc$1@news5.svr.pol.co.uk>
Cro <cro@freeallangels.com> wrote in message
news:9hplfh$k0b$1@plutonium.btinternet.com...
> Hello Prospective help,
> I don't know where to turn - I can't sleep at night - >
> My script ranks sites.
> Information is stored about each site on the list in a .dat file,
including
> it's current position, name and URL.
> These 'member files' are stored in a directory called 'members' (named
> >
> Extra Information:
> Within a member's file;
> @data[3] = Current Position
> @data[4] = SiteName
> @data[5] = SiteURL
That is not how you reference an array
it should read
$data[1]
etc,etc
------------------------------
Date: 02 Jul 2001 15:03:54 GMT
From: ctcgag@hotmail.com
Subject: Re: Open or Die - is die the only choice?
Message-Id: <20010702110354.251$RO@newsreader.com>
Gary <gamtci@mpinet.net> wrote:
> Every book I have shows "open or die". Isn't there any other way
> to determine if the open succeeded? I have been checking for
> existence using if (-f $file) first, but I'd still rather know the
> open succeeded.
I like
open or feel_very_ill;
I often use
open or warn("blah blah blah") , next FILE;
(obviously with a FILE: label at the start of the loop)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service
------------------------------
Date: Mon, 2 Jul 2001 23:14:46 +1000
From: "Tintin" <somewhere@in.paradise.net>
Subject: Re: Query: PERL v.s. Perl ==> What's the difference???
Message-Id: <cu_%6.19$YS4.960638@news.interact.net.au>
"codeslayer" <weedmonster_99@yahoo.com> wrote in message
news:4b459565.0107012048.3522f728@posting.google.com...
> To Whoever Knows the Answer:
>
> I do not understand why so many of these posts where someone says
> "PERL", end up with some snyd comment to the effect of "its 'Perl' not
> 'PERL'". Firstly, that logic doesn't make sense. Acronyms are
> traditionally written with all capital letters.
Except Perl is not an acronym.
[snipped rest of post]
All is explained in the FAQ.
------------------------------
Date: Mon, 2 Jul 2001 14:03:25 +0000 (UTC)
From: cedric.foll@laposte.net (=?iso-8859-1?Q?C=E9dric_Foll?=)
Subject: Sockets "zombie"
Message-Id: <00ce01c10307$2ad1a000$1e01a8c0@locallexsi.com>
Hi,
I wrote this piece of code (in a loop)
----------------------------------------
do
{
$f=0;
$sock = new IO::Socket::INET(PeerAddr => '***************',
PeerPort => 'http',
Timeout => 1,
Type => SOCK_STREAM
) or $f=1;
$sock->autoflush(1) if( not $f);
sleep 1 if($f);
}
while($f);
my $request = "POST /......****************";
print $sock $request;
while (<$sock>)
{
print $_;
}
-------------------------------------------------------
The proble, is, after a moment, the prog stop and when I do a netstat, they
are only "ESTABLISHED" sockets.
What can I do, in order to close connection which are ESTABLISHED for a long
time ???
Regards.
--
Cédric Foll cedric.foll@laposte.net
élève ingénieur à l'INSA de Rouen
département génie mathématique
URL: http://gm.insa-rouen.fr/~follc
--
Posted from nposte14.axime.com [160.92.113.57]
via Mailgate.ORG Server - http://www.Mailgate.ORG
------------------------------
Date: Mon, 02 Jul 2001 13:06:38 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tk0seu3ccneuc9@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 25 Jun 2001 14:32:44 GMT and ending at
02 Jul 2001 13:17:01 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: 314
Articles: 1041 (410 with cutlined signatures)
Threads: 272
Volume generated: 1864.1 kb
- headers: 845.9 kb (16,676 lines)
- bodies: 961.1 kb (32,715 lines)
- original: 572.9 kb (21,497 lines)
- signatures: 56.0 kb (1,262 lines)
Original Content Rating: 0.596
Averages
========
Posts per poster: 3.3
median: 2.0 posts
mode: 1 post - 155 posters
s: 6.0 posts
Posts per thread: 3.8
median: 3.0 posts
mode: 1 post - 78 threads
s: 3.6 posts
Message size: 1833.7 bytes
- header: 832.1 bytes (16.0 lines)
- body: 945.4 bytes (31.4 lines)
- original: 563.6 bytes (20.7 lines)
- signature: 55.1 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
61 107.6 ( 45.5/ 62.1/ 29.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
34 68.5 ( 26.7/ 39.8/ 20.4) Benjamin Goldberg <goldbb2@earthlink.net>
33 64.8 ( 31.3/ 32.6/ 14.2) Ren Maddox <ren@tivoli.com>
26 45.7 ( 21.9/ 19.4/ 11.6) "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
24 37.4 ( 17.6/ 18.1/ 10.8) nobull@mail.com
23 51.9 ( 25.4/ 23.3/ 13.5) tadmc@augustmail.com
20 41.7 ( 19.6/ 22.1/ 11.9) Mark Grimshaw <m.grimshaw@salford.ac.uk>
18 32.7 ( 15.8/ 16.7/ 11.2) Bart Lateur <bart.lateur@skynet.be>
18 24.0 ( 10.1/ 11.0/ 5.1) Craig Berry <cberry@cinenet.net>
16 28.5 ( 14.2/ 9.5/ 4.0) Uri Guttman <uri@sysarch.com>
These posters accounted for 26.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
107.6 ( 45.5/ 62.1/ 29.4) 61 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
68.5 ( 26.7/ 39.8/ 20.4) 34 Benjamin Goldberg <goldbb2@earthlink.net>
64.8 ( 31.3/ 32.6/ 14.2) 33 Ren Maddox <ren@tivoli.com>
51.9 ( 25.4/ 23.3/ 13.5) 23 tadmc@augustmail.com
45.7 ( 21.9/ 19.4/ 11.6) 26 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
41.7 ( 19.6/ 22.1/ 11.9) 20 Mark Grimshaw <m.grimshaw@salford.ac.uk>
37.4 ( 17.6/ 18.1/ 10.8) 24 nobull@mail.com
32.7 ( 15.8/ 16.7/ 11.2) 18 Bart Lateur <bart.lateur@skynet.be>
31.2 ( 14.0/ 15.1/ 8.3) 12 Joe Schaefer <joe+usenet@sunstarsys.com>
29.8 ( 11.1/ 18.1/ 13.6) 13 "Godzilla!" <godzilla@stomp.stomp.tokyo>
These posters accounted for 27.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.1 / 2.1) 5 goodrow@opencity.com
1.000 ( 2.8 / 2.8) 5 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.935 ( 17.2 / 18.4) 6 Greg Bacon <gbacon@cs.uah.edu>
0.889 ( 5.8 / 6.5) 5 "Amittai Aviram" <amittai@amittai.com>
0.803 ( 2.9 / 3.7) 5 rich <nospam@newsranger.com>
0.752 ( 13.6 / 18.1) 13 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.716 ( 5.9 / 8.3) 6 "Rich" <bigrich318@yahoo.com>
0.713 ( 6.7 / 9.4) 9 "Alan J. Flavell" <flavell@mail.cern.ch>
0.706 ( 3.2 / 4.5) 7 "Aman Patel" <patelnavin@icenet.net>
0.673 ( 11.2 / 16.7) 18 Bart Lateur <bart.lateur@skynet.be>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.426 ( 3.6 / 8.4) 10 bernard.el-hagin@lido-tech.net
0.421 ( 4.0 / 9.5) 16 Uri Guttman <uri@sysarch.com>
0.412 ( 3.1 / 7.5) 7 Dave Hoover <redsquirreldesign@yahoo.com>
0.390 ( 5.7 / 14.5) 15 "John W. Krahn" <krahnj@acm.org>
0.340 ( 2.6 / 7.7) 9 isterin <isterin@hotmail.com>
0.332 ( 1.9 / 5.8) 5 Michael Budash <mbudash@sonic.net>
0.329 ( 3.4 / 10.4) 14 Tony L. Svanstrom <tony@svanstrom.com>
0.318 ( 3.7 / 11.6) 13 Buggs <buggs-clpm@splashground.de>
0.301 ( 0.4 / 1.3) 5 Christoph Neubauer <christoph.neubauer@siemens.at>
0.274 ( 1.1 / 4.0) 5 Jenda Krynicky <Jenda@Krynicky.cz>
55 posters (17%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
23 how to sort array of similar hashes by one of the hash keys?
20 Scanning a file in CGI
20 Merging two hash tables
15 Code Review Needed!
14 Overlapping regular expression results
14 puzzled over fork() doing something different to book example
14 passing variables the 'right' way
13 Perl *is* strongly typed (was Re: Perl description)
13 converting shell "sort" command to perl..
13 Create unique file in dir?
These threads accounted for 15.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
50.9 ( 17.5/ 31.3/ 18.6) 20 Scanning a file in CGI
38.3 ( 21.1/ 14.6/ 7.7) 23 how to sort array of similar hashes by one of the hash keys?
34.4 ( 18.6/ 14.2/ 6.8) 20 Merging two hash tables
32.2 ( 15.4/ 15.7/ 8.0) 13 Perl *is* strongly typed (was Re: Perl description)
30.2 ( 12.2/ 16.9/ 8.5) 15 Code Review Needed!
29.6 ( 12.6/ 16.3/ 11.2) 14 passing variables the 'right' way
29.6 ( 11.2/ 16.6/ 8.1) 13 converting shell "sort" command to perl..
28.4 ( 12.6/ 14.8/ 8.5) 14 puzzled over fork() doing something different to book example
26.1 ( 5.4/ 20.6/ 10.5) 7 Problem with Archive::Tar
26.0 ( 9.6/ 15.3/ 10.4) 12 cant modify $_[x] ????
These threads accounted for 17.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.848 ( 7.6/ 8.9) 8 Textarea to file
0.813 ( 12.6/ 15.5) 11 inline average
0.792 ( 4.3/ 5.5) 7 Open or Die - is die the only choice?
0.765 ( 2.4/ 3.2) 5 coding technique - how would you do this?
0.689 ( 3.8/ 5.5) 7 Upgrading a File Lock (What do you think this is, a Holiday Inn?)
0.686 ( 11.2/ 16.3) 14 passing variables the 'right' way
0.681 ( 10.4/ 15.3) 12 cant modify $_[x] ????
0.678 ( 1.6/ 2.4) 6 How to get env $HOME use perl
0.672 ( 5.1/ 7.6) 7 Basic Questions about Locking a DBM
0.669 ( 6.0/ 8.9) 8 Convert DD-MM-YYYY to age
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.446 ( 1.8 / 4.0) 7 Split without delimiter?
0.441 ( 3.6 / 8.2) 8 FAQ 9.15: How do I tell lies about decoding a CGI form?
0.431 ( 3.6 / 8.4) 6 regular expression problem
0.429 ( 1.5 / 3.5) 5 Perl-Mysql - inserting long fields
0.428 ( 2.2 / 5.2) 8 limiting cgi input from specific IP's
0.415 ( 3.8 / 9.1) 13 is there a way to look ahead/behind in a foreach (@l)?
0.413 ( 4.8 / 11.7) 13 Create unique file in dir?
0.402 ( 1.9 / 4.6) 7 Opening files on the Mac? (newbie)
0.388 ( 6.9 / 17.8) 9 Checking for duplicates before appending to file
0.288 ( 3.8 / 13.1) 5 Perl from VXML
76 threads (27%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
8 comp.lang.perl.modules
3 comp.unix.questions
2 alt.perl
2 comp.unix.shell
1 comp.lang.python
1 comp.text.xml
1 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
2 * Tong * <sun_tong@users.sourceforge.net>
2 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
1 John Savage <rookswood@suburbian.com.au>
1 Greg Bacon <gbacon@cs.uah.edu>
1 Akira Yamanita <ayamanita.nospam@bigfoot.com>
1 "Daniel Czajko" <czajko@ocas.on.ca>
1 Charles DeRykus <ced@bcstec.ca.boeing.com>
1 okumura@cslab.kecl.ntt.co.jp
1 Joe Smith <inwap@best.com>
1 Mark Grimshaw <m.grimshaw@salford.ac.uk>
------------------------------
Date: Mon, 02 Jul 2001 14:39:29 GMT
From: "Todd Smith" <todd@designsouth.net>
Subject: Re: unix `ps`
Message-Id: <BI%%6.30327$P5.8791687@news1.rdc1.tn.home.com>
"Juha Laiho" <Juha.Laiho@iki.fi> wrote in message
news:9hkd7b$kq3$1@ichaos.ichaos-int...
> "Mr. Sunray" <djberge@uswest.com> said:
> >Todd Smith wrote:
> >> My server was rooted today by some script-kiddie, and ls, ps, and du
were
> >> trojaned. Is there a way to list all the pids and process names with
perl,
> >> similar to the unix ps but without all the options?
>
> Todd;
>
> how can you tell it was only those? Probably there's more. Please take the
> system off-line, if you haven't yet done so; back up the valuable data you
> have there and re-install (and patch with up-to-date updates from your
> system vendor).
I know it's those because I found the rootkit that was installed. there were
files called LS, PS, and DU. I didn't see any others. The server's been
literally unplugged.
------------------------------
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 1230
***************************************
