[22603] in Perl-Users-Digest
Perl-Users Digest, Issue: 4824 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 7 09:05:59 2003
Date: Mon, 7 Apr 2003 06:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 7 Apr 2003 Volume: 10 Number: 4824
Today's topics:
Re: -d following symbolic links (Joe Smith)
Re: <script language=PerlScript> for Mozilla initiative <founder@pege.org>
Re: <script language=PerlScript> for Mozilla initiative (Anno Siegel)
Re: <script language=PerlScript> for Mozilla initiative (MegaZone)
Re: Addition in substitution (Anno Siegel)
gcc lib paths in makefiles <nibl@onlinehome.de>
Re: line sorting question (Joe Smith)
Re: looking for duplicates (C Marshall)
Re: looking for duplicates <tassilo.parseval@rwth-aachen.de>
Re: maps and regexs (Anno Siegel)
Re: Multiple POSTS and GETS from one perl script (Joe Smith)
Re: NEWBIE best linux for perl? <richard@zync.co.uk>
Re: NEWBIE best linux for perl? <ian@WINDOZEdigiserv.net>
Re: open fails with filename starting with space (Villy Kruse)
Re: Perl module builder (Anno Siegel)
Re: regular expression problem <abigail@abigail.nl>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: This script won't work for me...why!? (Helgi Briem)
using $vars in regex - problems with $1, etc. <pfeiffer@iu-bremen.de>
Re: using $vars in regex - problems with $1, etc. <NoSpamPleaseButThisIsValid2@gmx.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 07 Apr 2003 08:58:24 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: -d following symbolic links
Message-Id: <Q4bka.7340$io.275798@iad-read.news.verio.net>
In article <slrnb8hk4u.rff.bmetcalf@cash.rhiamet.com>,
Brandon Metcalf <bmetcalf@nortelnetworks.com> wrote:
>Is there anyway to tell the file test operators such as -d to not
>follow symbolic links? For example,
>
>So, it in order to determine if something is a real directory and not
>a symbolic link I would have to do something like
>
> (-d $somedir && ! -l $somedir)
Yep, but not in that order. Must test for symlink first.
if (-l $somedir) { # Do an implied lstat()
if (-d $somedir) { # Force a stat() to check what it points to
print "$somedir is a symlink to a directory\n";
} else {
print "$somedir is a symlink\n";
}
} elsif (-d _) { # OK to continue using results of lstat()
print "$somedir is a directory\n";
} else {
print "$somedir is not a directory\n";
}
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Mon, 7 Apr 2003 08:12:19 +0200
From: =?iso-8859-1?Q?Roland_M=F6sl?= <founder@pege.org>
Subject: Re: <script language=PerlScript> for Mozilla initiative
Message-Id: <3e9138c8$0$25326$91cee783@newsreader01.highway.telekom.at>
> > JavaScript can not write to files
>
> Server side JavaScript can.
Ever heared, that it's an advantage when there is not the
long client server communication cycle?
This is for software development on the own computer
--
Roland Mösl
http://www.pege.org Clear targets for a confused civilization
http://web-design-suite.com Web Design starts at the search engine
------------------------------
Date: 7 Apr 2003 09:56:25 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: <script language=PerlScript> for Mozilla initiative
Message-Id: <b6ri09$en9$2@mamenchi.zrz.TU-Berlin.DE>
David Dorward <dorward@yahoo.com> wrote in comp.lang.perl.misc:
> Jürgen Exner wrote:
>> Roland Mösl <founder@pege.org> wrote:
[...]
> >> I think You better learn the possibilities of HTML before posting here
> >
> > Why would you need to know HTML to post to a Perl NG?
>
> He could have been referring to netscape.public.mozilla.layout, it was a
> cross posted message without followups set.
Quite. Crossposted by the very same poster who complained.
Anno
------------------------------
Date: 7 Apr 2003 11:14:38 GMT
From: usenet@megazone.org (MegaZone)
Subject: Re: <script language=PerlScript> for Mozilla initiative
Message-Id: <megazone.1049714077@sidehack.sat.gweep.net>
=?iso-8859-1?Q?Roland_M=F6sl?= <founder@pege.org> shaped the electrons to say:
>JavaScript can not write to files
I honestly don't know, primarily because I haven't cared, but is the
concept of 'signed scripts' still out there? You used to be able to
have JavaScript to more in Netscape if signed scripts were used and
the user granted permissions.
*tappity tap*
Well, it looks like signed scripts exist in Mozilla too.
http://www.mozilla.org/projects/security/components/jssec.html
A little Googling shows that it is possible to read/write local files
with a signed Java applet, which can be a simple object called from
JavaScript doing most of the work. The Java just doing the I/O.
I wasn't able to determine if file I/O is possible natively from
signed JavaScript, but then I didn't feel like spending a lot of time
on this either since I have work to do. The point is this appears to
be resolvable using cross-browser tools like Java and JavaScript
today. I did notice one of the privileges is:
UniversalXPConnect Unrestricted access to browser APIs using XPConnect
Isn't XPConnect where local file I/O is done?
-MZ, CISSP #3762, RHCE #806199299900541
--
<URL:mailto:megazone@megazone.org> Gweep, Discordian, Author, Engineer, me..
"A little nonsense now and then, is relished by the wisest men" 508-755-4098
<URL:http://www.megazone.org/> <URL:http://www.eyrie-productions.com/> Eris
------------------------------
Date: 7 Apr 2003 10:46:41 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Addition in substitution
Message-Id: <b6rkuh$en9$4@mamenchi.zrz.TU-Berlin.DE>
Philip Lees <pjlees@ics.forthcomingevents.gr> wrote in comp.lang.perl.misc:
> On Sat, 05 Apr 2003 20:03:36 GMT, "Blakis" <brflaming@yahoo.com>
> wrote:
>
> >I'm trying to update the version number in a bunch of Java files using
> >Perl. The Java files all have a line similar to the following:
> >
> > * @version 1.0.4
> >
> >I want my Perl script to increment the last number by one.
>
> I was wondering whether Perl could do this automagically, but it seems
> that while
>
> my $var = 'version104';
> $var++;
> print "$var\n";
>
> does what I would expect (i.e. print version105),
>
> my $var = 'version_104';
> $var++;
> print "$var\n";
>
> or other more complex variations, do not. Could somebody please
> explain why?
The perlop document explains this (look for "++"). In short, magic
string incrementation only happens to strings matching
/^[a-zA-Z]*[0-9]*\z/.
Anno
------------------------------
Date: Mon, 07 Apr 2003 14:22:04 +0200
From: nibl <nibl@onlinehome.de>
Subject: gcc lib paths in makefiles
Message-Id: <c4r29vccuar5on4cqqfjaq4ohr0ihnu6sl@4ax.com>
How do you supply lib paths to gcc via Perl makefiles?
I'm trying to compile some Perl modules on a Zaurus PDA (Embedix). gcc
is on Compact Flash card with a non-standard path (not in /opt or
/usr). Environment vars have not helped sofar.
Thanks,
Marcus
------------------------------
Date: Mon, 07 Apr 2003 08:30:44 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: line sorting question
Message-Id: <UGaka.7339$io.275798@iad-read.news.verio.net>
In article <3E8E1D4D.A8A3AB10@boeing.com>,
Michael P. Broida <michael.p.broida@boeing.com> wrote:
>> How is that different from regular alphabetical sorting?
>
> From his/her example, the first "field" can be of varying length.
> See the part about "VADA..." and "BAT...". So we need to assume
> that a long first field in one record could use some of the same
> columns as the second field in another record. In that case, you
> can't just alphabetically sort the whole line.
Yes, you can. That is, assuming that the sort() function on your
machine collates the space character before all alphabetic characters.
Using some characters in the second field is irrelevent.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: 7 Apr 2003 02:15:01 -0700
From: c_j_marshall@hotmail.com (C Marshall)
Subject: Re: looking for duplicates
Message-Id: <cb9c7b76.0304070115.9e071dd@posting.google.com>
"James E Keenan" <jkeen@concentric.net> wrote in message
> > I prefer shorter code like:
> >
> > my %seen;
> > while( <DATA> ) {
> > ++$_ for @seen{/\d+/g};
> > }
> >
> Interesting. Why '++$_' rather than '$_++'?
>
my guess is that it is to follow the array positions i.e. to make sure
that the first element seen is still at position "0" and not "1".
------------------------------
Date: 7 Apr 2003 09:26:07 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: looking for duplicates
Message-Id: <b6rg7f$er2$1@nets3.rz.RWTH-Aachen.DE>
Also sprach C Marshall:
> "James E Keenan" <jkeen@concentric.net> wrote in message
>> > I prefer shorter code like:
>> >
>> > my %seen;
>> > while( <DATA> ) {
>> > ++$_ for @seen{/\d+/g};
>> > }
>> >
>> Interesting. Why '++$_' rather than '$_++'?
>>
>
> my guess is that it is to follow the array positions i.e. to make sure
> that the first element seen is still at position "0" and not "1".
But there is no array in the above code. It's a hash-slice of %seen
whose values are incremented. For the above code, it is irrelevant
whether to use post- or preincrement.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 7 Apr 2003 09:26:33 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: maps and regexs
Message-Id: <b6rg89$en9$1@mamenchi.zrz.TU-Berlin.DE>
Tad McClellan <tadmc@augustmail.com> wrote in comp.lang.perl.misc:
> Tony McNulty <acm2@ukc.ac.uk> wrote:
>
> > I have a string as such: "thisismystring" and want to analyse the letters
> > in sets of threes. I'm also learning more about maps and regexs too at the
> > moment, and wanted to do this using either of the two.
>
>
> > I'm just looking for a pointer really as
> > to how I can go about this using either a map, or a regex.
>
>
> foreach my $str3 ( map substr($string, $_, 3), 0..length($string)-3 ) {
...and here is one using a regex:
foreach my $str3 ( $string =~ /(?=(...))/g ) {
Anno
------------------------------
Date: Mon, 07 Apr 2003 09:55:10 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Multiple POSTS and GETS from one perl script
Message-Id: <2Wbka.7341$io.275770@iad-read.news.verio.net>
In article <tsnf8v82kjkrf3p74238i4vmgq9dptjpgc@4ax.com>,
>Script A takes infromation from a user, and passes this infromation to
>a script B that enters the information into a database, however the
>user never sees script B as script A continues to run having posted
>the users data to script B and once finished forwards the user to
>script C that simply confirms what has happened.
>
>If the database activity was positioned on script C there would be a
>possiblility of clever users skipping script A.
Let me see if I understand your task.
1) User uses a browser to invoke script A on host AA.
2) Script A uses CGI.pm to parse the incoming data.
2a) Some sort of authentication and/or validity checking is done.
3) Script A uses LWP.pm to send a POST request to script B on server BB.
3a) Script B *MUST* do some sort of validity checking of its own.
4) Script A waits patiently for the database transaction to complete.
5) After a successful POST, script A either
5a) uses the data coming back from the POST to build a response or
5b) redirects the browser to script C to generate a response.
5c) Script A responds with an error message if the POST failed.
or if you want to skip step 4, then
3) Script A sends a redirect to the browser and closes the connection.
3a) Browser goes to script C. Possibly before the next step completes.
4) Script A continues running, sending POST to script B on server BB.
5) After the POST completes, sucessful or not, script A is done.
6) User is not sure the database actually got updated.
If server BB is the same as server AA, then
3) Script A creates suitable command-line arguments.
4) Script A executes a non-CGI program B using `` or system(@args)
or system("$dir/B @args </dev/null >/dev/null 2>/dev/null &").
Program B is not under DOCUMENT_ROOT and therefore cannot be
invoked by a browser.
5) If "&" was used on system(), then script A runs in parallel with
program B. Otherwise, script A will be blocked until B is done.
6) Script A sends a response or a redirect back to the browser.
Script A can terminate before program B is done, as long
as program B has its own STDIN, STDOUT and STDERR.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Mon, 07 Apr 2003 11:31:33 +0100
From: "Richard Gration" <richard@zync.co.uk>
Subject: Re: NEWBIE best linux for perl?
Message-Id: <20030407.113130.1857962504.22584@richg.zync>
In article <b6mg2c$9sh$1@reader2.panix.com>, "Jason Goodrow"
<"goodrow"@opencity. com> wrote:
> Hey NG -
> I intend to install linux on a box mainly to run perl. What's the most
> perl/CPAN friendly distro? I know beginner Unix but don't mind getting
> my hands dirty, and perl is my top (only?) priority. This is for fun,
> not $ Thanks in adv
> goodrow@panix.com
>
As far as Linux goes, I _highly_ recommend using one of the distros which
looks after you a bit, which is to say RedHat, SuSe or Mandrake.
RedHat gets a lot of flak, some of it deserved, but at the end of the
day an out-of-the-box installation of RedHat leaves your machine with
lots of working services. Some of them may not be set up in the best way,
or the way your brain works, but they do work. After 3 years of running
RH (From 5.2 up to 7.1) I started using Debian, and I'm glad I didn't
start running it 3 years ago!
On a final note, whichever distro you choose, linuxconf is the work of
the devil and should be disabled at your earliest opportunity :-)
Rick
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Mon, 07 Apr 2003 10:40:42 GMT
From: "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
Subject: Re: NEWBIE best linux for perl?
Message-Id: <r9l29v8bdt6nn3ctku4i5e8tj9r4lqlrkp@4ax.com>
Keywords: Remove WINDOZE to reply
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In a fit of excitement on Mon, 07 Apr 2003 11:31:33 +0100, "Richard
Gration" <richard@zync.co.uk> managed to scribble:
> As far as Linux goes, I _highly_ recommend using one of the distros
> which looks after you a bit, which is to say RedHat, SuSe or
> Mandrake.
Different ways of seeing it I guess.
If a majority is done for you, you'll never learn how to do it
yourself for a real OS.
I started with FreeBSD ( www.freebsd.org ) and never looked back =)
Regards,
Ian
-----BEGIN xxx SIGNATURE-----
Version: PGP 8.0
iQA/AwUBPpFVmmfqtj251CDhEQKAMgCcD9E+T8XrFhOEMTTw1kswccxZ29cAnRDh
XllRPxbJsyr9CtOVFO4agmyN
=tDAD
-----END PGP SIGNATURE-----
--
Ian.H [Design & Development]
digiServ Network - Web solutions
www.digiserv.net | irc.digiserv.net | forum.digiserv.net
Scripting, Web design, development & hosting.
------------------------------
Date: 07 Apr 2003 12:02:46 GMT
From: vek@station02.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: open fails with filename starting with space
Message-Id: <slrnb92q77.kc3.vek@station02.ohout.pharmapartners.nl>
On Sat, 05 Apr 2003 21:01:25 -0500,
Benjamin Goldberg <goldbb2@earthlink.net> wrote:
>
>I don't know whether perl's glob supports it, but using "**" instead of
>"*" means, for many shells, traverse as many directory levels as
>necessary.
>
>
Name one, please.
Villy
------------------------------
Date: 7 Apr 2003 10:21:34 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Perl module builder
Message-Id: <b6rjfe$en9$3@mamenchi.zrz.TU-Berlin.DE>
* Tong * <sun_tong@users.sourceforge.net> wrote in comp.lang.perl.misc:
> Hi,
>
> I know that I can use h2xs to create a first blue print of my Perl
> module. My consideration is those user configurable variables,
> init/set/get them are pretty the same for every variable.
>
> So I'm wondering if there has already been a tools out there that
> does that for me, ie, populate the script with user configurable
> variables init/set/get, etc.
I'm not sure what you mean with the init/get/set variables. Try
ExtUtils::ModuleMaker.
Anno
------------------------------
Date: 07 Apr 2003 08:41:29 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regular expression problem
Message-Id: <slrnb92edp.kmg.abigail@alexandra.abigail.nl>
Rong (m9l3@interchange.ubc.ca) wrote on MMMDVI September MCMXCIII in
<URL:news:1049688569.769487@texada.ugrad.cs.ubc.ca>:
-- Suppose a scalar $str contains:
-- <comment begin>
-- <1><2>
-- <comment end>
-- Hello
-- <comment begin>
-- <3><4>
-- <comment end>
-- <comment begin>
-- <1><2>
-- <comment end>
--
-- Can anybody come up with a regular expression that can replace ONLY first
-- <comment begin>
-- <1><2>
-- <comment end>
-- block with space?
-- The regular expression I currently get will replace all 3 block. It seems
-- that
-- regular expression will try to match as much string as possible.
s/<comment begin>\n<1>\n<2>\n<comment end>/ /;
Or perhaps you want:
s/<comment begin>[^<]*(?:<(?!comment end>)[^<]*)*<comment end>/ /;
or:
s/<comment begin>.*?<comment end>/ /;
Abigail
--
BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12}
"Just "; "another "; "Perl "; "Hacker\n";
------------------------------
Date: Mon, 07 Apr 2003 10:54:48 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <v92m7o439qck8d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 31 Mar 2003 11:14:50 GMT and ending at
07 Apr 2003 14:33:06 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) 2003 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
comdog\@panix\.com
Totals
======
Posters: 253
Articles: 736 (318 with cutlined signatures)
Threads: 188
Volume generated: 1392.8 kb
- headers: 637.0 kb (12,106 lines)
- bodies: 715.8 kb (23,928 lines)
- original: 435.8 kb (15,730 lines)
- signatures: 39.4 kb (1,011 lines)
Original Content Rating: 0.609
Averages
========
Posts per poster: 2.9
median: 2 posts
mode: 1 post - 122 posters
s: 14.8 posts
Posts per thread: 3.9
median: 3.0 posts
mode: 2 posts - 49 threads
s: 4.3 posts
Message size: 1937.8 bytes
- header: 886.2 bytes (16.4 lines)
- body: 995.8 bytes (32.5 lines)
- original: 606.4 bytes (21.4 lines)
- signature: 54.8 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
47 98.0 ( 39.2/ 51.1/ 24.1) Benjamin Goldberg <goldbb2@earthlink.net>
22 59.4 ( 20.9/ 33.4/ 17.7) tassilo.parseval@post.rwth-aachen.de
21 73.8 ( 23.4/ 47.7/ 38.9) tadmc@augustmail.com
18 29.1 ( 17.0/ 12.0/ 7.2) Steve Grazzini <grazz@nyc.rr.com>
17 30.7 ( 18.4/ 11.2/ 6.8) "Tore Aursand" <tore@aursand.no>
17 26.4 ( 12.2/ 14.0/ 5.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
16 25.8 ( 12.0/ 13.8/ 7.5) "Sisyphus" <kalinabears@hdc.com.au>
16 21.4 ( 14.0/ 7.3/ 3.1) "Jürgen Exner" <jurgenex@hotmail.com>
15 28.1 ( 15.2/ 11.7/ 6.2) Gunnar Hjalmarsson <noreply@gunnar.cc>
14 21.7 ( 11.4/ 10.3/ 4.1) "Tintin" <me@privacy.net>
These posters accounted for 27.6% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
98.0 ( 39.2/ 51.1/ 24.1) 47 Benjamin Goldberg <goldbb2@earthlink.net>
73.8 ( 23.4/ 47.7/ 38.9) 21 tadmc@augustmail.com
59.4 ( 20.9/ 33.4/ 17.7) 22 tassilo.parseval@post.rwth-aachen.de
30.7 ( 18.4/ 11.2/ 6.8) 17 "Tore Aursand" <tore@aursand.no>
29.1 ( 17.0/ 12.0/ 7.2) 18 Steve Grazzini <grazz@nyc.rr.com>
28.1 ( 15.2/ 11.7/ 6.2) 15 Gunnar Hjalmarsson <noreply@gunnar.cc>
26.4 ( 12.2/ 14.0/ 5.6) 17 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25.8 ( 12.0/ 13.8/ 7.5) 16 "Sisyphus" <kalinabears@hdc.com.au>
21.7 ( 11.4/ 10.3/ 4.1) 14 "Tintin" <me@privacy.net>
21.4 ( 14.0/ 7.3/ 3.1) 16 "Jürgen Exner" <jurgenex@hotmail.com>
These posters accounted for 29.8% of the total volume.
Top 10 Posters by Volume of Original Content (min. five posts)
==============================================================
(kb)
Posts orig Address
----- ----- -------
21 38.9 tadmc@augustmail.com
47 24.1 Benjamin Goldberg <goldbb2@earthlink.net>
22 17.7 tassilo.parseval@post.rwth-aachen.de
16 7.5 "Sisyphus" <kalinabears@hdc.com.au>
18 7.2 Steve Grazzini <grazz@nyc.rr.com>
9 7.0 Stephan Bour <sbour@niaid.nih.gov>
17 6.8 "Tore Aursand" <tore@aursand.no>
15 6.2 Gunnar Hjalmarsson <noreply@gunnar.cc>
12 6.1 helgi@decode.is
9 5.8 "James E Keenan" <jkeen@concentric.net>
These posters accounted for 29.2% of the original volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.851 ( 4.8 / 5.7) 7 abigail@abigail.nl
0.816 ( 38.9 / 47.7) 21 tadmc@augustmail.com
0.681 ( 3.4 / 4.9) 6 "Alan J. Flavell" <flavell@mail.cern.ch>
0.633 ( 3.3 / 5.2) 6 Joe Smith <inwap@inwap.com>
0.609 ( 2.8 / 4.6) 5 Jay Tilton <tiltonj@erols.com>
0.608 ( 6.8 / 11.2) 17 "Tore Aursand" <tore@aursand.no>
0.607 ( 7.0 / 11.5) 9 Stephan Bour <sbour@niaid.nih.gov>
0.599 ( 7.2 / 12.0) 18 Steve Grazzini <grazz@nyc.rr.com>
0.599 ( 3.7 / 6.2) 5 "David" <perl-dvd@darklaser.com>
0.588 ( 4.5 / 7.6) 11 =?Windows-1252?Q?Roland_M=F6sl?= <founder@pege.org>
Bottom 10 Posters by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.423 ( 3.1 / 7.3) 8 bwalton@rochester.rr.com
0.420 ( 4.1 / 9.8) 7 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
0.420 ( 3.1 / 7.3) 16 "Jürgen Exner" <jurgenex@hotmail.com>
0.415 ( 1.9 / 4.7) 5 "joe" <tunmaster@hotmail.com>
0.414 ( 2.4 / 5.7) 7 Barry Kimelman <barryk2@SPAM-KILLER.mts.net>
0.404 ( 5.6 / 14.0) 17 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.394 ( 4.1 / 10.3) 14 "Tintin" <me@privacy.net>
0.348 ( 1.0 / 2.9) 6 Tony Curtis <tony_curtis32@yahoo.com>
0.340 ( 1.8 / 5.4) 9 Malte Ubl <ubl@schaffhausen.de>
0.339 ( 3.0 / 8.8) 10 Michael Budash <mbudash@sonic.net>
35 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
19 <script language=PerlScript> for Mozilla initiative
18 CGI.pm or roll-your-own?
18 cpan
15 Which is better - hashes or subroutines
12 Can Perl mimic the awk '/start/,/end/' syntax
11 looking for duplicates
10 Reformated Why won't this work.
10 regex question
10 File more recent than 7 days ?
10 Loading STDOUT into a variable
These threads accounted for 18.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
47.8 ( 14.6/ 31.3/ 19.6) 15 Which is better - hashes or subroutines
45.0 ( 24.2/ 20.3/ 10.7) 18 CGI.pm or roll-your-own?
36.9 ( 22.4/ 13.8/ 6.7) 19 <script language=PerlScript> for Mozilla initiative
33.8 ( 1.9/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
31.3 ( 9.4/ 20.7/ 10.1) 10 modules using modules - shared objects
28.9 ( 16.5/ 11.0/ 5.1) 18 cpan
21.9 ( 9.2/ 12.2/ 9.8) 10 Reformated Why won't this work.
20.9 ( 6.4/ 14.2/ 8.5) 7 Newbie Needs Good Advice
20.5 ( 9.5/ 10.6/ 4.7) 10 Loading STDOUT into a variable
19.0 ( 8.2/ 10.8/ 6.7) 10 comments within complex structures
These threads accounted for 22.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
=============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.955 ( 7.2/ 7.5) 5 This script won't work for me...why!?
0.799 ( 9.8/ 12.2) 10 Reformated Why won't this work.
0.769 ( 2.0/ 2.7) 5 perl noob question
0.722 ( 2.3/ 3.1) 5 NEWBIE best linux for perl?
0.710 ( 4.6/ 6.5) 7 Next token ??? Error
0.709 ( 1.2/ 1.8) 5 CPAN is now Matt's Script Archive
0.694 ( 2.2/ 3.2) 5 piped commands
0.665 ( 2.4/ 3.7) 6 Deducing variable name during initialization
0.645 ( 3.1/ 4.8) 6 Problem with redirecting STDOUT and STDERR
0.638 ( 1.8/ 2.9) 8 search a dir for a file
Bottom 10 Threads by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.441 ( 4.7 / 10.6) 10 Loading STDOUT into a variable
0.439 ( 4.6 / 10.4) 8 MSWin32 Active State Perl Question
0.432 ( 2.6 / 6.1) 8 split map avoid error message
0.429 ( 1.7 / 4.0) 7 sort array of structs
0.420 ( 3.4 / 8.0) 7 array shift
0.419 ( 2.9 / 6.9) 7 sort numerically descending is not right?
0.402 ( 2.1 / 5.2) 6 .doc > .txt
0.387 ( 2.0 / 5.2) 7 line sorting question
0.355 ( 2.6 / 7.4) 6 slow file access under windows
0.331 ( 2.5 / 7.4) 7 How to use newlines in DOS command options
58 threads (30%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
17 netscape.public.mozilla.layout
10 comp.unix.admin
9 comp.unix.shell
6 comp.lang.perl
4 comp.lang.perl.modules
3 microsoft.public.dotnet.languages.csharp
2 comp.lang.asm.x86
2 japan.comp.lang.perl
1 alt.perl
1 comp.infosystems.www.authoring.cgi
Top 10 Crossposters
===================
Articles Address
-------- -------
8 =?Windows-1252?Q?Roland_M=F6sl?= <founder@pege.org>
4 edu@rd c <ecleofe7@yahoo.com>
4 "Michael Vilain <vilain@spamcop.net>"
2 "Jürgen Exner" <jurgenex@hotmail.com>
2 Hubert <hubert_xu@yahoo.com>
2 Michael Heiming <michael+USENET@www.heiming.de>
2 "dw" <me@verizon.invalid>
2 Nicholas Bachmann <usenet@not-real.org>
2 "Rev. Don Kool" <oldno7@comcast.net>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
------------------------------
Date: Mon, 07 Apr 2003 10:59:42 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: This script won't work for me...why!?
Message-Id: <3e915a02.799956186@news.cis.dfn.de>
On Fri, 04 Apr 2003 22:43:19 GMT, "Josh Morrison"
<Verbalx2@hotmail.com> wrote:
Perhaps you have flonked your fribnitzer.
--
Regards, Helgi Briem
helgi DOT briem AT decode DOT is
------------------------------
Date: Mon, 07 Apr 2003 15:08:33 +0200
From: Kevin Pfeiffer <pfeiffer@iu-bremen.de>
Subject: using $vars in regex - problems with $1, etc.
Message-Id: <3572195.F9ZAdCHFLo@sputnik.tiros.net>
Dear group,
I need your advice and assistance once again. I have a small script that
does pattern matching and substitution on html template-based pages - not
matching balanced tags or anything, just something that matches over
multiple lines, which allows me to use enough of the template to have a
unique pattern (without parsing html, etc.).
I have a "regex" file which contains two lines (example here):
Text_to_match(.*) more text
Replacement Text$1 More replacement text
These are read into @regex and then used like this:
$data =~ s/$regex[0]/$regex[1]/oms; #
The capturing parentheses work fine; and if I enter $1 directly into the
line above I get back what was captured. But if the $1 is brought in via
$regex[1] as in the example above, it remains "$1" in the replacement text;
I also tried "\$1" in the regex file and I get "\$1" in the replacment.
I have read through perldoc perlops but am still not able to work out a
solution.
I could do this a little differently if necessary, but am trying to keep a
simple set-up similar to my two-line "regex file".
Any suggestions?
Many thanks in advance!
--
Kevin Pfeiffer
International University Bremen - www.iu-bremen.de
------------------------------
Date: Mon, 07 Apr 2003 15:03:23 +0200
From: Wolf Behrenhoff <NoSpamPleaseButThisIsValid2@gmx.net>
Subject: Re: using $vars in regex - problems with $1, etc.
Message-Id: <3E91771B.AD310214@gmx.net>
Kevin Pfeiffer wrote:
>
> Dear group,
>
> I have a "regex" file which contains two lines (example here):
>
> Text_to_match(.*) more text
> Replacement Text$1 More replacement text
>
> These are read into @regex and then used like this:
>
> $data =~ s/$regex[0]/$regex[1]/oms; #
>
> The capturing parentheses work fine; and if I enter $1 directly into the
> line above I get back what was captured. But if the $1 is brought in via
> $regex[1] as in the example above, it remains "$1" in the replacement text;
> I also tried "\$1" in the regex file and I get "\$1" in the replacment.
You have to use a double 'e' modifier.
s///ee;
Wolf
------------------------------
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 4824
***************************************
