[23269] in Perl-Users-Digest
Perl-Users Digest, Issue: 5489 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 11 18:05:43 2003
Date: Thu, 11 Sep 2003 15:05:11 -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 Thu, 11 Sep 2003 Volume: 10 Number: 5489
Today's topics:
client/server using Net::Telnet fails under certain con <stop.spam@whitehouse.gov>
Re: Converting DBM to other DB file type <noreply@gunnar.cc>
error in win32, not in linux? <bart-news@NOSPAMtvreclames.nl>
Re: execution of script from button (Greg Bacon)
How to replace a variable string within /* variable_str (Victor)
Re: How to replace a variable string within /* variable <mpapec@yahoo.com>
Re: Installing from CPAN on Win32 <michael.p.broida@boeing.com>
Re: IO:Select - what did I do wrong? <dodgynewsgroups@ewildgoose.demon.co.uk>
Re: IO:Select - what did I do wrong? (Greg Bacon)
Re: not able to access a URL with LWP::UserAgent. <danglesocket@no_spam>
Re: not able to access a URL with LWP::UserAgent. <bharnish@technologist.com>
Perl DBMS <dave334234@inter.com>
POSIX module sig handlers vs default <eric@dmcontact.com>
Re: Printing a hash of hashes using an array for the he (Anno Siegel)
Re: Redirecting via LWP <mbudash@sonic.net>
Re: Slice an array of hashes? <mpapec@yahoo.com>
Re: Speeding up LWP::Simple <me@privacy.net>
Re: Speeding up LWP::Simple <tcurrey@no.no.no.i.said.no>
Re: Speeding up LWP::Simple <gregs@trawna.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 11 Sep 2003 18:03:20 GMT
From: "Robert" <stop.spam@whitehouse.gov>
Subject: client/server using Net::Telnet fails under certain conditions. Help please
Message-Id: <HL2A5J.9qJ@news.boeing.com>
I wrote a server that listens for an input array of 1 or more elements. It
conducts a conditional loop looking for key patterns in array element [0].
Based upon the match the server executes a predetermined function e.g. if
($in[0] =~ /pattern/) { do something }. It works great when I telnet to the
assigned port on the host the server is listening to. That is,
telnet hostname 12000
fs
<execute a df from server>
When I run my client some of the commands work, $shell->print('some
command'), and some don't. I have tried closing the socket and reopening
it, turned on all the error messages I know about, print to the LOG files.
What I have determined is that the call to
open(CMD,"| ps -ef") or print LOG "ps failed $!\n"; fails to either
work (which I doubt since the log file doesn't have any entires for that
failure or the $shell->getlines(); is not receiving any input. Remember, it
works fine when I telnet manually. Any ideas as to why it is failing.
Thanx in advnace.
______END_____
$shell =
Net::Telnet->new(Host=>$host,Port=>$port,Timeout=>60,Errmode=>'return');
$shell->input_log($logfile);
$shell->dump_log($dumplog);
$fs_array = get_fs(); <<<<<<<<<<<< goes to server to execute and return a
df. Works fine!
($filesystems,$h_lvols) = clean_data($fs_array); <<<<<<<<< Not a
Net::Telnet sub.
$filesys = select_fs($filesystems); <<<<<<<< not a Net::Telnet sub.
($startd,$stopd) = select_dates(); <<<<<<<<<< not a Net::Telnet sub.
begin_extract($extract,$startd,$stopd); <<<<<< Net::Telnet sub. works
when I take out the following while loop and replace with sleep for 40.
$line = $shell->lastline;
print "This is lastline 1 $lastline\n";
$result = $shell->errmsg;
print "Error msg 1 $result\n";
$shell->close();
$shell =
Net::Telnet->new(Host=>$host,Port=>$port,Timeout=>60,Errmode=>'return');
while (1) {
print "XXX\n";
$shell->print("psef");
@psarray = $shell->getlines(); <<<<<<<<<<<<<< seems to fail here in that
nothing is returned to @psarray.
$line = $shell->lastline;
print "This is lastline 2 $lastline\n";
$result = $shell->errmsg;
print "Error msg 2 $result\n";
chomp(@psarray);
if (grep { /extract/ } @psarray ) {
print "grep match\n";
sleep 5;
} else {
print "last ---*\n";
last;
}
}
------------------------------
Date: Thu, 11 Sep 2003 22:38:17 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Converting DBM to other DB file type
Message-Id: <bjqn4r$m384q$1@ID-184292.news.uni-berlin.de>
Archi3 wrote:
> I have an older program which stores information in a dbm file...is
> there a way to convert this file into something Windows based or
----------------------------------------^^^^^^^^^^^^^^^^^^^^^^^
It's not apparent from the info you provided that there is a need to
convert the format in order to make it work on Windows. Simple DBM
files (SDBM), for instance, work fine on both *nix and Windows platforms.
http://www.perldoc.com/perl5.8.0/pod/perlport.html#Standard-Modules
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 11 Sep 2003 22:12:22 +0200
From: "Bart van den Burg" <bart-news@NOSPAMtvreclames.nl>
Subject: error in win32, not in linux?
Message-Id: <bjql2j$4d6$1@reader11.wxs.nl>
Hi
can someone take a look at:
http://bart.tvreclames.nl:8080/showfile.pl, files index.pl, functions.pm and
config.pm?
for some reason, this script works fine in linux, but not in win32 :/
the error i'm getting:
[Thu Sep 11 22:10:51 2003] [error] [client 80.60.202.155] Undefined
subroutine &main::config called at functions.pm line 6.
I really don't understand why this happens in win32...
since this happens both in CGI and from command line, i don't suppose this
is a CGI-specific question, right? otherwise, i'll ask elsewhere.
Thanks in advance
Bart
------------------------------
Date: Thu, 11 Sep 2003 18:05:18 -0000
From: gbacon@hiwaay.net (Greg Bacon)
Subject: Re: execution of script from button
Message-Id: <vm1eau3pn7uo6b@corp.supernews.com>
In article <cdc9faa1.0309110942.4712c65a@posting.google.com>,
Bharat <bxg018400@yahoo.com> wrote:
: [...]
:
: What is the easiest way to do this?
You'll get better answers in comp.infosystems.www.authoring.cgi.
Greg
--
Freedom needs courageous individuals who are willing to stand apart from
the mob, and state an unconventional truth.
-- Lew Rockwell
------------------------------
Date: 11 Sep 2003 11:49:27 -0700
From: gvictor97@yahoo.com (Victor)
Subject: How to replace a variable string within /* variable_string */ with x for each character in string?
Message-Id: <ab759f.0309111049.48aafe05@posting.google.com>
How to replace a variable string within /* variable_string */ with x
for each character in string?
The string may span on multiple lines.
for eaxmple:
/* string */ ->
/* xxxxxx */
/* stringstring */ ->
/* xxxxxxxxxxxx */
/* string1
string2
*/ ->
/* xxxxxxx
xxxxxxx
*/
Thanks,
Victor
------------------------------
Date: Thu, 11 Sep 2003 21:29:50 +0200
From: Matija Papec <mpapec@yahoo.com>
Subject: Re: How to replace a variable string within /* variable_string */ with x for each character in string?
Message-Id: <16j1mvoj9dvddd3ehdovma1ke10hnn3o0m@4ax.com>
X-Ftn-To: Victor
gvictor97@yahoo.com (Victor) wrote:
>How to replace a variable string within /* variable_string */ with x
>for each character in string?
>
>The string may span on multiple lines.
>
>for eaxmple:
>
>/* string */ ->
>/* xxxxxx */
>
>/* stringstring */ ->
>/* xxxxxxxxxxxx */
>
>/* string1
> string2
>*/ ->
>
>/* xxxxxxx
> xxxxxxx
>*/
$code =~ s{/\*(.+?)\*/}{
(my $com = $1) =~ s/\S/x/g;
"/*$com*/";
}ges;
--
Matija
------------------------------
Date: Thu, 11 Sep 2003 18:57:57 GMT
From: "Michael P. Broida" <michael.p.broida@boeing.com>
Subject: Re: Installing from CPAN on Win32
Message-Id: <3F60C5B5.2CA81791@boeing.com>
Sisyphus wrote:
>
> Michael P. Broida wrote:
> > Hi!
> > I downloaded a module from CPAN. I want to install it on my system,
> > but NOT in the net-wide perl "lib" area; I want it in a subdirectory
> > under my home dir until I can verify that it does what I need AND I
> > can convince the site admin to install it permanently. So, I can't
> > follow the installation instructions EXACTLY; I have to tailor them
> > a bit. OK, check the docs on how to do that.
> >
> > I did:
> > perldoc -q "install a module"
> > and perldoc -q "keep my own module"
> > and got back some useful looking info.
> >
> > The first one basically says to do:
> > 1) Unpack the source into a temporary area.
> > 2) perl Makefile.PL
> > 3) make
> > 4) make test
> > 5) make install
> >
> > Sounds pretty simple, and the second perldoc search tells me to use
> > "perl Makefile.PL PREFIX=<path>" insted of 2) above to make it use a
> > local library instead of the site-wide one. Good.
> >
> > But when I try that, WITH or WITHOUT the PREFIX arg, it tells me it
> > can't find installed Perl. It's looking on the S: drive (my DVD drive),
> > but our Perl is installed on a network drive connected to T:. NOTE:
> > my PERLLIB env.var. points to the same directory via a UNC path. (I
> > think "UNC" is the right term; please correct me if needed.)
>
> Try 'perl Makefile.PL LIB=<path>'.
> See 'perldoc ExtUtils::MakeMaker' for some additional documentation.
I looked there yesterday; LOTS and LOTS of confusing info. :)
Just now tried using "LIB=" as you suggest, pointing to a new
subdirectory on C:, but I get the same error: it wants to find
the Perl installation on the S: drive, but ours is on T: instead.
Any ideas how to make it see the Perl installation on T:??
Or why MakeMaker wants to see it on S:??
Mike
------------------------------
Date: Thu, 11 Sep 2003 20:49:00 GMT
From: "Ed W" <dodgynewsgroups@ewildgoose.demon.co.uk>
Subject: Re: IO:Select - what did I do wrong?
Message-Id: <0d58b.19738$Os1.159146@news.easynews.com>
> : Anything else I should look at...?
>
> Install an operating system? :-) :-) :-)
Yeah, fair enough....
...It's going to be used by other people though, and the spec indicates MS
windows....
...oh well
Thanks
Ed W
------------------------------
Date: Thu, 11 Sep 2003 21:51:01 -0000
From: gbacon@hiwaay.net (Greg Bacon)
Subject: Re: IO:Select - what did I do wrong?
Message-Id: <vm1ri5te013335@corp.supernews.com>
In article <0d58b.19738$Os1.159146@news.easynews.com>,
Ed W <dodgynewsgroups@ewildgoose.demon.co.uk> wrote:
: > Install an operating system? :-) :-) :-)
:
: Yeah, fair enough....
:
: ...It's going to be used by other people though, and the spec indicates MS
: windows....
:
: ...oh well
Have you considered feeding STDIN to a socket and adding the target
socket to your fd_set? Lucky for you that recent versions of perl on
Win32 have fork emulation.
Greg
--
Government seems to operate on the principle that if even one individual
is incapable of using his freedom competently, no one can be allowed to
be free.
-- Harry Browne
------------------------------
Date: Thu, 11 Sep 2003 15:31:49 -0400
From: danglesocket <danglesocket@no_spam>
Subject: Re: not able to access a URL with LWP::UserAgent.
Message-Id: <3f60cda7@shknews01>
On Thu, 11 Sep 2003 12:57:02 -0400, danglesocket wrote:
> I need to solve this problem with perl, forgive me if it stretches the
> 'params' of this group. thanks
>
> This problem originated from not being able to access a URL with
> LWP::UserAgent.
>
> Error, cant get page https://webpage.jsp -- 302 Moved Temporarily
[snip...]
Try a real URL. Looks like your server is "webpage.jsp", can
you "ping webpage.jsp"? If not then your url is bad. Also, if that is the
server name, try putting a '/' on the end of it, thats the way it should
be.
Rather than responding with a half assed answer that proves that you didn't
read the question and
tries to make me look like an idiot, either don't respond or offer somthing
more 'insightful'.
original post stated, "I can access the url/page fine from any GUI
browser." and that
(sorry it's an intranet page,... not available outside)
-how would i be able to do that if this was a simple non-existant url
issue.
https://webpage.jsp - i thought it was clear that this was an example, not a
real url, sorry if that wasn't clear.
- i guess i should have used https://example.org/webpage.jsp. - RFC 2606,
Section 3.
or https://localhost/webpage.jsp
thanks anyway.
__danglesocket__
------------------------------
Date: Thu, 11 Sep 2003 20:11:43 GMT
From: Brian Harnish <bharnish@technologist.com>
Subject: Re: not able to access a URL with LWP::UserAgent.
Message-Id: <pan.2003.09.11.20.12.09.284400@technologist.com>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
On Thu, 11 Sep 2003 15:31:49 -0400, danglesocket wrote:
> Rather than responding with a half assed answer that proves that you didn't
> read the question and
> tries to make me look like an idiot, either don't respond or offer somthing
> more 'insightful'.
>
> original post stated, "I can access the url/page fine from any GUI
> browser." and that
> (sorry it's an intranet page,... not available outside)
>
> -how would i be able to do that if this was a simple non-existant url
> issue.
> https://webpage.jsp - i thought it was clear that this was an example, not a
> real url, sorry if that wasn't clear.
>
> - i guess i should have used https://example.org/webpage.jsp. - RFC 2606,
> Section 3.
> or https://localhost/webpage.jsp
I read the question. It's often easiest to help solve the problem when you
know what all the variables are in the problem. Perhaps the problem is
with your url (not the one you said, but the one you really did use) and
all the GUI browsers take into account crappy URL's that LWP and Lynx
don't.
And no, it's not clear that you replaced the url when you quoted the rest
of the error message. "Error, cant get page https://webpage.jsp -- 302
Moved Temporarily Aborting at ./curu.pl line 77." If you go around
changing what the error messages say, without explicitly saying you did,
why not change the line number too?
For a starter, try ditching simplifying by ditching the ssl part.
A Half assed answer to a half assed question.
- Brian
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.2 (GNU/Linux)
iD8DBQE/YNcUiK/rA3tCpFYRAuhsAJ9bwRju3+kJj9pjI3wbO35dG/NlJQCfVrKZ
mioQ5Qt69g2NqYq5MvsQtAY=
=HSMu
-----END PGP SIGNATURE-----
------------------------------
Date: Thu, 11 Sep 2003 22:22:33 +0100
From: "Dave" <dave334234@inter.com>
Subject: Perl DBMS
Message-Id: <EJ58b.265$WI3.4026@newsfep4-glfd.server.ntli.net>
Hi,
I have a ikonboard messageboard ( which is written in perl), and I have all
the databases saved locally.
However they are in a *.db, *.dnt.db format, and i cannot access them via
the standard dbmopen(%hash, $database, 0666).
It simply creates a new file instead of accessing the current one.
I had a suspicion that the version of dbm on the server ( ie the one that
created the databases at the start) is a diffenent on to the one on my
windows machine.
So i copied the perl script to the server and tried to run it there - still
unsuccessfully.
Could not open message_data-115-1055789109 (Invalid argument) at read.pl
line 36.
( I removed the .db from the filename ).
Does anyone know what the problem is. I can post a sample database if
required.
Thanks
------------------------------
Date: Thu, 11 Sep 2003 18:48:42 GMT
From: bob <eric@dmcontact.com>
Subject: POSIX module sig handlers vs default
Message-Id: <3F60C35D.7060202@dmcontact.com>
Hi,
I have been reading Interprocess Communication in the Camel book 3rd ed,
and doing a lot of experimenting with IO::Socket::INET in at least one
example I found it uses the POSIX module to create single handlers. Here
is one example I am using now that seems to work:
my $sigset = POSIX::SigSet->new();
my $action = POSIX::SigAction->new('sigHUP_handler',
$sigset,
&POSIX::SA_NODEFER);
my $action_alrm = POSIX::SigAction->new('sigALRM_handler',
$sigset,
&POSIX::SA_NODEFER);
POSIX::sigaction(&POSIX::SIGHUP, $action);
POSIX::sigaction(&POSIX::SIGALRM, $action_alrm);
sub sigHUP_handler {
print "got SIGHUP\n";
exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
}
sub sigALRM_handler {
print "got ALARM timeout\n";
}
So my question is what is different, about this vs using the much more
simple looking example below?
$SIG{CHLD} = \&REAPER;
sub REAPER {
$SIG{CHLD} = \&REAPER; # loathe sysV
$waitedpid = wait;
logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
}
I have made, as in Dr. Franenstiem made the below script, but I am not
sure if I should handle this child cleanup by this simpler looking way,
or the POSIX way. The other thing that worries me on this, is that the
simple method is from an example using Socket whereas I am using the
higherlevel IO::SOCKET. Does that matter? I mean a single is a single
right?
Thanks,
Eric
------------------------------
Date: 11 Sep 2003 19:05:54 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Printing a hash of hashes using an array for the headings and getting the columns to line up
Message-Id: <bjqh2i$j0s$1@mamenchi.zrz.TU-Berlin.DE>
David K. Wall <usenet@dwall.fastmail.fm> wrote in comp.lang.perl.misc:
> Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>
> > I can't resist the temptation to plug my module Text::Table. Here
> > is how:
> >
> > use Text::Table;
> >
> > my $tb = Text::Table->new( 'name', @family);
> > $tb->add( $_, @{ $people{ $_}}{ @family}) for sort keys
> > %people;
> >
> > print $tb;
> >
> > The advantage is that it figures out the alignment for you, that
> > is, you don't have to write and maintain the printf format.
>
> I like it, and I have a project at hand for which it is very useful.
> Thank you!
>
> But there's one thing I haven't been able to figure out, and that's
> how to right-align a column title. For example,
>
> use Text::Table;
> my $tb = Text::Table->new("TLA");
> $tb->load( qw(188.52 0.00 97.36 185.51) );
> print $tb;
>
> produces
>
> TLA
> 188.52
> 0.00
> 97.36
> 185.51
>
> What I want to produce is
>
> TLA
> 188.52
> 0.00
> 97.36
> 185.51
>
>
> Maybe I'm being obtuse or haven't read the docs closely enough, but I
> don't see how to do this.
That's because you can't. Sorry.
In fact there's too little user control over alignment in more respects,
title-to-body alignment is just one of them. It will be the first thing
to fix if there is another release, but I'm not yet sure how to do it.
The problem isn't that these features are hard to implement, but how
to squeeze them into the user interface, which isn't exactly a beauty
to begin with. In fact, that's why I left them out in the first place,
that, and that I'd have to describe them all. I thought I'd get away
with it, but you're not the first to complain.
Anno
------------------------------
Date: Thu, 11 Sep 2003 18:20:13 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Redirecting via LWP
Message-Id: <mbudash-94523B.11201311092003@typhoon.sonic.net>
On Thursday, September 11, 2003, at 08:54 AM, Warhurst, SI (Spencer)
wrote (via email):
> > -----Original Message-----
> > From: Michael Budash [mailto:mbudash@sonic.net]
> >
> > the security scheme you're working against is *supposed* to make it
> > difficult to access the directory!
>
> Yes, of course.. but when you navigate to an Apache password protected
> directory from your browser, once you have successfully authenticated
> once, you can navigate around the directory and open files without any
> further authentication until you close that browser session. All I am
> trying to do is to emulate that, which doesn't strike me as being an
> unreasonable desire!
true, and i didn't say it was "unreasonable"... but you aren't actually
"navigat[ing] to an Apache password protected directory from your
browser", so you will have to re-authenticate each time. no way around
that.
> > why is writing a script to accomplish your task any more work than the
> > work you've already put into this?
>
> Well, evidently, it *is* heading towards being as big a task as doing
> the directory listing via my script, but I'm still clinging on to the
> idea that what I want to do should be straight forward, instead of
> having to write dozens more lines of code to handle listing and the
> other implications specific to our service and that will place extra
> CGI overheads on the server because everytime someone clicks on a file
> a CGI process will have to run.
>
> Anyway, you evidently haven't needed to do what I'm trying to do, so
> thanks for trying to help previously.
note: i welcome anyone in this ng to correct/elaborate on my next
comments:
you can't do what you're trying to do in the way you're trying to do
it.
read the apache "Authentication, Authorization, and Access Control"
docs at http://httpd.apache.org/docs/howto/auth.html.
the web client (in most cases, a web browser) is a critical part of any
.htaccess protection scheme. fact is, in order for a web client to be
given access to a .htaccess-protected directory *without* the user
having to put in a user/pass, the user has to have previously entered
that info in that client, or the client has to have been passed that
info in a way it understands, whether that way is supported or not, for
*each* access. 2 ways i know can think to investigate are:
1 - mod_perl - it's fast (WAY faster than CGI), it's transparent, and
you have access to the http request long before it's handed off the the
CGI world. however, if you don't already know how to use it, there is a
learning curve. (i'm currently at/near the bottom of this curve...)
2 - PHP - when compiled into apache as a module it has several, but not
all, of the capabilities of mod_perl. the capabilities is lacks may
well be the ones you need...
really hope this helps. and please, if you come up with a solution,
share it with the ng, ok?
--
Michael Budash
------------------------------
Date: Thu, 11 Sep 2003 21:20:00 +0200
From: Matija Papec <mpapec@yahoo.com>
Subject: Re: Slice an array of hashes?
Message-Id: <36g1mvct42g5sk6od4v16hn0gbbrneh8o0@4ax.com>
X-Ftn-To: Graham
GrahamWilsonCA@yahoo.ca (Graham) wrote:
>>> #untested
>>> my @idx = grep $atm[$_]{id} =~ /^(?:foo|bar)$/, 0 .. $#atm;
>
>Thanks a lot Matija! That is very close to what I want. The only
>trouble is that 'foo' and 'bar' are given in a command line option and
>I cannot seem to build a (for lack of a better word) 'dynamic' regex
>that is composed of my command line options.
>
>What is wrong with:
>
> $search = "\^(\?:" . join("|", @search) . ")\$";
> my @idx = grep $atm[$_]{"id"} =~ /$search/, 0 .. $#atm;
There is nothing wrong with your $search, you could eventually remove first
two unneeded backslashes and compile regex for faster execution,
$search = qr/$search/;
..and make sure that @search and @atm contain things that you want there. ;)
--
Matija
------------------------------
Date: Fri, 12 Sep 2003 08:05:28 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: Speeding up LWP::Simple
Message-Id: <bjqkfq$lrdi9$1@ID-172104.news.uni-berlin.de>
"John Bokma" <postmaster@castleamber.com> wrote in message
news:1063246517.512524@halkan.kabelfoon.nl...
> I recently read a mail I wrote, complaining like mad about 5 or 6 spam
> mails a day... those where the days (1997). I receive now 200+ unwanted
> mails a day :-(. Yet I never going as far as changing my email address
> or munging the ones in the headers.
Time for you to use http://www.spamassassin.org/
Written in Perl of course :-)
------------------------------
Date: Thu, 11 Sep 2003 13:28:49 -0700
From: "Trent Curry" <tcurrey@no.no.no.i.said.no>
Subject: Re: Speeding up LWP::Simple
Message-Id: <bjqm2a$gt4$1@news.astound.net>
Tintin wrote:
> "John Bokma" <postmaster@castleamber.com> wrote in message
> news:1063246517.512524@halkan.kabelfoon.nl...
>> I recently read a mail I wrote, complaining like mad about 5 or 6
>> spam mails a day... those where the days (1997). I receive now 200+
>> unwanted mails a day :-(. Yet I never going as far as changing my
>> email address or munging the ones in the headers.
>
> Time for you to use http://www.spamassassin.org/
>
> Written in Perl of course :-)
I had recently read an article (somewhere in groups.google.com) claiming
that, while it cna block some spam, in reality, it will not block
everything and many spams cna get through it. Though nice to know these
solutions are being attempted in Perl ;p
--
Trent Curry
perl -e
'($s=qq/e29716770256864702379602c6275605/)=~s!([0-9a-f]{2})!pack("h2",$1)!eg
;print(reverse("$s")."\n");'
------------------------------
Date: Thu, 11 Sep 2003 21:28:07 GMT
From: Greg Schmidt <gregs@trawna.com>
Subject: Re: Speeding up LWP::Simple
Message-Id: <p5q1mv89pj17o5fgmcc671s8vmqjo89ffr@4ax.com>
On Thu, 11 Sep 2003 13:28:49 -0700, "Trent Curry"
<tcurrey@no.no.no.i.said.no> wrote:
>Tintin wrote:
>> Time for you to use http://www.spamassassin.org/
>>
>> Written in Perl of course :-)
>
>I had recently read an article (somewhere in groups.google.com) claiming
>that, while it cna block some spam, in reality, it will not block
>everything and many spams cna get through it. Though nice to know these
>solutions are being attempted in Perl ;p
I have it running on my server. It is currently correctly blocking over
1000 spams per week, and allowing only a small handful (I'd say single
digits, often low single digits) through in the same period.
--
Greg Schmidt (gregs@trawna.com)
Trawna Publications (http://www.trawna.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.
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 5489
***************************************
