[31886] in Perl-Users-Digest
Perl-Users Digest, Issue: 3149 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 28 00:09:32 2010
Date: Mon, 27 Sep 2010 21:09: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 Mon, 27 Sep 2010 Volume: 11 Number: 3149
Today's topics:
Claimed to be an "old hack" <cpolish@nonesuch.com>
Re: Claimed to be an "old hack" <ben@morrow.me.uk>
Re: Claimed to be an "old hack" <cpolish@nonesuch.com>
Re: Claimed to be an "old hack" <nospam-abuse@ilyaz.org>
Is $A = $B = n; valid? <Joey@still_Learning.invalid>
Re: Is $A = $B = n; valid? <mvdwege@mail.com>
Re: Is $A = $B = n; valid? <ben@morrow.me.uk>
Re: Is $A = $B = n; valid? <ben@morrow.me.uk>
Re: Is $A = $B = n; valid? <tadmc@seesig.invalid>
Re: Is $A = $B = n; valid? <Joey@still_Learning.invalid>
Re: Is $A = $B = n; valid? <Joey@still_Learning.invalid>
Re: Is $A = $B = n; valid? <ben@morrow.me.uk>
Re: Is $A = $B = n; valid? <tadmc@seesig.invalid>
Re: Is $A = $B = n; valid? <uri@StemSystems.com>
Re: Is $A = $B = n; valid? <uri@StemSystems.com>
Re: Is $A = $B = n; valid? <tadmc@seesig.invalid>
Re: Long script "just stops" sometime <xhoster@gmail.com>
Re: Need Regex for phone number <ernesto@ernestoreyes.com>
Re: Need Regex for phone number <ben@morrow.me.uk>
Re: toy list processing problem: collect similar terms <cartercc@gmail.com>
Re: toy list processing problem: collect similar terms <usenet-nospam@seebs.net>
Re: toy list processing problem: collect similar terms <john@castleamber.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Sep 2010 23:14:30 +0000
From: Charles Polisher <cpolish@nonesuch.com>
Subject: Claimed to be an "old hack"
Message-Id: <slrnia29cq.5en.cpolish@localhost.localdomain>
{(!($^O=~/^[M]*$32/i)&&($0=~s!^.*/!!))||($0=~s!.*\\!!)}
What the heck does this do? I tried a Google
code search with no luck. Can't wrap my had around it.
Found it here:
http://exploit-ng.googlecode.com/files/ENG_Debug.pl
--
Charles Polisher
------------------------------
Date: Tue, 28 Sep 2010 01:17:20 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Claimed to be an "old hack"
Message-Id: <gpo7n7-ans1.ln1@osiris.mauzo.dyndns.org>
Quoth cpolish@nonesuch.com:
> {(!($^O=~/^[M]*$32/i)&&($0=~s!^.*/!!))||($0=~s!.*\\!!)}
>
> What the heck does this do?
I almost certainly doesn't do what it's supposed to do :). That '*$32'
ought to read '.*32$'. Making that correction, we have an expression of
the form
(A && B) || C
which is a nasty shorthand for
if (A) {
B
}
else {
C
}
so expanding that and adding some more whitespace gives
if (! ($^O =~ /^[M].*32$/i) ) {
$0 =~ s!^.*/!!;
}
else {
$0 =~ s!.*\\!!;
}
The only standard value for $^O which matches that pattern is 'MSWin32',
so this is attempting (incorrectly) to remove any directory portion from
$0. It's incorrect because / and \ are not the only possible directory
separators, and Win32 is not the only OS which uses \. Replace it with
use File::Basename qw/basename/;
$0 = basename $0;
which is both correct and comprehensible.
Ben
------------------------------
Date: Tue, 28 Sep 2010 00:56:17 +0000
From: Charles Polisher <cpolish@nonesuch.com>
Subject: Re: Claimed to be an "old hack"
Message-Id: <slrnia2fbn.i8u.cpolish@localhost.localdomain>
On 2010-09-28, Ben Morrow <ben@morrow.me.uk> wrote:
>
> Quoth cpolish@nonesuch.com:
>> {(!($^O=~/^[M]*$32/i)&&($0=~s!^.*/!!))||($0=~s!.*\\!!)}
>>
>> What the heck does this do?
>
> I almost certainly doesn't do what it's supposed to do :). That '*$32'
> ought to read '.*32$'. Making that correction, we have an expression of
> the form
>
> (A && B) || C
>
> which is a nasty shorthand for
>
> if (A) {
> B
> }
> else {
> C
> }
>
> so expanding that and adding some more whitespace gives
>
> if (! ($^O =~ /^[M].*32$/i) ) {
> $0 =~ s!^.*/!!;
> }
> else {
> $0 =~ s!.*\\!!;
> }
>
> The only standard value for $^O which matches that pattern is 'MSWin32',
> so this is attempting (incorrectly) to remove any directory portion from
> $0. It's incorrect because / and \ are not the only possible directory
> separators, and Win32 is not the only OS which uses \. Replace it with
>
> use File::Basename qw/basename/;
>
> $0 = basename $0;
>
> which is both correct and comprehensible.
>
> Ben
Thank you so much!
------------------------------
Date: Tue, 28 Sep 2010 03:40:09 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Claimed to be an "old hack"
Message-Id: <slrnia2osp.ani.nospam-abuse@powdermilk.math.berkeley.edu>
On 2010-09-28, Ben Morrow <ben@morrow.me.uk> wrote:
>
> Quoth cpolish@nonesuch.com:
>> {(!($^O=~/^[M]*$32/i)&&($0=~s!^.*/!!))||($0=~s!.*\\!!)}
> I almost certainly doesn't do what it's supposed to do :). That '*$32'
> ought to read '.*32$'.
Just make sure that $32 eq '.*32$'. ;-) But `$1 means \1'-fix (if
whereever was one - do not remember offhand) may intervene...
> Making that correction, we have an expression of
> the form
>
> (A && B) || C
>
> which is a nasty shorthand for
>
> if (A) {
> B
> }
> else {
> C
> }
No, it is not.
Hope this helps,
Ilya
------------------------------
Date: Mon, 27 Sep 2010 15:11:04 -0700
From: "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>
Subject: Is $A = $B = n; valid?
Message-Id: <0g52a61ah608dm1esf7i6rlck3pu5a5voq@4ax.com>
Is the syntax $A = $B = $C = number acceptable?
--
Joey
------------------------------
Date: Tue, 28 Sep 2010 00:27:16 +0200
From: Mart van de Wege <mvdwege@mail.com>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <861v8eq0u3.fsf@gareth.avalon.lan>
"Joey@still_Learning.invalid" <Joey@still_Learning.invalid> writes:
> Is the syntax $A = $B = $C = number acceptable?
Depends on what you want to do; it *would* assign 'number' to all three
variables.
Can't say I like the construct though. It looks awfully hacky, IMO.
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Mon, 27 Sep 2010 23:27:53 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <9ci7n7-q8s1.ln1@osiris.mauzo.dyndns.org>
Quoth "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>:
> Is the syntax $A = $B = $C = number acceptable?
What happened when you tried it?
Ben
------------------------------
Date: Tue, 28 Sep 2010 01:06:15 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <n4o7n7-ans1.ln1@osiris.mauzo.dyndns.org>
Quoth Mart van de Wege <mvdwege@mail.com>:
> "Joey@still_Learning.invalid" <Joey@still_Learning.invalid> writes:
>
> > Is the syntax $A = $B = $C = number acceptable?
>
> Depends on what you want to do; it *would* assign 'number' to all three
> variables.
>
> Can't say I like the construct though. It looks awfully hacky, IMO.
Explain? It's a standard construction in C-derived languages, and makes
perfect sense once you realise assignment is just an operator like any
other with a well-defined return value (and useful side-effects, of
course).
(It's not something I would use very often, because it's not very often
I want to assign the same value to multiple variables at the same time.
The most common case would probably be something like (using Catalyst)
sub foo :Local {
my ($self, $c) = @_;
my $st = $c->stash;
my $item = $st->{item} = $c->model(...)->find(...);
though I can't say as I like even that much redundancy.)
Furthermore, in Perl (but not in C), assignment returns the LHS as an
lvalue, leading to standard idioms like
(my $y = $x) =~ s/foo/bar/;
Ben
------------------------------
Date: Mon, 27 Sep 2010 20:05:10 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <slrnia2frk.vn8.tadmc@tadbox.sbcglobal.net>
Joey@still_Learning.invalid <Joey@still_Learning.invalid> wrote:
> Is the syntax $A = $B = $C = number acceptable?
It is awfully rude of you to ask people when a machine could be asked
instead.
perl -ce '$A = $B = $C = 42'
-e syntax OK
--
Rest In Peace:
Jonah McClellan gave his life for his country in a
helicopter crash in Afghanistan on September 21,2010.
Please pray for his wife and three children.
------------------------------
Date: Mon, 27 Sep 2010 18:10:32 -0700
From: "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <4rf2a65qnf9ca0ddqb7jsm5l37veisj24o@4ax.com>
Ben Morrow wrote:
>
>Quoth "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>:
>> Is the syntax $A = $B = $C = number acceptable?
>
>What happened when you tried it?
>
It assigned number to all three variables. I knew it worked, but I was
inquiring about its acceptability in practice. (In the same way one might
question the practice of omitting 'strict.' It works, but is it acceptable
practice?) Is it possible that employing this syntax could get my script
in trouble somehow?
--
Joey
------------------------------
Date: Mon, 27 Sep 2010 18:35:30 -0700
From: "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <tgh2a65ba95l6enq0d0rbp2j7bjps89hmt@4ax.com>
Tad McClellan wrote:
>Joey@still_Learning.invalid <Joey@still_Learning.invalid> wrote:
>
>> Is the syntax $A = $B = $C = number acceptable?
>
>
>It is awfully rude of you to ask people when a machine could be asked
>instead.
>
> perl -ce '$A = $B = $C = 42'
>
>-e syntax OK
Thanks, Tad.
Sorry for your loss.
--
Joey
------------------------------
Date: Tue, 28 Sep 2010 03:10:01 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <pcv7n7-77u1.ln1@osiris.mauzo.dyndns.org>
Quoth "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>:
> Ben Morrow wrote:
> >
> >Quoth "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>:
> >> Is the syntax $A = $B = $C = number acceptable?
> >
> >What happened when you tried it?
> >
> It assigned number to all three variables. I knew it worked, but I was
> inquiring about its acceptability in practice. (In the same way one might
> question the practice of omitting 'strict.' It works, but is it acceptable
> practice?) Is it possible that employing this syntax could get my script
> in trouble somehow?
No, it's perfectly standard.
The only exception is when one of the variables in question is a glob,
or a scalar holding a glob. Glob assignment does strange things, and the
results don't always make sense.
Ben
------------------------------
Date: Mon, 27 Sep 2010 21:59:57 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <slrnia2mit.vsa.tadmc@tadbox.sbcglobal.net>
Joey@still_Learning.invalid <Joey@still_Learning.invalid> wrote:
> Ben Morrow wrote:
>>
>>Quoth "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>:
>>> Is the syntax $A = $B = $C = number acceptable?
>>
>>What happened when you tried it?
> I was
> inquiring about its acceptability in practice.
You may have intended to ask that, but that is not what you in fact asked.
You asked if the syntax is acceptable.
With a programming language, if the compiler/interpreter accepts it,
then it is, well, acceptable.
You have a learning opportunity, learn what the difference is
between "syntax" and "semantics":
http://www.google.com/#q=difference+between+syntax+and+semantics
> (In the same way one might
> question the practice of omitting 'strict.' It works, but is it acceptable
> practice?) Is it possible that employing this syntax could get my script
> in trouble somehow?
Those are questions of *semantics*, not of syntax.
Pigs can fly.
The syntax of that is perfectly fine.
Its semantics are certainly questionable (ie. wrong).
--
Rest In Peace:
Jonah McClellan gave his life for his country in a
helicopter crash in Afghanistan on September 21,2010.
Please pray for his wife and three children.
------------------------------
Date: Mon, 27 Sep 2010 23:32:09 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <87y6amh7ba.fsf@quad.sysarch.com>
>>>>> "JLi" == Joey@still Learning invalid <Joey@still_Learning.invalid> writes:
JLi> Tad McClellan wrote:
>> Joey@still_Learning.invalid <Joey@still_Learning.invalid> wrote:
>>
>>> Is the syntax $A = $B = $C = number acceptable?
>>
>>
>> It is awfully rude of you to ask people when a machine could be asked
>> instead.
>>
>> perl -ce '$A = $B = $C = 42'
>>
>> -e syntax OK
JLi> Thanks, Tad.
JLi> Sorry for your loss.
your loss as tad will likely not help you again. his advice is very
cogent. always let the computer help you first. human help should be
secondary.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 27 Sep 2010 23:33:08 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <87tylah79n.fsf@quad.sysarch.com>
>>>>> "TM" == Tad McClellan <tadmc@seesig.invalid> writes:
TM> Pigs can fly.
TM> The syntax of that is perfectly fine.
TM> Its semantics are certainly questionable (ie. wrong).
not according to pink floyd! :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 27 Sep 2010 22:53:34 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Is $A = $B = n; valid?
Message-Id: <slrnia2pnd.bq.tadmc@tadbox.sbcglobal.net>
Uri Guttman <uri@StemSystems.com> wrote:
>>>>>> "TM" == Tad McClellan <tadmc@seesig.invalid> writes:
>
> TM> Pigs can fly.
>
> TM> The syntax of that is perfectly fine.
>
> TM> Its semantics are certainly questionable (ie. wrong).
>
> not according to pink floyd! :)
Those wankers won't even let you have any pudding until
after you've finished your meat.
--
Rest In Peace:
Jonah McClellan gave his life for his country in a
helicopter crash in Afghanistan on September 21,2010.
Please pray for his wife and three children.
------------------------------
Date: Mon, 27 Sep 2010 19:13:21 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: Long script "just stops" sometime
Message-Id: <4ca1528b$0$2698$ed362ca5@nr5-q3a.newsreader.com>
Ben Morrow wrote:
> Quoth Xho Jingleheimerschmidt <xhoster@gmail.com>:
>> Peter J. Holzer wrote:
>>
>> Unfortunately, if you use strace "-p" option to attach to an
>> already-running process, if often doesn't show you what call the process
>> was waiting on at the time of the attachment. You would have to start
>> stracing the process from the beginning, which is inconvenient if the
>> situation at question only happens occasionally.
>
> You can find out what call the process is currently blocking in with ps.
Well, maybe *you* can. I've never been able to.
Xho
------------------------------
Date: Mon, 27 Sep 2010 17:00:59 -0700 (PDT)
From: lotug <ernesto@ernestoreyes.com>
Subject: Re: Need Regex for phone number
Message-Id: <b53bf3e5-efea-44e3-b1e8-730cf5ac37ee@28g2000yqm.googlegroups.com>
On Sep 27, 7:04=A0am, Justin C <justin.1...@purestblue.com> wrote:
> On 2010-09-23, lotug <erne...@ernestoreyes.com> wrote:
>
> > I need Regex to indentify 3108222400 phone number.
>
> You could try:
> if ($_ =3D~ /3108222400/) {
> =A0 =A0.
> =A0 =A0.
> =A0 =A0.
>
> }
>
> or did you have something else in mind?
>
> =A0 =A0Justin.
>
> --
> Justin C, by the sea.
Sorry, I guess I assumed to much.
Yes, I was looking for regex that would identify the phone number in a
txt string regardless of how it was formatted. Different people input
phone numbers in different ways. Also, I have regex that identifies a
phone number in a string, but I'm looking for perl regex that will
identify this particular number within a text string.
3108222400
(310) 822-2400
1(310) 822-2400
1-310-822-2400
Etc., etc.
Thanks for all of the responses.
------------------------------
Date: Tue, 28 Sep 2010 01:25:19 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Need Regex for phone number
Message-Id: <f8p7n7-ans1.ln1@osiris.mauzo.dyndns.org>
Quoth lotug <ernesto@ernestoreyes.com>:
> On Sep 27, 7:04 am, Justin C <justin.1...@purestblue.com> wrote:
> > On 2010-09-23, lotug <erne...@ernestoreyes.com> wrote:
> >
> > > I need Regex to indentify 3108222400 phone number.
> >
> > You could try:
> > if ($_ =~ /3108222400/) {
> >
> > or did you have something else in mind?
>
> Sorry, I guess I assumed to much.
> Yes, I was looking for regex that would identify the phone number in a
> txt string regardless of how it was formatted. Different people input
> phone numbers in different ways. Also, I have regex that identifies a
> phone number in a string, but I'm looking for perl regex that will
> identify this particular number within a text string.
>
> 3108222400
> (310) 822-2400
> 1(310) 822-2400
> 1-310-822-2400
For those forms, something like
/1? [-(]? 310 [-)]? \s* 822 -? 2400/x
may be sufficient, though it will catch strings like '-310)8222400'
that you don't want.
> Etc., etc.
You will need to make a complete list of all the forms you want to
catch, and create a regex that matches them. Probably the best way is a
simple alternation, which you can build like
my @cases = (
"3108222400",
"(310) 82202400",
"1(310) 822-2400",
"1-310-822-2400",
);
my ($pattern) = map qr/$_/, join "|", map "\Q$_", @cases;
Ben
------------------------------
Date: Mon, 27 Sep 2010 13:43:37 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: toy list processing problem: collect similar terms
Message-Id: <fdca5ec7-226a-452e-b349-8269e52e7120@x42g2000yqx.googlegroups.com>
On Sep 26, 12:05=A0am, Xah Lee <xah...@gmail.com> wrote:
> here's a interesting toy list processing problem.
>
> I have a list of lists, where each sublist is labelled by
> a number. I need to collect together the contents of all sublists
> sharing
> the same label. So if I have the list
>
> ((0 a b) (1 c d) (2 e f) (3 g h) (1 i j) (2 k l) (4 m n) (2 o p) (4 q
> r) (5 s t))
>
> where the first element of each sublist is the label, I need to
> produce:
>
> output:
> ((a b) (c d i j) (e f k l o p) (g h) (m n q r) (s t))
Here is a solution in Perl -- the verbose version. Please see my note
below.
SCRIPT:
use strict;
use warnings;
my %lists;
while (<DATA>)
{
chomp;
my ($k, @v) =3D split(/ /, $_);
push(@{$lists{$k}}, @v);
}
foreach my $k (sort keys %lists)
{
print "$k - @{$lists{$k}}\n";
}
exit(0);
__DATA__
0 a b
1 c d
2 e f
3 g h
1 i j
2 k l
4 m n
2 o p
4 q r
5 s t
OUTPUT:
>perl lists.plx
0 - a b
1 - c d i j
2 - e f k l o p
3 - g h
4 - m n q r
5 - s t
NOTE:
I assume that you want an idiomatic solution for the language. I have
therefore converted your data into a typical record oriented
structure. Perlistas don't use parenthesis. If you want a Lispy
solution, use Lisp. Further, Perl was made for exactly this kind of
problem, which is simple data munging, taking some input, transforming
it, and printing it out -- Practical Extraction and Reporting
Language. I know that some Lispers (R.G., are you reading?) will
object to a formulation like this: @{$lists{$k}}, but all this says
(in Perl) is to spit out the value contained in the hash element
$lists{$k} as an array, and is good idiomatic Perl, even if some
Lispers aren't quite up to the task of understanding it.
CC.
------------------------------
Date: 28 Sep 2010 02:45:50 GMT
From: Seebs <usenet-nospam@seebs.net>
Subject: Re: toy list processing problem: collect similar terms
Message-Id: <slrnia2lmu.1tgd.usenet-nospam@guild.seebs.net>
On 2010-09-26, J?rgen Exner <jurgenex@hotmail.com> wrote:
> It was livibetter who without any motivation or reasoning posted Python
> code in CLPM.
Not exactly; he posted it in a crossposted thread, which happened to include
CLPM and other groups, including comp.lang.python.
It is quite possible that he didn't know about the crossposting. However,
while I would agree that this would constitute a form of ignorance, I'd think
that, especially with how well some newsreading interfaces hide that detail,
I don't think it's really worth getting angry over.
-s
--
Copyright 2010, all wrongs reversed. Peter Seebach / usenet-nospam@seebs.net
http://www.seebs.net/log/ <-- lawsuits, religion, and funny pictures
http://en.wikipedia.org/wiki/Fair_Game_(Scientology) <-- get educated!
I am not speaking for my employer, although they do rent some of my opinions.
------------------------------
Date: Mon, 27 Sep 2010 22:36:27 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: toy list processing problem: collect similar terms
Message-Id: <877hi68rpg.fsf@castleamber.com>
Seebs <usenet-nospam@seebs.net> writes:
> On 2010-09-26, J?rgen Exner <jurgenex@hotmail.com> wrote:
>> It was livibetter who without any motivation or reasoning posted Python
>> code in CLPM.
>
> Not exactly; he posted it in a crossposted thread, which happened to include
> CLPM and other groups, including comp.lang.python.
>
> It is quite possible that he didn't know about the crossposting.
Oh, he does. It has been Xah's game for years.
> while I would agree that this would constitute a form of ignorance, I'd think
> that, especially with how well some newsreading interfaces hide that detail,
> I don't think it's really worth getting angry over.
You think wrong. And Jurgen should have known better than to reply several
times (but like too many people in cplm he posts for posting's sake, the
main reason why I don't follow that group anymore).
Xah has been doing this for many years and most of his posts are just
made to drive traffic to his site (hence they are copy paste of articles
on his site + link(s) to his site). It's Usenet abuse, on purpose.
The reason it pisses off people is that nearly weekly it causes a lot of
noise in newsgroups that are really better off without the noise
(IMNSHO).
See my other post on how to deal with this spammer. If you've missed it:
report him for spamming, since that's what he does. It already made him
have to move hosting providers once. While it's not going to stop him,
it will cost him money. See:
http://www.google.com/search?q=site%3Axahlee.org%20bokma
While I am named in that article be assured that I was not the only one
contacting dreamhost (+10 for doing this, btw). Quite some people
contacted me via email that they also talked with Dreamhost. Just keep
reporting this spammer, and maybe 1and1 will kick it out.
--
John Bokma j3b
Blog: http://johnbokma.com/ Facebook: http://www.facebook.com/j.j.j.bokma
Freelance Perl & Python Development: http://castleamber.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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 3149
***************************************
