[13697] in Perl-Users-Digest
Perl-Users Digest, Issue: 1107 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 18 11:05:38 1999
Date: Mon, 18 Oct 1999 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: <940259108-v9-i1107@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Oct 1999 Volume: 9 Number: 1107
Today's topics:
Re: .htaccess (Sam Holden)
Re: .htaccess <jjyooi@dcs.qmw.ac.uk>
Re: .htaccess (Sam Holden)
Re: .htaccess <jjyooi@dcs.qmw.ac.uk>
5.004_04 nastiness regarding regexes <jeffp@crusoe.net>
Re: @ARGV ---- Arrrrgggghhhh! :-) c_j_marshall@my-deja.com
Re: @ARGV ---- Arrrrgggghhhh! :-) (Sam Holden)
Re: @ARGV ---- Arrrrgggghhhh! :-) <csaba.raduly@sophos.com>
Baffled! (Bror Hellman)
Re: Baffled! <rhomberg@ife.ee.ethz.ch>
Re: Baffled! (Ken Hirsch)
Re: Baffled! (Greg Bacon)
Re: Baffled! <quint@granier.grenoble.xrce.xerox.com>
Re: can i make a cgi run it self <csaba.raduly@sophos.com>
Daemons and background processes. (PLEASE HELP!!) <da_rainman@mail.com>
Re: Daemons and background processes. (PLEASE HELP!!) (Sam Holden)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: newbie - counting data lines <ur@icem.de>
Re: newbie - error on "my" variable. (Tad McClellan)
Re: Oh god! Not another Net::ftp question! <t.dillerNOt.SPAM@xpres.com.invalid>
Passing values to and from File::Find <nmorison@ozemail.com.au>
Perl parser / brackets in C language sintes@my-deja.com
Re: Perl Programmer Wanted <u2orange@bigfoot.com>
Re: regexp-problem <andreas@vierengel.de>
Scalars with special characters c_j_marshall@my-deja.com
Re: Scalars with special characters (Sam Holden)
slow regexp (Hugh Denman)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Thanks Re: @ARGV ---- Arrrrgggghhhh! :-) <tturton@ntx.waymark.net>
variables on the right side of Reg Exp (Garrett Walker)
Where is Benchmark.pm? (Garrett Casey)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Oct 1999 12:21:18 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: .htaccess
Message-Id: <slrn80m45u.9sg.sholden@pgrad.cs.usyd.edu.au>
On Mon, 18 Oct 1999 12:32:15 +0100,
Johnny 'Loopy' Ooi <jjyooi@dcs.qmw.ac.uk> wrote:
>
>Which module do I use to manage my .htaccess file. I'm running Win95,
>not NT and most of the module I've found either require NT or are not
>installed yet. Can anyone help?
I would guess HTTPD::Access (is there a reason you can't do a search yourself,
or is your time just far more valuable then everyone elses?)
However, it's currently not on CPAN :
Module id = HTTPD::Access
DESCRIPTION Management of server access control files
CPAN_USERID LDS (Lincoln D. Stein <lstein@genome.wi.mit.edu>)
DSLI_STATUS cdpO (pre-alpha,developer,perl,object-oriented)
INST_FILE (not installed)
--
Sam
Just don't create a file called -rf. :-)
--Larry Wall
------------------------------
Date: Mon, 18 Oct 1999 13:24:28 +0100
From: Johnny 'Loopy' Ooi <jjyooi@dcs.qmw.ac.uk>
Subject: Re: .htaccess
Message-Id: <380B117C.9FFED8F0@dcs.qmw.ac.uk>
Sam Holden wrote:
>
> I would guess HTTPD::Access (is there a reason you can't do a search yourself,
> or is your time just far more valuable then everyone elses?)
Well I would, if I knew what to search _for_! ;-)
--
Johnny Ooi. Aliases: Loopy, Tuxedo Mask, Quote Master.....
E-Mail : jjyooi@dcs.qmw.ac.uk or jjyooi@yahoo.com
WWW : http://www.dcs.qmw.ac.uk/~jjyooi/
ICQ No : 6155774
"Stay sane guys!"
===============================================================
------------------------------
Date: 18 Oct 1999 12:46:21 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: .htaccess
Message-Id: <slrn80m5kt.bns.sholden@pgrad.cs.usyd.edu.au>
On Mon, 18 Oct 1999 13:24:28 +0100,
Johnny 'Loopy' Ooi <jjyooi@dcs.qmw.ac.uk> wrote:
>Sam Holden wrote:
>>
>> I would guess HTTPD::Access (is there a reason you can't do a search yourself,
>> or is your time just far more valuable then everyone elses?)
>
>Well I would, if I knew what to search _for_! ;-)
I searched for '.htaccess' which is pretty obvious, of course that
returned nothing. Then I searched for 'access'. That returned the module
above. You can search for yourself much more efficiently, since you actually
know what you are looking for...
--
Sam
About the only thing most people know about black holes is they are
black, and now we have stuffed that up
-- Dr Paul Francis (after reporting finding 'pink' holes)
------------------------------
Date: Mon, 18 Oct 1999 14:15:50 +0100
From: Johnny 'Loopy' Ooi <jjyooi@dcs.qmw.ac.uk>
Subject: Re: .htaccess
Message-Id: <380B1D86.7604A583@dcs.qmw.ac.uk>
Sam Holden wrote:
>
> I searched for '.htaccess' which is pretty obvious, of course that
> returned nothing. Then I searched for 'access'. That returned the module
> above. You can search for yourself much more efficiently, since you actually
> know what you are looking for...
I searched for various things, but I didn't think of searching for
"access" -- am I dumb or what?
--
Johnny Ooi. Aliases: Loopy, Tuxedo Mask, Quote Master.....
E-Mail : jjyooi@dcs.qmw.ac.uk or jjyooi@yahoo.com
WWW : http://www.dcs.qmw.ac.uk/~jjyooi/
ICQ No : 6155774
"Stay sane guys!"
===============================================================
------------------------------
Date: Mon, 18 Oct 1999 08:16:15 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: 5.004_04 nastiness regarding regexes
Message-Id: <Pine.GSO.4.10.9910180756080.14462-100000@crusoe.crusoe.net>
Look at this program:
perl -le '($a,$b,$c) = (1,/a/,2); print "$a,$b,$c"'
Under perl 5.004_04, this prints:
1,,2
Under perl 5.005_02, this prints:
1,2,
Let's see why.
perl 5.004_04's perlop docs state:
If used in a context that requires a list value, a
pattern match returns a list consisting of the
subexpressions matched by the parentheses in the
pattern, i.e., ($1, $2, $3...). (Note that here
$1 etc. are also set, and that this differs from
Perl 4's behavior.) If the match fails, a null
array is returned. If the match succeeds, but
there were no parentheses, a list value of (1) is
returned.
"A null array" is a pretty odd phrase. Does that mean (), or (undef), or
(0), or ("")? Well, it sure isn't ().
perl 5.005_02's perlop docs state:
If the /g option is not used, m// in a list context
returns a list consisting of the subexpressions
matched by the parentheses in the pattern, i.e.,
($1, $2, $3...). (Note that here $1 etc. are also
set, and that this differs from Perl 4's behavior.)
When there are no parentheses in the pattern, the
return value is the list (1) for success. With or
without parentheses, an empty list is returned upon
failure.
Ah. An EMPTY list makes much more sense, and there is very little (read:
no) ambiguity about it. Empty, meaning no elements. ().
Let's stroll through perldelta.
Hmm... not listed. Not even under "Incompatible changes", of which this
is definitely one.
Look at this:
print "matched!" if @a = /regex/;
In perl 5.004_04, that prints "matched!" regardless.
In perl 5.005_02, that prints "matched!" only if $_ =~ /regex/.
This is a poorly documented "feature", not a bug. As such, I see no
reason to send this to perlbug.
As a final piece of evidence, I offer perl -de0 output:
(perl 5.004_04)
DB<1> @a = /a/;
DB<2> x @a
0 ''
(perl 5.005_02)
DB<1> @a = /a/;
DB<2> x @a
empty array
Sigh.
--
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN
------------------------------
Date: Mon, 18 Oct 1999 12:55:01 GMT
From: c_j_marshall@my-deja.com
Subject: Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <7uf5b1$fho$1@nnrp1.deja.com>
Tom Turton <tturton@ntx.waymark.net> wrote:
> I "want" to feed wildcard character filenames in via @ARGV, but it is
> seeking out matches and passing matched filenames in @ARGV. Is there
> any way to override this feature short of having to put quotes around
Further to earlier answers of "this is a shell feature not a perl
feature" I'm struggling to think of an application where you would not
want the filenames expanded for you.
You're only going to have to do it later aren't you ?
And:
mv file1 file2 file3 /tmp
Works just as well as
mv file* /tmp
If I've correctly guessed what 'move_em.pl' does.
Oh and assuming that you're using Unix too :)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Oct 1999 13:18:18 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <slrn80m7gq.bns.sholden@pgrad.cs.usyd.edu.au>
On Mon, 18 Oct 1999 12:55:01 GMT, c_j_marshall@my-deja.com wrote:
> Tom Turton <tturton@ntx.waymark.net> wrote:
>> I "want" to feed wildcard character filenames in via @ARGV, but it is
>> seeking out matches and passing matched filenames in @ARGV. Is there
>> any way to override this feature short of having to put quotes around
>
>Further to earlier answers of "this is a shell feature not a perl
>feature" I'm struggling to think of an application where you would not
>want the filenames expanded for you.
Say the first argument to grep, those regexes tend get stuffed up when they
get expanded to file names. ;)
--
Sam
PC's are backwards ... throw them out! Linux is ok though.
--Rob Pike (on the subject of CR/LF etc)
------------------------------
Date: Mon, 18 Oct 1999 15:21:53 +0100
From: Csaba Raduly <csaba.raduly@sophos.com>
Subject: Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <380B2D01.F66577FE@sophos.com>
Alex Rhomberg wrote:
>
> Tom Turton wrote:
>
> > have files:
> > abc1.xxx abc2.xxx abc3.xxx abc4.xxx abc5.xxx
> >
> > want to make call to Perl script, move_em.pl:
> >
> > move_em.pl abc*.xxx def*.xxx
> >
> > My intention was to grab the strings "abc*.xxx" and "def*.xxx" from
> > @ARGV, but instead, @ARGV contains "abc1.xxx" "abc2.xxx" ....
> >
> > Thanks (and feel free to flame if I've completely overlooked something
> > which is intuitively obvious to the most semi-casual observer ;-)
>
> The obvious stuff is that the *shell* does this for you. To help all
> those scripts out, so they don't have to do wildcard replacement
> themselves.
Or if the shell doesn't do it, Perl does.
On OS/2, the standard command interpreter (cmd.exe)
does not expand wildcards (`echo.exe *` prints *), but
perl -w test.pl *
ends up with lots of arguments in @ARGV.
Too bad this doesn't happen on Win*&%$
[snip]
At least Tad McClellan protected himself by specifying that this
is the standard behaviour on Unix. Everybody else (whose posts
I've seen up till now on this thread) speaks as if Perl hadn't
been ported outside Unix :-)
Csaba
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1
GCS/>GMU d- s:- a30 C++$ UL+ P+>+++ L++ E- W+ N++ o? K? w++>$ O++$ M-
V- PS PE Y PGP- t+ 5 X++ R* tv++ b++ DI+++ D++ G- e+++ h-- r-- !y+
-----END GEEK CODE BLOCK-----
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
Life is complex, with real and imaginary parts.
------------------------------
Date: 18 Oct 1999 15:42:21 +0200
From: m8100@abc.se (Bror Hellman)
Subject: Baffled!
Message-Id: <7uf83t$b4o@atle.abc.se>
I wrote this program...
-- cut --
#!/usr/bin/perl
$incoming='lotus/lotus.html';
print "\n\nIncoming: <$incoming>\n";
@slask = split ('/', $incoming);
print "Slask after first split: <@slask>\n";
$incoming_name = pop(@slask);
print "Incoming Name: <$incoming_name>\n";
$local_path=join('/', @slask).'/';
print "Local path: <$local_path>\n";
@foobar = split('s', $incoming_name);
print "Split name on <s>: <@foobar>\n";
@barfoo = split('.',$incoming_name);
print "Split name on <.>: <@barfoo>\n";
$extension = pop(@foobar);
print "Extension (s): <$extension>\n";
$extension = pop(@barfoo);
print "Extension (.): <$extension>\n\n";
-- cut --
Why can I split on an 's' and a '/' but not at a '.'???
Yours:
Steamboat Willie
--
.
------------------------------
Date: Mon, 18 Oct 1999 16:17:14 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: Baffled!
Message-Id: <380B2BEA.A8F58BD2@ife.ee.ethz.ch>
Bror Hellman wrote:
>
> I wrote this program...
etc. etc.
> @foobar = split('s', $incoming_name);
> print "Split name on <s>: <@foobar>\n";
>
> @barfoo = split('.',$incoming_name);
> print "Split name on <.>: <@barfoo>\n";
> Why can I split on an 's' and a '/' but not at a '.'???
If you can really not split on the regular expression /./, meaning any
character, you probably have found a bug.
I still assume you didn't parse the doc of split correctly.
if you want to split on a literal period, do so: split /\./,
$incoming_name
- Alex
------------------------------
Date: Mon, 18 Oct 1999 10:19:27 -0400
From: kenhirsch@myself.com (Ken Hirsch)
Subject: Re: Baffled!
Message-Id: <MPG.1274f67ef04be254989680@news.compaq.net>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <7uf83t$b4o@atle.abc.se>, m8100@abc.se says...
> Why can I split on an 's' and a '/' but not at a '.'???
>
>
> Yours:
>
> Steamboat Willie
The first argument to split is a regular expression. Use '\.'
Ken Hirsch
------------------------------
Date: 18 Oct 1999 14:28:38 GMT
From: gbacon@ruby.itsc.uah.edu (Greg Bacon)
Subject: Re: Baffled!
Message-Id: <7ufaqm$40p$1@info2.uah.edu>
In article <7uf83t$b4o@atle.abc.se>,
m8100@abc.se (Bror Hellman) writes:
: Why can I split on an 's' and a '/' but not at a '.'???
Did you read the documentation on split() in the perlfunc manpage?
Greg
--
Would a fly without wings be called a walk?
-- George Carlin
------------------------------
Date: 18 Oct 1999 16:45:53 +0200
From: Julien Quint <quint@granier.grenoble.xrce.xerox.com>
Subject: Re: Baffled!
Message-Id: <thiu44d8wu.fsf@granier.grenoble.xrce.xerox.com>
m8100@abc.se (Bror Hellman) writes:
> Why can I split on an 's' and a '/' but not at a '.'???
Because '.' is a meta character in regular expressions so
you have to escape it. Try split(/\./, ...) instead.
Julien
------------------------------
Date: Mon, 18 Oct 1999 14:29:02 +0100
From: Csaba Raduly <csaba.raduly@sophos.com>
Subject: Re: can i make a cgi run it self
Message-Id: <380B209E.B34D2374@sophos.com>
"Alan J. Flavell" wrote:
>
> On Sat, 16 Oct 1999, Yuval Hamberg wrote:
>
> > Can I make a CGI script run let say at 11:55PM every night automatically?
>
> CGI is a programming interface between a web server and your program.
>
> CGI scripts neither run themselves, nor start at fixed points in time:
> they are started by a web server, which in turn is provoked by a
> WWW access.
>
> What you're looking for is not a CGI script, it's a cron script.
>
> And those don't run themself either; they are started by cron. How
> to set that up depends on what OS you run; it isn't a Perl language
> question either.
You can run (by whatever means necessary: cron, SysAgent,...)
the get script from the LWP library:
get http://yourserver.com/cgi-bin/yourcgi.cgi
This will have the added bonus that it makes your question
on-topic for this group. :-)
Csaba
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1
GCS/>GMU d- s:- a30 C++$ UL+ P+>+++ L++ E- W+ N++ o? K? w++>$ O++$ M-
V- PS PE Y PGP- t+ 5 X++ R* tv++ b++ DI+++ D++ G- e+++ h-- r-- !y+
-----END GEEK CODE BLOCK-----
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
Life is complex, with real and imaginary parts.
------------------------------
Date: Mon, 18 Oct 1999 01:08:53 +0200
From: "Rainman" <da_rainman@mail.com>
Subject: Daemons and background processes. (PLEASE HELP!!)
Message-Id: <380a576f@news.bezeqint.net>
Hi. i hope SOME1 can help me on this 1.
1st - can some1 explain to me what EXACTLY is a daemon on a unix server?
2) i need to run a program with changing variables ( from a browser, not
telnet or anything else. ) - i run it like that now -
script.cgi?action=go&user=3456 . the user section is changing.
now. this script takes around 10 minutes to run ( it has socket connection
to other servers... ) meaning, i get a time-out from my browser, whenever i
run the script. i need a way to run it in background, without getting a
timeout, and with a possibility to continue surfing with my browser.
3) i need a way to run a script 1nce a day, automaticly, 1nce again, in the
background, without disturbing me, or my site's users.
I do hope SOME! can help me out on this.
Raanan Weber.
------------------------------
Date: 18 Oct 1999 13:04:43 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Daemons and background processes. (PLEASE HELP!!)
Message-Id: <slrn80m6nb.bns.sholden@pgrad.cs.usyd.edu.au>
On Mon, 18 Oct 1999 01:08:53 +0200, Rainman <da_rainman@mail.com> wrote:
>Hi. i hope SOME1 can help me on this 1.
>
>1st - can some1 explain to me what EXACTLY is a daemon on a unix server?
The Jargon File has a reasonable definition.
http://www.tuxedo.org/~esr/jargon/html/entry/daemon.html
daemon /day'mn/ or /dee'mn/ n.
[from the mythological meaning, later rationalized as the acronym `Disk
And Execution MONitor'] A program that is not invoked explicitly, but
lies dormant waiting for some condition(s) to occur. The idea is that
the perpetrator of the condition need not be aware that a daemon is
lurking (though often a program will commit an action only because it
knows that it will implicitly invoke a daemon). For example, under ITS
writing a file on the LPT spooler's directory would invoke the spooling
daemon, which would then print the file. The advantage is that programs
wanting (in this example) files printed need neither compete for access
to nor understand any idiosyncrasies of the LPT. They simply enter
their implicit requests and let the daemon decide what to do with them.
Daemons are usually spawned automatically by the system, and may either
live forever or be regenerated at intervals.
Daemon and demon are often used interchangeably, but seem to have
distinct connotations. The term `daemon' was introduced to computing by
CTSS people (who pronounced it /dee'mon/) and used it to refer to what
ITS called a dragon. Although the meaning and the pronunciation have
drifted, we think this glossary reflects current (1999) usage.
>
>2) i need to run a program with changing variables ( from a browser, not
>telnet or anything else. ) - i run it like that now -
>script.cgi?action=go&user=3456 . the user section is changing.
>now. this script takes around 10 minutes to run ( it has socket connection
>to other servers... ) meaning, i get a time-out from my browser, whenever i
>run the script. i need a way to run it in background, without getting a
>timeout, and with a possibility to continue surfing with my browser.
Since you mention unix, you should lookup the nohup command. (man nohup)
>
>3) i need a way to run a script 1nce a day, automaticly, 1nce again, in the
>background, without disturbing me, or my site's users.
Lookup the crontab command and format. (man -a crontab)
Oops... no perl content... you should have probably asked this question in
a unix group. And I probably should not have answered here.
--
Sam
these days you're allowed to patent natural laws, and even other people's
genomes.
-- Tom Christiansen in <374b0ddd@cs.colorado.edu>
------------------------------
Date: 18 Oct 1999 14:01:03 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7uf96v$3k8$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 11 Oct 1999 14:53:46 GMT and ending at
18 Oct 1999 09:49:02 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) 1999 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: 255 (49.0% of all posters)
Articles: 414 (23.9% of all articles)
Volume generated: 741.9 kb (24.3% of total volume)
- headers: 312.8 kb (6,479 lines)
- bodies: 412.7 kb (13,982 lines)
- original: 314.3 kb (10,966 lines)
- signatures: 16.1 kb (345 lines)
Original Content Rating: 0.762
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 191 posters
s: 2.4 posts
Message size: 1835.2 bytes
- header: 773.7 bytes (15.6 lines)
- body: 1020.7 bytes (33.8 lines)
- original: 777.4 bytes (26.5 lines)
- signature: 39.8 bytes (0.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
31 48.5 ( 23.3/ 17.3/ 9.0) bmccoy@foiservices.com
19 32.5 ( 19.8/ 12.6/ 5.3) Brandon <pooka@cygnus.ucdavis.edu>
8 16.4 ( 7.2/ 6.9/ 4.5) Jason P Tribbeck <jtribbeck@argogroup.com>
7 14.8 ( 5.0/ 9.8/ 7.0) Scott Beck <scott_beck@my-deja.com>
6 7.8 ( 3.3/ 4.5/ 2.1) craig@free-inter.net
6 7.2 ( 4.0/ 3.1/ 3.1) "Sean Montgomery" <smontgomery@digitalblaze.net>
6 10.2 ( 4.6/ 5.6/ 4.0) "Craig Vincent" <webmaster@webdream.com>
5 9.1 ( 3.7/ 5.4/ 2.1) "Aaron Propst" <aaron@aaronpropst.com>
5 6.3 ( 3.9/ 2.0/ 1.6) Frank Hale <frankhale@trespass.net>
4 4.4 ( 3.2/ 1.2/ 1.2) Jim Garrison <jhg@acm.org>
These posters accounted for 5.6% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
48.5 ( 23.3/ 17.3/ 9.0) 31 bmccoy@foiservices.com
32.5 ( 19.8/ 12.6/ 5.3) 19 Brandon <pooka@cygnus.ucdavis.edu>
31.9 ( 0.8/ 31.1/ 31.1) 1 Ader.Marco@talkline.de
26.5 ( 1.1/ 25.4/ 24.9) 2 sp1d3rjd@yahoo.com (JD)
18.5 ( 3.3/ 15.2/ 11.4) 3 "Stuart Wright" <stuw@dial.pipex.yourpantscom>
16.4 ( 7.2/ 6.9/ 4.5) 8 Jason P Tribbeck <jtribbeck@argogroup.com>
14.8 ( 5.0/ 9.8/ 7.0) 7 Scott Beck <scott_beck@my-deja.com>
11.6 ( 1.7/ 9.6/ 9.2) 2 Justin Carr <justinc@thentec.com.au>
10.2 ( 4.6/ 5.6/ 4.0) 6 "Craig Vincent" <webmaster@webdream.com>
9.1 ( 3.7/ 5.4/ 2.1) 5 "Aaron Propst" <aaron@aaronpropst.com>
These posters accounted for 7.2% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 4 Jim Garrison <jhg@acm.org>
1.000 ( 0.7 / 0.7) 3 "Martin Elliott" <martin@mert.globalnet.co.uk>
1.000 ( 0.8 / 0.8) 3 nihilist@kenobiz.com (Max)
1.000 ( 3.1 / 3.1) 6 "Sean Montgomery" <smontgomery@digitalblaze.net>
0.924 ( 3.0 / 3.2) 3 jon@midnightbeach.com
0.861 ( 2.2 / 2.5) 3 stevesny@ibm.net
0.805 ( 2.7 / 3.4) 3 zeushao@my-deja.com
0.786 ( 1.6 / 2.0) 5 Frank Hale <frankhale@trespass.net>
0.749 ( 11.4 / 15.2) 3 "Stuart Wright" <stuw@dial.pipex.yourpantscom>
0.745 ( 2.2 / 2.9) 3 Ewald Wasscher <ewas@dds.nl>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.628 ( 2.2 / 3.5) 4 Lars Erik <l.e.kolden@hfstud.uio.no>
0.572 ( 2.6 / 4.5) 3 "Kevin Lund" <kevin.lund@iname.com>
0.518 ( 9.0 / 17.3) 31 bmccoy@foiservices.com
0.456 ( 2.1 / 4.5) 6 craig@free-inter.net
0.453 ( 0.9 / 2.1) 3 nospam@today.com (Gordon)
0.420 ( 5.3 / 12.6) 19 Brandon <pooka@cygnus.ucdavis.edu>
0.387 ( 2.1 / 5.4) 5 "Aaron Propst" <aaron@aaronpropst.com>
0.319 ( 0.8 / 2.5) 3 "simon" <simon@arial.freeserve.co.uk>
0.319 ( 1.9 / 6.1) 3 "RLD" <ps1715@earthlink.net>
0.312 ( 0.9 / 2.9) 3 "Dave Kaufman" <david@gigawatt.com>
27 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
16 jawolf@mediaone.net (James A. Wolf)
4 ddd <kjd@mj.dk>
4 "John" <mjh@me.com>
3 "RLD" <ps1715@earthlink.net>
3 "Craig Vincent" <webmaster@webdream.com>
3 bmccoy@foiservices.com
3 "Gizzzmo" <Gizzzmo@pandora.be>
3 "Sanders Kaufman" <Bucky@Kaufman.Net>
3 "Code" <code@ync.net>
3 "Gopi Balasingam" <gopib@home.com>
------------------------------
Date: Mon, 18 Oct 1999 15:43:49 +0200
From: Ulf Rompe <ur@icem.de>
Subject: Re: newbie - counting data lines
Message-Id: <380B2415.91683B51@icem.de>
Noira Hadi wrote:
>
> I try counting lines from a data file,
> [...]
> However, when I run the script the output is 'zero' for each line.
You declare @buf first, and then (after some time) read it out. It is
never filled with anything. Of course it's length is zero.
> while (<INF>)
> {
> chomp;
push @buf, $_;
>
> if (/MRR/)
> {
> my $length = @buf;
> print $length;
@buf = undef;
> }
> }
Maybe that does what you want. Maybe there are better ways...
[x] ulf
------------------------------
Date: Mon, 18 Oct 1999 03:34:24 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: newbie - error on "my" variable.
Message-Id: <0iieu7.sb9.ln@magna.metronet.com>
Noira Hadi (r42317@email.sps.mot.com) wrote:
: I was running a Perl script and encountered the message below. Need help
: to know the cause.
: "my" variable @data2 masks earlier declaration in same scope at ./test
: line 58.
All of the messages that perl might issue are documented
in the perldiag.pod man page.
For your's it says:
-------------------------
=item "my" variable %s masks earlier declaration in same scope
(W) A lexical variable has been redeclared in the same scope, effectively
eliminating all access to the previous instance. This is almost always
a typographical error. Note that the earlier variable will still exist
until the end of the scope or until all closure referents to it are
destroyed.
-------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 18 Oct 1999 06:11:51 -0700
From: Tim Diller <t.dillerNOt.SPAM@xpres.com.invalid>
Subject: Re: Oh god! Not another Net::ftp question!
Message-Id: <1415c574.c1df12f8@usw-ex0102-012.remarq.com>
In article <7ueu21$au9$1@nnrp1.deja.com>, Richard Lawrence
<ralawrence@my-deja.com> wrote:
> Q: This is great as long as I've actually found the site and been
> able
> to log in! Without resorting to Debug => 1 is there anyway I can
> test
> for the return of this connect, the "new" command and the "ls"
> command
> to see whether the site existed, whether I could log on and
> whether the
> file existed (I need to be able to distinguish between the three of
> them and act accordingly)
> Many thanks for any help
> Rich
> Sent via Deja.com http://www.deja.com/
> Before you buy.
From perldoc Net::FTP
METHODS
Unless otherwise stated all methods return either a true
or false value, with true meaning that the operation was a
success. When a method states that it returns a value,
failure will be returned as undef or an empty list.
Tim
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Tue, 19 Oct 1999 00:34:49 +1000
From: "Neale Morison" <nmorison@ozemail.com.au>
Subject: Passing values to and from File::Find
Message-Id: <2jGO3.14877$D33.41761@ozemail.com.au>
I'm using File:Find to construct arrays of files and directories. I'd like
avoid using global or main:: package variables for the arrays. Is there a
way to use 'my' variables declared in list_all, or return something from
list_all_proc? The File::Find documentation indicates you can pass the find
function a sub reference.
use strict;
use File::Find;
my @all_files=();
my @all_dirs=();
sub list_all
{
my $dir = "fred";
find \&list_all_proc, $dir;
}
sub list_all_proc {
my $curdir = $File::Find::dir;
my $file = $curdir.'/'.$_;
if (-f $_ ) {
push @all_files, $file;
} else {
push @all_dirs, $file;
}
}
--
Neale Morison
Wordface
Tel: 02 9555 8971 Fax: 02 9818 4257
Mobile: 0417 661 427
E-mail: mailto:nmorison@ozemail.com.au
Web: http://www.wordface.com.au
------------------------------
Date: Mon, 18 Oct 1999 12:20:30 GMT
From: sintes@my-deja.com
Subject: Perl parser / brackets in C language
Message-Id: <7uf3a8$e6a$1@nnrp1.deja.com>
I'm looking for a PERL script which allows to add a bracket
in all cases for the if,else,for instructions.
for instance
if(condition)
instruction
must be changed to
if(condition)
{
instruction
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 18 Oct 1999 12:43:55 GMT
From: Mat Tillett <u2orange@bigfoot.com>
Subject: Re: Perl Programmer Wanted
Message-Id: <380B17B4.FD25613A@bigfoot.com>
AIS wrote:
>
> Perl Programmer Wanted
>
> A.I.S. Web Development and Internet Solution is looking for a qualified
> Perl and PHP programmer to work on a contract base with our clients and
> with our company.
>
> You must be willing to:
>
> 1) Provide work directly to clients.
> 2) Communicate efficiently.
> 3) Finish projects on time and work under deadlines.
> 4) Have access to the Internet and a phone line.
> Blah...
Oh yes, I'm a monkey..! Give me more peanuts
------------------------------
Date: Mon, 18 Oct 1999 14:05:56 +0200
From: Andreas Vierengel <andreas@vierengel.de>
Subject: Re: regexp-problem
Message-Id: <07DD95F2322CA19B.73A0A27F8C8442EA.CCA27A069E6CCE7B@lp.airnews.net>
My own solution was:
$string = '123a45678aaa8990a98';
@matched = $string =~ /(a[^a]+?)(?=a)/cgos;
print "@matched\n";
prints:
a45678 a8990
=> ok
but this is not giving me the non-matches. I need matches AND non-matches in
separate arrays :-(
=>
123 aa a98
--Andi
------------------------------
Date: Mon, 18 Oct 1999 12:25:34 GMT
From: c_j_marshall@my-deja.com
Subject: Scalars with special characters
Message-Id: <7uf3jm$eg1$1@nnrp1.deja.com>
Hi,
I'm using perl with the CTlib module to access sybase. The SQL query is
passed in as a perl scalar variable and I am having trouble constructing
queries of any complexity without making the definition of scalar look
decidedly messy by covering it with escape characters.
Is there a better way of constructing a string containing special
characters in a 'pretty' way. I need to make my code as clear as
possible as I know it will be maintained by people with no Perl, Sybase
(or indeed Computing in general) knowledge.
e.g. my query is:
select dateadd(ss,M_TIME_CMP,M_DATE_CMP), M_DATE_SYS, M_COMMENT
from TRN_EODA_DBF
where M_DATE_SYS >=
(select max(M_DATE_SYS)
from TRN_EODA_DBF
where M_COMMENT like '%BO EOD%'
and M_START_END = 'START')
and (M_COMMENT like '%BO EOD%' or
M_COMMENT like '%Back-office%')
order by M_DATE_CMP, M_TIME_CMP
and the best format I've come up with so far is:
my $sql = "select dateadd\(ss\,M_TIME_CMP\,M_DATE_CMP\)\, M_DATE_SYS\,
M_COMMENT ";
$sql .= "from TRN_EODA_DBF ";
$sql .= "where M_DATE_SYS >= ";
$sql .= " \(select max\(M_DATE_SYS\) ";
$sql .= " from TRN_EODA_DBF ";
$sql .= " where M_COMMENT like \'\%BO EOD\%\' and M_START_END =
\'START\'\) ";
$sql .= " and \(M_COMMENT like \'\%BO EOD\%\' or M_COMMENT like
\'\%Back-office\%\'\) ";
$sql .= "order by M_DATE_CMP\, M_TIME_CMP";
Which is fairly hideous.
Cheers,
Chris
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Oct 1999 13:09:59 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Scalars with special characters
Message-Id: <slrn80m717.bns.sholden@pgrad.cs.usyd.edu.au>
On Mon, 18 Oct 1999 12:25:34 GMT, c_j_marshall@my-deja.com wrote:
>Hi,
>
>I'm using perl with the CTlib module to access sybase. The SQL query is
>passed in as a perl scalar variable and I am having trouble constructing
>queries of any complexity without making the definition of scalar look
>decidedly messy by covering it with escape characters.
>
>Is there a better way of constructing a string containing special
>characters in a 'pretty' way. I need to make my code as clear as
>possible as I know it will be maintained by people with no Perl, Sybase
>(or indeed Computing in general) knowledge.
>
>e.g. my query is:
>select dateadd(ss,M_TIME_CMP,M_DATE_CMP), M_DATE_SYS, M_COMMENT
>from TRN_EODA_DBF
>where M_DATE_SYS >=
> (select max(M_DATE_SYS)
> from TRN_EODA_DBF
> where M_COMMENT like '%BO EOD%'
> and M_START_END = 'START')
> and (M_COMMENT like '%BO EOD%' or
> M_COMMENT like '%Back-office%')
>order by M_DATE_CMP, M_TIME_CMP
>
>
>and the best format I've come up with so far is:
>
>my $sql = "select dateadd\(ss\,M_TIME_CMP\,M_DATE_CMP\)\, M_DATE_SYS\,
>M_COMMENT ";
> $sql .= "from TRN_EODA_DBF ";
> $sql .= "where M_DATE_SYS >= ";
> $sql .= " \(select max\(M_DATE_SYS\) ";
> $sql .= " from TRN_EODA_DBF ";
> $sql .= " where M_COMMENT like \'\%BO EOD\%\' and M_START_END =
>\'START\'\) ";
> $sql .= " and \(M_COMMENT like \'\%BO EOD\%\' or M_COMMENT like
>\'\%Back-office\%\'\) ";
> $sql .= "order by M_DATE_CMP\, M_TIME_CMP";
>
>Which is fairly hideous.
Yes it is... There is no need to have all those \s which just make it hard
to read. However, there is a much nicer solution.
Why not use a here document as so ....
my $sql = <<SQL;
select dateadd(ss,M_TIME_CMP,M_DATE_CMP), M_DATE_SYS, M_COMMENT
from TRN_EODA_DBF
where M_DATE_SYS >=
(select max(M_DATE_SYS)
from TRN_EODA_DBF
where M_COMMENT like '%BO EOD%'
and M_START_END = 'START')
and (M_COMMENT like '%BO EOD%' or
M_COMMENT like '%Back-office%')
order by M_DATE_CMP, M_TIME_CMP
SQL
There much nicer on the eyes, much nicer on the brain when you have to make
a change as well.
--
Sam
It has been discovered that C++ provides a remarkable facility for
concealing the trival details of a program--such as where its bugs are.
--David Keppel
------------------------------
Date: Mon, 18 Oct 1999 14:17:59 GMT
From: hd213@cam.ac.uk (Hugh Denman)
Subject: slow regexp
Message-Id: <380b28f2.313098151@nntp-serv.cam.ac.uk>
Hi,
I'm stripping html tags from a string, using Tom Christiansen's
striphtml
(http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/striphtml.gz).
In general it's great, and quite quick, and far cleverer than my
original $text =~ s/<[^>]*>//g; However, one html file takes
(comparitively) ages to crunch. The file contains the tag
<IMG SRC="various/cnrtext.gif" VALIGN="MIDDLE" WIDTH="178" HEIGHT="47"
VSPACE="0" HSPACE="0" BORDER="0" LOWSRC="various/cnrtextz.gif">
and if this tag is removed, the file zips through - though a file
containing the tag by itself doesn't slow things down. The regexp that
we're dealing with is
s{ < # opening angle bracket
(?: # Non-backreffing grouping paren
[^>'"] * # 0 or more things that are neither > nor ' nor "
| # or else
".*?" # a section between double quotes (stingy match)
| # or else
'.*?' # a section between single quotes (stingy match)
) + # repetire ad libitum
# hm.... are null tags <> legal? XXX
> # closing angle bracket
}{}gsx; # mutate into nada, nothing, and niente
If anyone has any suggestion as to why this tag slows things down so
much, I'd be very grateful.
many thanks,
Hugh Denman
------------------------------
Date: 18 Oct 1999 14:01:02 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7uf96u$3k8$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 11 Oct 1999 14:53:46 GMT and ending at
18 Oct 1999 09:49:02 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) 1999 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: 520
Articles: 1729 (780 with cutlined signatures)
Threads: 465
Volume generated: 3056.5 kb
- headers: 1363.5 kb (27,020 lines)
- bodies: 1548.4 kb (50,811 lines)
- original: 1055.1 kb (37,170 lines)
- signatures: 142.9 kb (3,009 lines)
Original Content Rating: 0.681
Averages
========
Posts per poster: 3.3
median: 1.0 post
mode: 1 post - 312 posters
s: 8.1 posts
Posts per thread: 3.7
median: 3 posts
mode: 2 posts - 112 threads
s: 3.9 posts
Message size: 1810.2 bytes
- header: 807.5 bytes (15.6 lines)
- body: 917.1 bytes (29.4 lines)
- original: 624.9 bytes (21.5 lines)
- signature: 84.6 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
84 212.3 ( 95.7/ 79.5/ 77.5) abigail@delanet.com
83 133.3 ( 64.6/ 58.7/ 26.2) Jonathan Stowe <gellyfish@gellyfish.com>
62 94.9 ( 38.9/ 48.9/ 26.0) lr@hpl.hp.com (Larry Rosler)
58 101.8 ( 56.1/ 38.5/ 26.1) Tom Phoenix <rootbeer@redcat.com>
40 78.5 ( 24.2/ 54.2/ 36.5) tadmc@metronet.com (Tad McClellan)
36 68.9 ( 27.8/ 34.1/ 20.6) mgjv@comdyn.com.au (Martien Verbruggen)
34 54.8 ( 21.4/ 27.0/ 15.3) cberry@cinenet.net (Craig Berry)
31 48.5 ( 23.3/ 17.3/ 9.0) bmccoy@foiservices.com
31 61.6 ( 27.1/ 25.2/ 11.7) Uri Guttman <uri@sysarch.com>
30 59.0 ( 22.8/ 30.0/ 18.9) kragen@dnaco.net (Kragen Sitaker)
These posters accounted for 28.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
212.3 ( 95.7/ 79.5/ 77.5) 84 abigail@delanet.com
133.3 ( 64.6/ 58.7/ 26.2) 83 Jonathan Stowe <gellyfish@gellyfish.com>
101.8 ( 56.1/ 38.5/ 26.1) 58 Tom Phoenix <rootbeer@redcat.com>
94.9 ( 38.9/ 48.9/ 26.0) 62 lr@hpl.hp.com (Larry Rosler)
78.5 ( 24.2/ 54.2/ 36.5) 40 tadmc@metronet.com (Tad McClellan)
68.9 ( 27.8/ 34.1/ 20.6) 36 mgjv@comdyn.com.au (Martien Verbruggen)
61.6 ( 27.1/ 25.2/ 11.7) 31 Uri Guttman <uri@sysarch.com>
59.0 ( 22.8/ 30.0/ 18.9) 30 kragen@dnaco.net (Kragen Sitaker)
54.8 ( 21.4/ 27.0/ 15.3) 34 cberry@cinenet.net (Craig Berry)
48.5 ( 23.3/ 17.3/ 9.0) 31 bmccoy@foiservices.com
These posters accounted for 29.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.8 / 2.8) 5 andrew-johnson@home.com
1.000 ( 3.1 / 3.1) 6 "Sean Montgomery" <smontgomery@digitalblaze.net>
0.975 ( 77.5 / 79.5) 84 abigail@delanet.com
0.880 ( 19.1 / 21.8) 10 Greg Bacon <gbacon@cs.uah.edu>
0.874 ( 4.9 / 5.6) 5 ghost24@bctek.com (Ghost)
0.786 ( 1.6 / 2.0) 5 Frank Hale <frankhale@trespass.net>
0.768 ( 1.6 / 2.0) 5 pete@theory2.phys.cwru.edu
0.755 ( 14.7 / 19.4) 18 Jeff Zucker <jeff@vpservices.com>
0.752 ( 6.8 / 9.0) 10 Ilya <ilya@speakeasy.org>
0.738 ( 10.8 / 14.7) 17 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.456 ( 2.1 / 4.5) 6 craig@free-inter.net
0.453 ( 1.6 / 3.4) 5 michel.dalle@usa.net (Michel Dalle)
0.447 ( 26.2 / 58.7) 83 Jonathan Stowe <gellyfish@gellyfish.com>
0.437 ( 3.2 / 7.4) 7 Bob Walton <bwalton@rochester.rr.com>
0.420 ( 5.3 / 12.6) 19 Brandon <pooka@cygnus.ucdavis.edu>
0.387 ( 2.1 / 5.4) 5 "Aaron Propst" <aaron@aaronpropst.com>
0.353 ( 4.1 / 11.7) 16 mbudash@sonic.net (Michael Budash)
0.348 ( 2.1 / 6.1) 6 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.276 ( 3.5 / 12.8) 9 efflandt@xnet.com
0.215 ( 1.7 / 7.8) 8 Mike Salter <msalter@bestweb.net>
65 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
46 Help with extracting a portion of a string
31 tr// question
28 Perl lite
17 nl Unix Command in Perl
15 How to resize a web browser
15 Uses of #
14 hide source
14 How do you parse a textarea as one line?
14 Is there an easy Perl equivalent to SSIs including some HTML ?
14 Where to find Perl scripts?
These threads accounted for 12.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
94.4 ( 45.5/ 42.1/ 27.7) 46 Help with extracting a portion of a string
55.0 ( 25.9/ 25.8/ 14.9) 28 Perl lite
53.1 ( 27.2/ 23.0/ 11.1) 31 tr// question
53.1 ( 15.1/ 37.0/ 22.4) 14 Is there an easy Perl equivalent to SSIs including some HTML ?
31.9 ( 0.8/ 31.1/ 31.1) 1 Antw: Deja.Com Daily Summary: comp.lang.perl.misc 1/1 (nicht
im Hause Talkline)
27.4 ( 15.1/ 10.0/ 6.8) 17 nl Unix Command in Perl
25.6 ( 13.2/ 9.8/ 6.0) 15 Uses of #
24.8 ( 11.8/ 12.4/ 7.2) 15 How to resize a web browser
24.4 ( 0.5/ 23.9/ 23.5) 1 problem with telnet.pl
22.9 ( 4.3/ 17.5/ 11.3) 6 SGML documentation
These threads accounted for 13.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.927 ( 1.4/ 1.5) 5 References to a list
0.909 ( 14.1/ 15.5) 7 Can a perl script output image?
0.892 ( 8.8/ 9.8) 6 CGI Form interaction question
0.862 ( 4.0/ 4.6) 9 Use Perl to Close File In Use on NT?
0.830 ( 2.8/ 3.3) 6 I need some Perl help
0.827 ( 4.7/ 5.7) 5 Need help getting all searched info to display...
0.796 ( 5.9/ 7.4) 6 Determining the connection speed to the Internet
0.796 ( 1.7/ 2.1) 6 choose a random key of a hash
0.785 ( 0.8/ 1.0) 6 help, im a perl dummy
0.784 ( 1.8/ 2.3) 8 Question: How do I get the length of a string in PERL?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.464 ( 1.9 / 4.2) 7 Passing unknown filenames as arguments to another program
0.458 ( 3.0 / 6.6) 8 Displaying 2 digits in time
0.455 ( 1.8 / 3.9) 7 Forcing Javascript to be on when a user uses a Perl script
0.449 ( 2.0 / 4.6) 7 hashes
0.445 ( 2.0 / 4.4) 8 Running Perl script locally on a win98 machine
0.418 ( 2.5 / 6.0) 7 Parsing file is skipping lines!!!
0.393 ( 1.8 / 4.7) 10 Time in $time
0.374 ( 1.9 / 5.0) 5 Using Net::Ping troubles
0.337 ( 2.9 / 8.5) 5 Connecting SQL Server from Perl
0.331 ( 2.9 / 8.8) 5 CSS / NETSCAPE -> Through PERL
109 threads (23%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
35 comp.lang.perl.modules
20 comp.lang.perl
15 comp.lang.perl.moderated
9 alt.perl
6 fr.comp.lang.perl
6 comp.lang.javascript
4 comp.infosystems.www.servers.unix
2 no.it.programmering.perl
2 tw.bbs.comp.lang.perl
2 alt.www.webmaster
Top 10 Crossposters
===================
Articles Address
-------- -------
16 jawolf@mediaone.net (James A. Wolf)
11 moun@usenix.org (Moun Chau)
6 Tom Phoenix <rootbeer@redcat.com>
5 Reinier Post <rp@win.tue.nl>
4 ddd <kjd@mj.dk>
4 "John" <mjh@me.com>
3 "RLD" <ps1715@earthlink.net>
3 "Gizzzmo" <Gizzzmo@pandora.be>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
3 "Craig Vincent" <webmaster@webdream.com>
------------------------------
Date: Mon, 18 Oct 1999 07:37:27 -0500
From: Tom Turton <tturton@ntx.waymark.net>
Subject: Thanks Re: @ARGV ---- Arrrrgggghhhh! :-)
Message-Id: <380B1487.FE34A3E3@ntx.waymark.net>
Jack,
Thanks much for your reply. As many others pointed out, which I didn't
realize, was that it was a shell problem. But identifying it as such
didn't help me get around my problem. I like your solution, and will
give it a try.
Appreciate the help!
---Tom
Jack Applin wrote:
>
> One way around it is to not use @ARGV, but rather read the stuff in yourself,
> like this:
>
> $ move_em.pl
> What do you want to move? abc*.xxx
> Where do you want to move them to? def*.xxx
>
> This way, the input doesn't pass through the shell, so wildcards
> don't get expanded. As far as the interactive user is concerned,
> it's the same number of keystrokes. I'd do it like this (untested):
>
> if (@ARGV==2) { # Two arguments given?
> ($from, $to) = @ARGV; # Let's hope they were quoted
> }
> elsif (@ARGV==0 && -t) { # No arguments given--get some.
> print "What do you want to move? ";
> $from = <>; # Should check for EOF
> print "Where do you want to move them to? ";
> $to = <>; # Should check for EOF
> }
> else {
> die "usage message\n";
> }
> -Jack Applin
> neutron@fc.hp.com
------------------------------
Date: 18 Oct 1999 10:38:15 -0400
From: cuz@remus.rutgers.edu (Garrett Walker)
Subject: variables on the right side of Reg Exp
Message-Id: <7ufbcn$csc$1@remus.rutgers.edu>
Greetings All,
I am trying to do the following (possibly bizarre?) thing: I want
to be able to specify the parameters for search and replace from the
command line. Such as:
./myprog -f foo -r bar
where within myprog I do something like:
$myvar =~ s/$opt_f/$opt_r/g;
Now, for the most part, this works well. But my life would be much
better if the following worked:
./myprog -f "([0-9])" -r "test\$1"
The match in $opt_f works - all single digits match. But I cannot
find a way to get the $1 to act as it should in the regex. Instead,
it just replaces all single digits with "test$1". I have poured
over the perlre and perlop man pages but with no help (It may have
been there and I missed it, though). Any suggestions? Is there
some other way to get this functionality that I am missing?
Thanks in advance
Garrett
------------------------------
Date: Mon, 18 Oct 1999 14:35:39 GMT
From: remove_this_prefix_adms1@cts.com (Garrett Casey)
Subject: Where is Benchmark.pm?
Message-Id: <380b2fcb.4807222@nntp.cts.com>
Where can I get the Benchmark module. I tried
http://www.perl.com/CPAN/modules/by-module/Benchmark/ and it is not
listed.
-Garrett Casey
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1107
**************************************
