[24037] in Perl-Users-Digest
Perl-Users Digest, Issue: 6234 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 8 14:05:55 2004
Date: Mon, 8 Mar 2004 11:05:07 -0800 (PST)
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, 8 Mar 2004 Volume: 10 Number: 6234
Today's topics:
*perl* regexps -- a library other applications can use? (David Combs)
Re: *perl* regexps -- a library other applications can <ittyspam@yahoo.com>
Re: *perl* regexps -- a library other applications can <usenet@morrow.me.uk>
Re: /dev/pts/x, /proc/x/fd, reading stdout, writing std (Anno Siegel)
Anti-hacker regex filtering <spam-block-@-SEE-MY-SIG.com>
Re: Anti-hacker regex filtering <usenet@morrow.me.uk>
Re: Anti-hacker regex filtering <nobull@mail.com>
Re: Calling a remote ASP script from my Perl Script -li <ceo@nospan.on.net>
Re: CPAN shell complains about MD5 <carpenter@construction.net>
Re: CPAN shell complains about MD5 <usenet@morrow.me.uk>
Re: hex conversion after unpack (woodywit)
Re: How to get system date in perlscript from bi <ceo@nospan.on.net>
Re: how can I use "class" and "id" elements in my tag? <ittyspam@yahoo.com>
Re: HOW TO CHECK URL?? <ron.parker@povray.org>
Re: Need help with Undeliverable Emails <whoknows@NoSpamPLZ.net>
Re: Need help with Undeliverable Emails <usenet@morrow.me.uk>
quick date question <see_my@sig.for.mail>
Re: quick date question <roel-perl@st2x.net>
Re: quick date question <see_my@sig.for.mail>
Re: quick date question <usenet@morrow.me.uk>
Re: quick date question <roel-perl@st2x.net>
Re: replacing modules? <tassilo.parseval@rwth-aachen.de>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Statistics for comp.lang.perl.misc <spam-block-@-SEE-MY-SIG.com>
Urgent: 5000 Euro Reward (0.034379238786959254) (0.5225049252002061)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Mar 2004 10:44:48 -0500
From: dkcombs@panix.com (David Combs)
Subject: *perl* regexps -- a library other applications can use?
Message-Id: <c2i4dg$g65$1@panix3.panix.com>
The perl regexps are so much more powerful, and useful
too, than so many other applications' regexp-facilities,
that you almost immediately wish those (non-perl) applications
could upgrade to perl's, or to some approximation to them.
(a) So, has Ilya or anyone perchance separated-out perl's regex-routines
into a general anyone-can-use regex-library?
(b) Separately, how about in Perl-6, that complete redesign
and reimplemtation of everything: the regexs there, will *they*
(also?) be made separable, independent?
Thanks,
David
------------------------------
Date: Mon, 8 Mar 2004 10:49:50 -0500
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: *perl* regexps -- a library other applications can use?
Message-Id: <20040308104917.C27834@dishwasher.cs.rpi.edu>
On Mon, 8 Mar 2004, David Combs wrote:
> The perl regexps are so much more powerful, and useful
> too, than so many other applications' regexp-facilities,
> that you almost immediately wish those (non-perl) applications
> could upgrade to perl's, or to some approximation to them.
>
> (a) So, has Ilya or anyone perchance separated-out perl's regex-routines
> into a general anyone-can-use regex-library?
>
http://www.pcre.org/
Paul Lalli
------------------------------
Date: Mon, 8 Mar 2004 15:52:50 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: *perl* regexps -- a library other applications can use?
Message-Id: <c2i4si$4bk$1@wisteria.csv.warwick.ac.uk>
Quoth dkcombs@panix.com (David Combs):
> The perl regexps are so much more powerful, and useful
> too, than so many other applications' regexp-facilities,
> that you almost immediately wish those (non-perl) applications
> could upgrade to perl's, or to some approximation to them.
>
> (a) So, has Ilya or anyone perchance separated-out perl's regex-routines
> into a general anyone-can-use regex-library?
http://www.pcre.org/
Note that this is not supported in any way by p5p, it is an independant
effort. Also (obviously) that constructions such as (?{}) and /e won't
work.
> (b) Separately, how about in Perl-6, that complete redesign
> and reimplemtation of everything: the regexs there, will *they*
> (also?) be made separable, independent?
http://dev.perl.org/perl6/pdd/pdd01_overview.html suggests that the
regex engine will be more independant than it is in perl5. Whether it
will actually be packaged up into a separate library usable outside of
Parrot I don't know.
Ben
--
Like all men in Babylon I have been a proconsul; like all, a slave ... During
one lunar year, I have been declared invisible; I shrieked and was not heard,
I stole my bread and was not decapitated.
~ ben@morrow.me.uk ~ Jorge Luis Borges, 'The Babylon Lottery'
------------------------------
Date: 8 Mar 2004 17:20:12 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: /dev/pts/x, /proc/x/fd, reading stdout, writing stdin, not with open3
Message-Id: <c2ia0c$n5g$1@mamenchi.zrz.TU-Berlin.DE>
Andreas Persson <nospam@nospam9.se> wrote in comp.lang.perl.misc:
> Hi
>
> are there any perl gods out there that could help me. :)
>
> is it possible to open(?) /dev/pts/x that another program
> has created/using/virtual_console and read its stdout and let me write to
> its stdin?
"open(?)" ... "created/using/virtual_console" ...
These slash-separated ambiguities usually mean that the poster hasn't
thought enough about the problem to have a good idea what is needed and
hopes that Usenet will supply the right question *and* the answer. I
find that annoying.
Why can't the mystery program be started where it is needed? Who starts
it, and are the start conditions under your control?
> is it possible to use /proc/$pid/fd/x in some way?
"...in some way"? In what way do you *want* to use it? It's your job
to tell us.
> the only way i've found to work is with open3 call, but this not
> nice to the program that needs to be running 24/7. :)
How is running open3 bad, and how is it worse to to it all day than
to do it once?
Anno
------------------------------
Date: Mon, 8 Mar 2004 16:20:41 +0000
From: James Taylor <spam-block-@-SEE-MY-SIG.com>
Subject: Anti-hacker regex filtering
Message-Id: <ant081641d07fNdQ@nospam.demon.co.uk>
Hi,
I'm writing an application which allows users to enter Perl
regexes and I want to ensure that mistakes or malicious
intent cannot result in giving the user unwanted access.
In other words I want to check that no code is being
executed from within the regexes. Below is my current
thinking. Please correct me if I've missed something or
confirm that I've done enough. Thanks.
There are four ways of including code within a regex.
The first two are variable interpolations:
${\( code )}
@{[ code ]}
I have no need to allow any variable interpolation so it is
simple enough to ensure that $ and @ are backslashed; that
way users don't even have to worry about the special meaning
of those symbols. Unfortunately, the $ or @ may already be
backslashed and if I add another backslash I'll only be
reactivating the interpolation. Also, I cannot simply do
nothing if there is a preceding backslash because if there
are two backslashes I still need to add one in front of the
$ or @ sign. In fact, I need to count the number of
preceding backslashes and, if there are an even number of
them, I must add another one in front of the $ or @ sign.
Finally, I *would* like to allow a dollar sign to be used as
an end-of-line assertion at the end of the user's regex.
So my filtering code might be something like this:
$eol_dollar = $user_regex =~ s/\$$//; # Remove trailing dollar
$user_regex =~ s/(\\*)([\$\@])/ length($1) % 2 ? "$1$2" : "$1\\$2" /eg;
$user_regex .= '$' if $eol_dollar; # Replace any trailing dollar
The next two ways of embedding code within a regex are by
using the extended syntax:
(?{ code })
(??{ code })
I want to allow the extended regex syntax in general so it
is not good enough just to disallow (? within the pattern.
Perhaps something like this would be sufficient:
die "Bad regex" if $user_regex =~ /\(\?{1,2}\{/;
Is there any way of disguising the extended syntax for code
insertion so that the above regex would not detect it?
Are there any other regex features or evil tricks that might
get around these meagre defences?
Is there a better way?
--
James Taylor, Cheltenham, Gloucestershire, UK. PGP key: 3FBE1BF9
To protect against spam, the address in the "From:" header is not valid.
In any case, you should reply to the group so that everyone can benefit.
If you must send me a private email, use james at oakseed demon co uk.
------------------------------
Date: Mon, 8 Mar 2004 17:32:53 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Anti-hacker regex filtering
Message-Id: <c2iao5$8ai$1@wisteria.csv.warwick.ac.uk>
Quoth James Taylor <spam-block-@-SEE-MY-SIG.com>:
> There are four ways of including code within a regex.
> The first two are variable interpolations:
>
> ${\( code )}
> @{[ code ]}
>
> I have no need to allow any variable interpolation so it is
> simple enough to ensure that $ and @ are backslashed; that
> way users don't even have to worry about the special meaning
> of those symbols. Unfortunately, the $ or @ may already be
> backslashed and if I add another backslash I'll only be
> reactivating the interpolation. Also, I cannot simply do
> nothing if there is a preceding backslash because if there
> are two backslashes I still need to add one in front of the
> $ or @ sign. In fact, I need to count the number of
> preceding backslashes and, if there are an even number of
> them, I must add another one in front of the $ or @ sign.
You don't need to do any of this. Variable interpolation is done by the
double-quoteish part of //: if your regex is coming in a variable it
won't happen again:
~% perl -le'$x = "foo"; print qr/$x/'
(?-xism:foo)
~% perl -le'$x = "foo"; $y = q/$x/; print qr/$y/'
(?-xism:$x)
This means that any $s your users enter will be treated as end-of-line
matches, and any @s will be matched literally.
> Finally, I *would* like to allow a dollar sign to be used as
> an end-of-line assertion at the end of the user's regex.
Note that this is not the only place $ means end-of-line. /a$|b$/
matches the same as /(?: a | b ) $/x.
> The next two ways of embedding code within a regex are by
> using the extended syntax:
>
> (?{ code })
> (??{ code })
Again, Perl deals with this already... to prevent nasty surprises, when
(?{}) was added to Perl it was made such that variables interpolated
into regexen were not allowed to contain these expressions, except in
the scope of use re 'eval'.
Ben
--
I've seen things you people wouldn't believe: attack ships on fire off
the shoulder of Orion; I watched C-beams glitter in the dark near the
Tannhauser Gate. All these moments will be lost, in time, like tears in rain.
Time to die. ben@morrow.me.uk
------------------------------
Date: 08 Mar 2004 17:34:09 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Anti-hacker regex filtering
Message-Id: <u965df9ram.fsf@wcl-l.bham.ac.uk>
James Taylor <spam-block-@-SEE-MY-SIG.com> writes:
> I'm writing an application which allows users to enter Perl
> regexes and I want to ensure that mistakes or malicious
> intent cannot result in giving the user unwanted access.
> In other words I want to check that no code is being
> executed from within the regexes. Below is my current
> thinking. Please correct me if I've missed something or
> confirm that I've done enough. Thanks.
>
> There are four ways of including code within a regex.
> The first two are variable interpolations:
>
> ${\( code )}
> @{[ code ]}
Interpolation only applies to literal regex in program source.
When using a regex in a variable...
$foo =~ /$bar/;
...then $ @ in $bar will not be tretead as interpolations since the
interpolation phase is already in the past.
> The next two ways of embedding code within a regex are by
> using the extended syntax:
>
> (?{ code })
> (??{ code })
By default embedded code is disabled in any regex that interpolate
variables (other than precompiled regex).
So long as you don't change this default with "use eq qw(eval)" you
don't need to worry about this.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 08 Mar 2004 14:57:00 GMT
From: Chris <ceo@nospan.on.net>
Subject: Re: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <0R%2c.22009$3m4.6006@newssvr31.news.prodigy.com>
Dave Smithz wrote:
> Hi there,
>
> I have to write a Perl script that processes a users form submit action, but
> then also needs to call an ASP on another remote server (via HTTP) and
> process the HTTP Post results which that other remote script handles.
>
> I have never had to do this before and suddenly realised I do not know how
> to call another script from Perl. My google investigation has led me to a
> libwww library but before I learn what seems to be a very old not updated
> module, I wonder if I am going about my objective the right way?
>
> So again,
>
> I have a Perl script that needs to process a web form. But also I then need
> to send some of that data to a third party ASP script and interpret the
> returned results.
>
> How can I do this.
>
Form filled in -> Submit -> Form fields returned to Perl -> Perl
processes information -> Redirects to ASP passing information to ASP page.
So:
use CGI; ## to get your form information in Perl
my $cgi = new CGI;
## Do stuff with fields -- see CGI module documentation.
$cgi->redirect( "http://remote-host/scripts/somepage.asp" );
If you need to pass information from Perl to ASP, you can do this a
number of ways. Either store your information in a mutual database and
have the ASP page pick up information from the database (would also have
to come up with some session mechanism.) More common and somewhat
easier (depends on how you look at it) is to form what is called a "GET
URL" (or encoded GET URL) to send to the ASP page. Like this:
use CGI::Enurl;
my $field1 = enurl $cgi->param( 'field1' );
my $field2 = enurl $cgi->param( 'field2' );
my $url = "http://remote-host/scripts/somepage.asp";
$url .= "?field1=$field1&field2=$field2";
$cgi->redirect( $url );
See documentation on the CGI module, in particular look for "Generating
a redirection header". Also, Jenda's documentation on CGI::Enurl may be
helpful. I think there is a redirection example there building an
encoded GET URL string to send to another script.
Simple stuff really. Don't let the "unknown" element make you think
it's a big job.
-ceo
------------------------------
Date: Mon, 08 Mar 2004 09:59:42 -0600
From: Bill Ding <carpenter@construction.net>
Subject: Re: CPAN shell complains about MD5
Message-Id: <6cvo40pclsdcphqoh9j23kq63jk8765d26@4ax.com>
Ben Morrow <usenet@morrow.me.uk> typed:
>> Bill:
>> ...fact, everything I tried complained about MD5, specifically:
>>
>> 'Can't locate object method "new" via package MD5
>> (perhaps you forgot to load "MD5"?) at
>> /usr/lib/local/perl5/5.6.1/CPAN.pm line 4212'
>>
>> except install MD5, which proclaimed "MD5 is up to date."
>>
>> Hmmmm... it's up to date, but it's not there. What gives, and how to
>> fix it?
> Ben:
>Do you have and MD5.pm installed?
Do I have =what= and MD5.pm installed? I tried (see above) 'install
MD5' and the result was that it's "up to date". But then it's "not
found".
> Ben:
>Where? Is it in your @INC? Is its .so in a
>suitable place?
As to MD5.pm's location, it's in that directory along with the CPAN.pm
that's being complained about. If it weren't somewhere at least partly
suitable, I wouldn't have thought install would be able to find it and
declare it "up to date", but apparently it's not =completely=
suitable. What's the name of its .so? I so find an MD5.so, but it's in
a 5.6.0 directory, and moving it to a directory in the @INC path
didn't seem to make any difference. Since MD5 is not explicitly
required or used in that CPAN.pm, is it looking for a .al instead?
Unfortunately, (see below) apparently I have to get it (MD5) working
before I can move onward and upward to Digest::MD5, since install
Digest::MD5 complains about not having MD5.
> Ben:
>What happens if you 'install Digest::MD5' instead? (MD5.pm is deprecated
>in favour of Digest::MD5.)
I tried that already, and I got the same message : ... 'forgot to load
"MD5"?)' So MD5 is deprecated, we should use Digest::MD5, but we can't
do that unless we already have MD5 installed, but we can't do that
because it's "up to date"... oooookay...
So I'm kind of stuck here. I can't install these others because MD5
isn't found, but I can't install MD5 because it's "up to date". So
apparently it's "installed" but not "loaded". What do I need to do to
"load MD5"? I tried adding "use MD5" in the CPAN.pm, which didn't make
any difference except kicking the error message down one line ;) But
it also didn't generate a new error, so I assume that means that perl
DID find its MD5 module, and the message actually means that the MD5
authentication is not running. This is a RH7.2 system; I looked in the
system configuration options, and MD5 doesn't appear in the list of
available services, although it was (and is) checked in the kickstart.
------------------------------
Date: Mon, 8 Mar 2004 17:21:06 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: CPAN shell complains about MD5
Message-Id: <c2ia22$82q$1@wisteria.csv.warwick.ac.uk>
Quoth Uranus Corporation:
> Ben Morrow <usenet@morrow.me.uk> typed:
>
> >> Bill:
> >> ...fact, everything I tried complained about MD5, specifically:
> >>
> >> 'Can't locate object method "new" via package MD5
> >> (perhaps you forgot to load "MD5"?) at
> >> /usr/lib/local/perl5/5.6.1/CPAN.pm line 4212'
> >>
> >> except install MD5, which proclaimed "MD5 is up to date."
> >>
> >> Hmmmm... it's up to date, but it's not there. What gives, and how to
> >> fix it?
>
> > Ben:
> >Do you have and MD5.pm installed?
>
> Do I have =what= and MD5.pm installed?
Sorry: 'an MD5.pm'. My meaning was: is there actually an MD5.pm on your system,
or is CPAN.pm being stupid.
> I tried (see above) 'install
> MD5' and the result was that it's "up to date". But then it's "not
> found".
>
> > Ben:
> >Where? Is it in your @INC? Is its .so in a
> >suitable place?
>
> As to MD5.pm's location, it's in that directory along with the CPAN.pm
> that's being complained about. If it weren't somewhere at least partly
> suitable, I wouldn't have thought install would be able to find it and
> declare it "up to date", but apparently it's not =completely=
> suitable. What's the name of its .so?
MD5.so :)
> I so find an MD5.so, but it's in
> a 5.6.0 directory, and moving it to a directory in the @INC path
> didn't seem to make any difference.
Nononono, moving .sos around is a bad idea...
I think the best solution is just to delete that MD5.pm. Then CPAN won't
find it, and you can install Digest::MD5... where it came from I don't
know: the only one I've got is in a site_perl directory.
> Since MD5 is not explicitly
> required or used in that CPAN.pm, is it looking for a .al instead?
No. It is required at runtime: in my version lines 3893-8:
if ($CPAN::META->has_inst("Digest::MD5")) {
$self->debug("Digest::MD5 is installed, verifying");
$self->verifyMD5;
} else {
$self->debug("Digest::MD5 is NOT installed");
}
.
> But it also didn't generate a new error, so I assume that means that
> perl DID find its MD5 module, and the message actually means that the
> MD5 authentication is not running. This is a RH7.2 system; I looked in
> the system configuration options, and MD5 doesn't appear in the list
> of available services, although it was (and is) checked in the
> kickstart.
I'm not sure what you mean by this: MD5 isn't a 'service', it's just an
algorithm, a way of taking one number and producing another which is
almost but not entirely unlike the first. Whatever you found in
'kickstart' has nothing to do with Perl's MD5.pm.
Ben
--
Razors pain you / Rivers are damp
Acids stain you / And drugs cause cramp. [Dorothy Parker]
Guns aren't lawful / Nooses give
Gas smells awful / You might as well live. ben@morrow.me.uk
------------------------------
Date: 8 Mar 2004 07:37:11 -0800
From: markwitczak@yahoo.com (woodywit)
Subject: Re: hex conversion after unpack
Message-Id: <88c9f169.0403080737.20ec3fb5@posting.google.com>
ahhhhhhhhh, Bach...
Thanks.
------------------------------
Date: Mon, 08 Mar 2004 14:30:55 GMT
From: Chris <ceo@nospan.on.net>
Subject: Re: How to get system date in perlscript from bios and not from OS ?
Message-Id: <zs%2c.21998$Bs4.1797@newssvr31.news.prodigy.com>
Jonay Herrera wrote:
> Hello,
>
> I have a little problem:
>
> I want to get the system date/time , and I use this to get it :
> #get timestamp
> ###############################################################################################
> sub get_date {
> chomp ($sysdate = `date /T`);
> chomp ($systime = `time /t`);
> $madate = substr($sysdate,4,2) . substr($sysdate,7,2) .
> substr($sysdate,12,2);
> $montime = substr($systime,0,2) . substr($systime,3,2);
> $timestamp = $madate . $montime ;
> }
> It works, but I get the time from windows and when we use the
> script on another pc with a another regional setting than is the
> output wrong. how can I resolve my problem ?
>
Dude, that's really painful code... 8-( Perl has built in functions
for dealing with time. Checkout localtime() in the docs. Standardize
your PCs on a timezone like GMT.
-ceo
------------------------------
Date: Mon, 8 Mar 2004 10:55:51 -0500
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: how can I use "class" and "id" elements in my tag?
Message-Id: <20040308105511.Q27834@dishwasher.cs.rpi.edu>
On Mon, 8 Mar 2004, ckacka wrote:
> ie.
> print $q->p (
> ...
> );
>
perldoc CGI
(bottom of page 2, top of page 3)
------------------------------
Date: Mon, 8 Mar 2004 14:02:54 -0500
From: Ron Parker <ron.parker@povray.org>
Subject: Re: HOW TO CHECK URL??
Message-Id: <slrnc4pgqs.gc.ron.parker@mail.parkrrrr.com>
On Mon, 08 Mar 2004 02:22:57 GMT, Joe Smith wrote:
>> ftp://abc.efg.nnn fail
>
> Today ".nnn" is not valid, but that could change tomorrow.
> Your script will have to go visit a database of current
> Global top-level-domains to be accurate.
Who said nnn is a GTLD?
[ron@mail ron]$ grep ^search /etc/resolv.conf
search com
[ron@mail ron]$ nslookup abc.efg.nnn
Server: localhost
Address: 127.0.0.1
Non-authoritative answer:
Name: abc.efg.nnn.com
Addresses: 66.150.161.140, 66.150.161.141, 69.25.27.170, 69.25.27.171
66.150.161.133, 66.150.161.134, 66.150.161.135, 66.150.161.136
------------------------------
Date: Mon, 08 Mar 2004 16:38:20 GMT
From: whoknows <whoknows@NoSpamPLZ.net>
Subject: Re: Need help with Undeliverable Emails
Message-Id: <0k13c.7683$q4.35203@weber.videotron.net>
On Sun, 07 Mar 2004 10:55:05 -0500, James Willmore wrote:
> The code used to do so *is* a potential security risk. There are many
> references as to why. Start here in clpm, then move onto Google :-)
I did not comment on OP's code, I commented on usage of Net::SMTP
over sendmail binary.
>
> I use Postfix as well for the same reason, but *never* use the client
> without good reason. Maybe that's just me, but I prefer to know *exactly*
> what's being sent out and to where.
If your postfix is properly configured, everything is logged. Most
likely in /var/log/mail. It is all there - where/when and why it was
spooled/droped/etc. Check it out...
> Again, the code referenced by the OP
> does not insure that (no mention of taint checking or validation of the
> variable used for the message - very dangerous). Just because the
> *binary* is "secure" doesn't mean the human interface can't make it
> "un-secure".
Again, I do not comment on OP's code. I did not even see it...
>
>> - Does Net::SMTP will queue your messages in case of mail server outage?
>
>
> On the chance your email(s) are not sent, the script should let you know
> is some efficient fashion (like maintaining a log and ... checking the log
> to see if all went well :-) ).
:)
I thought the purpose of a script was to automate something not
to keep on checking manualy....
> And, if it's a critical activity to send
> out emails, you should be writing the emails out to file in case they get
> lost in transit. Queuing the messages will do not good if they get lost
> in the queue because of some fatal error to your system - or due to some
> error on the part of the "human interface" (aka user error) :-)
When I say queueing, I mean that client will keep on try sending
your mail until it succeeds or gives up (after a week or whatever).
Chances that 'mail is lost' in transit are very low. Chances
that mail server is unavailable are much higher. That is why
most domains have multiple mail servers and MX entries (which can change).
>> - Will it try multiple servers?
>
> And why would you want to :-)
To make sure that mail IS sent.
> If you have that many issues with the
> server, the problem isn't the script, it's the server you're sending to
>:-)
Yes. But don't forget OP wants to send mail not to log into a file.
The MTA work like this (primitively speaking):
1 look up MX servers for a domain
2 try to send mail to the server with the smallest MX value
3 if cannot, try server with the next largest MX value
4 queue mail and keep on trying untill success
5 give up when message queue lifetime exceeded
Net::SMTP will give up mail delivery after step 2 (it does not
do MX lookups, it relies on hardcoded values).
> Sending to multiple servers seems more like sending spam than legit
> email. There should not be any reason to send to multiple SMTP servers.
:)
Read some more on DNS and SMTP. Each (properly) run domain/network
has multiple mail and dns servers.
> Do you do this with your favorite email client?
email client does not do delivery. email clients are MUA
(mail user agent). MTA (mail transport agents) take care
of delivery. Read up on that.
My mail client (MUA) is mutt. It uses postfix sendmail(MTA)
for mail delivery.
>The same messages? If
> so, again, the problem lies with your ISP, not your client :-)
I run highly available secure production networks. I do not trust
ISPs. Period. If I need something robust and reliable, I use
MTA ( in a secure fashion with 'use strict' and tained mode on).
I hate to fork external binaries, but in this case there
is no choice for me.
> There's nothing wrong with the Net::SMTP module.
There is nothing wrong with Net::SMTP it is a very good module.
It just does not provide queueing and does not support MX
lookups. Keep that in mind.
>All your statements are
> really based upon FUD. I guess you could argue the same way. I doubt it,
> but I guess you could :-)
>
no comment.
--
.signature: No such file or directory
------------------------------
Date: Mon, 8 Mar 2004 17:36:46 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Need help with Undeliverable Emails
Message-Id: <c2iave$8ai$2@wisteria.csv.warwick.ac.uk>
Quoth whoknows@NoSpamPLZ.net:
<snip sensible stuff about why one should use a local MTA>
> I hate to fork external binaries, but in this case there
> is no choice for me.
Yes there is. Use Net::SMTP, but connect to localhost. Mail will be
queued by your local MTA as usual. If it fails then your invocation of
sendmail would have failed as well.
Ben
--
perl -e'print map {/.(.)/s} sort unpack "a2"x26, pack "N"x13,
qw/1632265075 1651865445 1685354798 1696626283 1752131169 1769237618
1801808488 1830841936 1886550130 1914728293 1936225377 1969451372
2047502190/' # ben@morrow.me.uk
------------------------------
Date: Mon, 08 Mar 2004 11:20:02 -0500
From: anon_post <see_my@sig.for.mail>
Subject: quick date question
Message-Id: <pan.2004.03.08.16.20.01.561265@sig.for.mail>
Hi all,
I need a quick script that will search for a string within a file and
replace it with the date 60 days from now. i.e date+60
can anyone help me out?
tia
------------------------------
Date: 08 Mar 2004 16:46:31 GMT
From: Roel van der Steen <roel-perl@st2x.net>
Subject: Re: quick date question
Message-Id: <slrnc4p8um.b17.roel@localhost.localdomain>
In article <pan.2004.03.08.16.20.01.561265@sig.for.mail>, anon_post wrote:
> I need a quick script that will search for a string within a file and
> replace it with the date 60 days from now. i.e date+60
How would that date be formatted? You can write 100 lines of code trying
to parse a date from any giving string, and still not be able to extract
a date according to the Hebrew calendar out of a string of Japanese
characters... Having said that, You'll probably need to use a regex,
based on some assumptions you make on the date format.
Then, use the built-in Perl functions and/or the standard Time::Local.
Remember that if you are able to get the epoch-seconds, you may just
add 86400 * 60 seconds to it, and convert it back to a text string.
Happy time-shifting!
------------------------------
Date: Mon, 08 Mar 2004 12:25:23 -0500
From: anon_post <see_my@sig.for.mail>
Subject: Re: quick date question
Message-Id: <pan.2004.03.08.17.25.23.191078@sig.for.mail>
On Mon, 08 Mar 2004 16:46:31 +0000, Roel van der Steen wrote:
> In article <pan.2004.03.08.16.20.01.561265@sig.for.mail>, anon_post wrote:
>> I need a quick script that will search for a string within a file and
>> replace it with the date 60 days from now. i.e date+60
>
> How would that date be formatted? You can write 100 lines of code trying
> to parse a date from any giving string, and still not be able to extract
> a date according to the Hebrew calendar out of a string of Japanese
> characters... Having said that, You'll probably need to use a regex,
> based on some assumptions you make on the date format.
>
> Then, use the built-in Perl functions and/or the standard Time::Local.
> Remember that if you are able to get the epoch-seconds, you may just
> add 86400 * 60 seconds to it, and convert it back to a text string.
>
> Happy time-shifting!
the date would need to be formated as YYYYMMDD
so, if i need to replace the string 20000000 with date+60
how would i do this?
------------------------------
Date: Mon, 8 Mar 2004 17:39:49 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: quick date question
Message-Id: <c2ib55$8ai$3@wisteria.csv.warwick.ac.uk>
Quoth anon_post <see_my@sig.for.mail>:
>
> the date would need to be formated as YYYYMMDD
> so, if i need to replace the string 20000000 with date+60
> how would i do this?
perldoc perlop (the section on s///).
perldoc -f POSIX (the section on strftime).
perldoc localtime.
Ben
--
Like all men in Babylon I have been a proconsul; like all, a slave ... During
one lunar year, I have been declared invisible; I shrieked and was not heard,
I stole my bread and was not decapitated.
~ ben@morrow.me.uk ~ Jorge Luis Borges, 'The Babylon Lottery'
------------------------------
Date: 08 Mar 2004 18:09:12 GMT
From: Roel van der Steen <roel-perl@st2x.net>
Subject: Re: quick date question
Message-Id: <slrnc4pdpm.b2v.roel@localhost.localdomain>
In article <pan.2004.03.08.17.25.23.191078@sig.for.mail>, anon_post wrote:
> the date would need to be formated as YYYYMMDD
> so, if i need to replace the string 20000000 with date+60
> how would i do this?
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
use POSIX;
use constant ADD_SECONDS => 60 * 24 * 60 * 60;
my $text = <<SOMETEXT;
foo bar 20040308 and more... Tomorrow: 20040309.
20000000 is not a valid date.
SOMETEXT
$text =~ s{
( \d{4} ) # year, timegm restrictions apply
( 0[1-9] | 1[0-2] ) # month, with *basic* bound checking
( 0[1-9] | 2\d | 3[01] ) # day
}{
strftime( '%Y%m%d', gmtime(timegm(0, 0, 0, $3, $2-1, $1) + ADD_SECONDS) )
}egx;
print $text;
prints:
foo bar 20040507 and more... Tomorrow: 20040508.
20000000 is not a valid date.
------------------------------
Date: 8 Mar 2004 14:08:38 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: replacing modules?
Message-Id: <c2hup6$sik$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Brian McCauley:
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
>
>> Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote in comp.lang.perl.misc:
>> > Also sprach Anno Siegel:
>> > >
>> > > BEGIN { Module->import( ...) if Module->can( 'import') }
>> >
>> > You can even drop the 'if' altogether. The 'import' method is special in
>> > that perl will silently turn 'Module->import' into a no-op if this
>> > method isn't inherited nor defined by Module.
>>
>> Ah... I didn't know this. I must have falsely accused a few good
>> programmers of sloppiness because of that :)
>
> Depends when you did it. ISTR that until fairly recently the
> "UNIVERSAL::import is a no-op" feature was marked in the docs as "may
> change in future".
But there is no UNIVERSAL::import. You'll find it as a special case in
the Perl source, for instance Perl_gv_fetchmethod_autoload which says:
gv = gv_fetchmeth(stash, name, nend - name, 0);
if (!gv) {
if (strEQ(name,"import") || strEQ(name,"unimport"))
gv = (GV*)&PL_sv_yes;
else if (autoload)
gv = gv_autoload4(ostash, name, nend - name, TRUE);
}
As this "may change in future", do you have more details about that? I
wasn't able to find that throughout the docs.
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: Mon, 08 Mar 2004 16:52:52 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <104p97478jcdq2b@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 01 Mar 2004 16:59:54 GMT and ending at
08 Mar 2004 16:46:31 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) 2004 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: 221
Articles: 743 (251 with cutlined signatures)
Threads: 162
Volume generated: 1490.9 kb
- headers: 664.5 kb (12,405 lines)
- bodies: 788.2 kb (25,862 lines)
- original: 474.5 kb (16,788 lines)
- signatures: 37.5 kb (902 lines)
Original Content Rating: 0.602
Averages
========
Posts per poster: 3.4
median: 2 posts
mode: 1 post - 103 posters
s: 5.6 posts
Posts per thread: 4.6
median: 4.0 posts
mode: 3 posts - 31 threads
s: 4.1 posts
Message size: 2054.7 bytes
- header: 915.8 bytes (16.7 lines)
- body: 1086.3 bytes (34.8 lines)
- original: 654.0 bytes (22.6 lines)
- signature: 51.6 bytes (1.2 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
53 111.4 ( 48.8/ 49.5/ 20.6) Ben Morrow <usenet@morrow.me.uk>
45 76.0 ( 41.6/ 34.3/ 20.2) "gnari" <gnari@simnet.is>
25 42.6 ( 18.2/ 24.3/ 11.7) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 60.2 ( 30.3/ 24.0/ 12.9) jwillmore@adelphia.net
21 33.2 ( 15.9/ 17.3/ 6.5) Paul Lalli <ittyspam@yahoo.com>
18 66.4 ( 20.0/ 44.2/ 39.5) tadmc@augustmail.com
13 29.4 ( 12.4/ 14.1/ 6.7) tassilo.parseval@post.rwth-aachen.de
13 24.1 ( 12.2/ 11.0/ 4.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
11 19.8 ( 7.8/ 12.1/ 4.9) Jay Tilton <tiltonj@erols.com>
10 14.1 ( 9.7/ 4.3/ 2.5) Joe Smith <Joe.Smith@inwap.com>
10 28.7 ( 7.0/ 21.7/ 10.9) $_@_.%_
9 15.5 ( 8.3/ 6.6/ 3.0) Brian McCauley <nobull@mail.com>
9 25.1 ( 8.1/ 17.0/ 6.3) Rex Gustavus Adolphus <uffesterner@spamhole.com>
8 16.1 ( 8.2/ 7.9/ 3.8) "Matt Garrish" <matthew.garrish@sympatico.ca>
8 21.8 ( 11.0/ 10.8/ 5.4) Chris <ceo@nospan.on.net>
8 16.2 ( 7.1/ 8.9/ 2.1) "John W. Krahn" <krahnj@acm.org>
8 13.1 ( 5.0/ 7.1/ 3.5) ctcgag@hotmail.com
8 14.7 ( 8.9/ 5.0/ 3.4) Beable van Polasm <beable+unsenet@beable.com.invalid>
8 13.5 ( 7.8/ 5.8/ 1.4) Regent <arthur0421@163.com>
7 10.7 ( 5.9/ 3.9/ 1.9) Tore Aursand <tore@aursand.no>
These posters accounted for 42.3% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
53 111.4 ( 48.8/ 49.5/ 20.6) Ben Morrow <usenet@morrow.me.uk>
45 76.0 ( 41.6/ 34.3/ 20.2) "gnari" <gnari@simnet.is>
24 42.6 ( 18.2/ 24.3/ 11.7) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 60.2 ( 30.3/ 24.0/ 12.9) jwillmore@adelphia.net
21 33.2 ( 15.9/ 17.3/ 6.5) Paul Lalli <ittyspam@yahoo.com>
16 66.4 ( 20.0/ 44.2/ 39.5) tadmc@augustmail.com
13 29.4 ( 12.4/ 14.1/ 6.7) tassilo.parseval@post.rwth-aachen.de
13 24.1 ( 12.2/ 11.0/ 4.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
11 19.8 ( 7.8/ 12.1/ 4.9) Jay Tilton <tiltonj@erols.com>
10 14.1 ( 9.7/ 4.3/ 2.5) Joe Smith <Joe.Smith@inwap.com>
9 28.7 ( 7.0/ 21.7/ 10.9) $_@_.%_
9 15.5 ( 8.3/ 6.6/ 3.0) Brian McCauley <nobull@mail.com>
8 16.1 ( 8.2/ 7.9/ 3.8) "Matt Garrish" <matthew.garrish@sympatico.ca>
8 25.1 ( 8.1/ 17.0/ 6.3) Rex Gustavus Adolphus <uffesterner@spamhole.com>
8 16.2 ( 7.1/ 8.9/ 2.1) "John W. Krahn" <krahnj@acm.org>
8 21.8 ( 11.0/ 10.8/ 5.4) Chris <ceo@nospan.on.net>
8 13.1 ( 5.0/ 7.1/ 3.5) ctcgag@hotmail.com
8 14.7 ( 8.9/ 5.0/ 3.4) Beable van Polasm <beable+unsenet@beable.com.invalid>
7 13.5 ( 6.7/ 6.8/ 4.4) Brad Baxter <bmb@ginger.libs.uga.edu>
7 13.1 ( 5.3/ 7.2/ 5.2) pkent <pkent77tea@yahoo.com.tea>
These posters accounted for 51.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
111.4 ( 48.8/ 49.5/ 20.6) 53 Ben Morrow <usenet@morrow.me.uk>
76.0 ( 41.6/ 34.3/ 20.2) 45 "gnari" <gnari@simnet.is>
75.5 ( 2.2/ 73.3/ 71.9) 2 "Newsgroup User" <none@given.com>
66.4 ( 20.0/ 44.2/ 39.5) 18 tadmc@augustmail.com
60.2 ( 30.3/ 24.0/ 12.9) 22 jwillmore@adelphia.net
42.6 ( 18.2/ 24.3/ 11.7) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
33.2 ( 15.9/ 17.3/ 6.5) 21 Paul Lalli <ittyspam@yahoo.com>
29.4 ( 12.4/ 14.1/ 6.7) 13 tassilo.parseval@post.rwth-aachen.de
28.7 ( 7.0/ 21.7/ 10.9) 10 $_@_.%_
25.1 ( 8.1/ 17.0/ 6.3) 9 Rex Gustavus Adolphus <uffesterner@spamhole.com>
24.1 ( 12.2/ 11.0/ 4.7) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
21.8 ( 11.0/ 10.8/ 5.4) 8 Chris <ceo@nospan.on.net>
19.8 ( 7.8/ 12.1/ 4.9) 11 Jay Tilton <tiltonj@erols.com>
19.5 ( 6.7/ 12.7/ 2.3) 6 "Steve (another one)" <y66y@56yu4b6.com>
16.2 ( 7.1/ 8.9/ 2.1) 8 "John W. Krahn" <krahnj@acm.org>
16.2 ( 3.6/ 12.5/ 3.2) 4 "Martin Livingston" <mjpliv@hfx.eastlink.ca>
16.1 ( 6.4/ 9.3/ 4.7) 6 see@sig.invalid
16.1 ( 8.2/ 7.9/ 3.8) 8 "Matt Garrish" <matthew.garrish@sympatico.ca>
15.5 ( 8.3/ 6.6/ 3.0) 9 Brian McCauley <nobull@mail.com>
15.3 ( 7.9/ 7.3/ 2.5) 7 Vetle Roeim <vetro@online.no>
These posters accounted for 48.9% of the total volume.
Top 11 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
18 39.5 tadmc@augustmail.com
53 20.6 Ben Morrow <usenet@morrow.me.uk>
45 20.2 "gnari" <gnari@simnet.is>
22 12.9 jwillmore@adelphia.net
25 11.7 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
10 10.9 $_@_.%_
13 6.7 tassilo.parseval@post.rwth-aachen.de
21 6.5 Paul Lalli <ittyspam@yahoo.com>
11 4.9 Jay Tilton <tiltonj@erols.com>
13 4.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 2.5 Joe Smith <Joe.Smith@inwap.com>
These posters accounted for 29.7% of the original volume.
Top 11 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.895 ( 39.5 / 44.2) 18 tadmc@augustmail.com
0.588 ( 20.2 / 34.3) 45 "gnari" <gnari@simnet.is>
0.580 ( 2.5 / 4.3) 10 Joe Smith <Joe.Smith@inwap.com>
0.536 ( 12.9 / 24.0) 22 jwillmore@adelphia.net
0.501 ( 10.9 / 21.7) 10 $_@_.%_
0.483 ( 11.7 / 24.3) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.480 ( 6.7 / 14.1) 13 tassilo.parseval@post.rwth-aachen.de
0.426 ( 4.7 / 11.0) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.417 ( 20.6 / 49.5) 53 Ben Morrow <usenet@morrow.me.uk>
0.406 ( 4.9 / 12.1) 11 Jay Tilton <tiltonj@erols.com>
0.374 ( 6.5 / 17.3) 21 Paul Lalli <ittyspam@yahoo.com>
Bottom 11 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.895 ( 39.5 / 44.2) 18 tadmc@augustmail.com
0.588 ( 20.2 / 34.3) 45 "gnari" <gnari@simnet.is>
0.580 ( 2.5 / 4.3) 10 Joe Smith <Joe.Smith@inwap.com>
0.536 ( 12.9 / 24.0) 22 jwillmore@adelphia.net
0.501 ( 10.9 / 21.7) 10 $_@_.%_
0.483 ( 11.7 / 24.3) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.480 ( 6.7 / 14.1) 13 tassilo.parseval@post.rwth-aachen.de
0.426 ( 4.7 / 11.0) 13 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.417 ( 20.6 / 49.5) 53 Ben Morrow <usenet@morrow.me.uk>
0.406 ( 4.9 / 12.1) 11 Jay Tilton <tiltonj@erols.com>
0.374 ( 6.5 / 17.3) 21 Paul Lalli <ittyspam@yahoo.com>
11 posters (4%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
27 Perl & Sessions?
21 new to perl
18 Removing accents from spanish characters
17 webservices
17 Slow Sorting
15 Anyone got a good one-liner?
15 What with this open file descriptor/"Read on closed filehandle " stuff?
15 how die in AUTOLOAD
12 Regex comparison
11 Perl program and database locked but alive
10 If elsif beautification
10 HOW TO CHECK URL??
9 Need help with Undeliverable Emails
9 (newbie) How do I group a string for repetition count? {m,n}
8 local and my variables in a subroutine
8 teaching myself perl - stumped on this one!
8 perl implementation of rand() and srand()
7 accessing a hash
7 passing arrays to function
7 Nested arrays
These threads accounted for 33.8% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
82.0 ( 5.1/ 76.6/ 73.2) 5 REQ: Perl 5.8.3 on OpenBSD
71.3 ( 30.3/ 39.4/ 17.5) 27 Perl & Sessions?
46.9 ( 15.2/ 30.1/ 12.2) 15 What with this open file descriptor/"Read on closed filehandle " stuff?
44.2 ( 13.0/ 30.8/ 15.5) 17 Slow Sorting
34.7 ( 21.3/ 12.8/ 5.7) 21 new to perl
34.3 ( 2.0/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
30.8 ( 14.0/ 16.4/ 6.6) 15 how die in AUTOLOAD
29.6 ( 17.1/ 12.4/ 8.8) 17 webservices
28.0 ( 17.6/ 9.8/ 5.1) 18 Removing accents from spanish characters
27.3 ( 7.9/ 19.0/ 5.5) 8 teaching myself perl - stumped on this one!
27.1 ( 10.7/ 15.4/ 9.2) 12 Regex comparison
26.9 ( 13.7/ 12.4/ 5.1) 15 Anyone got a good one-liner?
22.4 ( 10.3/ 11.6/ 3.9) 10 If elsif beautification
22.3 ( 9.7/ 12.3/ 6.6) 11 Perl program and database locked but alive
21.5 ( 9.4/ 11.1/ 6.5) 9 Need help with Undeliverable Emails
18.0 ( 7.6/ 9.6/ 6.0) 8 local and my variables in a subroutine
15.6 ( 6.4/ 8.5/ 4.8) 8 perl implementation of rand() and srand()
15.5 ( 5.2/ 10.3/ 5.2) 7 accessing a hash
15.2 ( 4.7/ 10.1/ 7.4) 5 waitpid interrupted problem
14.1 ( 7.9/ 5.4/ 2.4) 9 (newbie) How do I group a string for repetition count? {m,n}
These threads accounted for 42.1% of the total volume.
Top 12 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.711 ( 8.8/ 12.4) 17 webservices
0.595 ( 9.2/ 15.4) 12 Regex comparison
0.539 ( 6.6/ 12.3) 11 Perl program and database locked but alive
0.526 ( 5.1/ 9.8) 18 Removing accents from spanish characters
0.514 ( 1.5/ 2.9) 10 HOW TO CHECK URL??
0.504 ( 15.5/ 30.8) 17 Slow Sorting
0.448 ( 5.7/ 12.8) 21 new to perl
0.444 ( 17.5/ 39.4) 27 Perl & Sessions?
0.416 ( 5.1/ 12.4) 15 Anyone got a good one-liner?
0.405 ( 12.2/ 30.1) 15 What with this open file descriptor/"Read on closed filehandle " stuff?
0.401 ( 6.6/ 16.4) 15 how die in AUTOLOAD
0.336 ( 3.9/ 11.6) 10 If elsif beautification
Bottom 12 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.711 ( 8.8 / 12.4) 17 webservices
0.595 ( 9.2 / 15.4) 12 Regex comparison
0.539 ( 6.6 / 12.3) 11 Perl program and database locked but alive
0.526 ( 5.1 / 9.8) 18 Removing accents from spanish characters
0.514 ( 1.5 / 2.9) 10 HOW TO CHECK URL??
0.504 ( 15.5 / 30.8) 17 Slow Sorting
0.448 ( 5.7 / 12.8) 21 new to perl
0.444 ( 17.5 / 39.4) 27 Perl & Sessions?
0.416 ( 5.1 / 12.4) 15 Anyone got a good one-liner?
0.405 ( 12.2 / 30.1) 15 What with this open file descriptor/"Read on closed filehandle " stuff?
0.401 ( 6.6 / 16.4) 15 how die in AUTOLOAD
0.336 ( 3.9 / 11.6) 10 If elsif beautification
12 threads (7%) had at least ten posts.
Top 11 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
4 comp.lang.perl.modules
3 comp.lang.perl
2 comp.programming
2 comp.lang.awk
2 microsoft.public.scripting.vbscript
2 gnu.utils.help
1 comp.databases.ibm-db2
1 news.answers
1 comp.text.xml
1 comp.answers
1 comp.lang.python
Top 12 Crossposters
===================
Articles Address
-------- -------
3 olczyk2002@yahoo.com
3 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
2 Bill <wherrera@lynxview.com>
2 Giles Brown <giles_brown@hotmail.com>
2 Joe Smith <Joe.Smith@inwap.com>
1 Jeremy <jcapp@belzon.com>
1 "Jürgen Exner" <jurgenex@hotmail.com>
1 Ben Morrow <usenet@morrow.me.uk>
1 NoJunkMailshah@xnet.com
1 jwillmore@adelphia.net
1 Sameh Abdelatef <samehabdelatef@yahoo.com>
------------------------------
Date: Mon, 8 Mar 2004 18:46:13 +0000
From: James Taylor <spam-block-@-SEE-MY-SIG.com>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <ant0818130b0fNdQ@nospam.demon.co.uk>
In article <104p97478jcdq2b@corp.supernews.com>,
Greg Bacon <gbacon@hiwaay.net> wrote:
>
> Bottom 11 Posters by OCR (minimum of ten posts)
> ===============================================
>
> (kb) (kb)
> OCR orig / body Posts Address
> ----- -------------- ----- -------
>
> 0.895 ( 39.5 / 44.2) 18 tadmc@augustmail.com
> 0.588 ( 20.2 / 34.3) 45 "gnari" <gnari@simnet.is>
Eh? That can't be right.
> Bottom 12 Threads by OCR (minimum of ten posts)
> ===============================================
>
> (kb) (kb)
> OCR orig / body Posts Subject
> ----- -------------- ----- -------
>
> 0.711 ( 8.8 / 12.4) 17 webservices
> 0.595 ( 9.2 / 15.4) 12 Regex comparison
Nor can that. What's up Greg?
--
James Taylor, Cheltenham, Gloucestershire, UK. PGP key: 3FBE1BF9
To protect against spam, the address in the "From:" header is not valid.
In any case, you should reply to the group so that everyone can benefit.
If you must send me a private email, use james at oakseed demon co uk.
------------------------------
Date: Mon, 8 Mar 2004 15:55:29 +0000 (UTC)
From: fasten@hrs.com (0.5225049252002061)
Subject: Urgent: 5000 Euro Reward (0.034379238786959254)
Message-Id: <c2i51h$g0e$249@grizzly.ps.uni-sb.de>
5000 Euro Belohnung / 5000 Euro Reward
--------------------------------------
Ich biete eine Belohnung von 5000 Euro wenn mir jemand verraet
wie ein Streetgame (International Money Game) die Leute um den
Spieler herrum beeinflusst.
0.12729602734903567
Ich stecke in genau diesem Unfug drin und irgendjemand manipuliert
alle Leute, denen ich begegne und Radio bzw. Fernsehprogramme, die
ich beobachte.
I offer a reward of 5000 Euro if anybody tells me how a streetgame
(International Money Game) manipulates the people around the player.
I'm currently trapped in something like that and somebody manipulates
everybody I meet and radio or TV programs I watch or listen to.
0.336683297134052
http://www.fastenrath.net/, http://slashdot.org/~fastenrath/
Bernhard Fastenrath
Steinfelder Gasse 1, 50670 Koeln, Germany
fon: +49-173-5166326
fax: +49-69-13306976636
email: fasten@hrs.com
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6234
***************************************
