[23265] in Perl-Users-Digest
Perl-Users Digest, Issue: 5485 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 11 03:05:47 2003
Date: Thu, 11 Sep 2003 00:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 11 Sep 2003 Volume: 10 Number: 5485
Today's topics:
Re: "between" function equivalent in Perl? <ebohlman@earthlink.net>
Re: "between" function equivalent in Perl? (Tad McClellan)
Re: "between" function equivalent in Perl? (Tad McClellan)
Re: "between" function equivalent in Perl? <krahnj@acm.org>
Re: calculation in string <tom@nosleep.net>
Re: calculation in string (Sam Holden)
Re: Converting pdf to text <minceme@start.no>
Re: Defeating OS buffering? <minceme@start.no>
Re: Defeating OS buffering? <kevin@vaildc.net>
Re: Is this perl poblem? <tim@vegeta.ath.cx>
Newsgroup post test... <NoSpamPlease@bellsouth.net>
Re: Newsgroup post test... <usenet@dwall.fastmail.fm>
Re: Newsgroup post test... (Tad McClellan)
Re: Newsgroup post test... <tcurrey@no.no.no.i.said.no>
Re: Number of elements in an array (Graham)
Re: Number of elements in an array (Graham)
Re: Perl vs TCL (James Willmore)
Posting with Net::NNTP (Mike)
Re: Posting with Net::NNTP <krahnj@acm.org>
Re: seeking Win32::OLE example (Jay Tilton)
Re: Speeding up LWP::Simple <postmaster@castleamber.com>
Re: Speeding up LWP::Simple <tcurrey@no.no.no.i.said.no>
Re: Speeding up LWP::Simple <postmaster@castleamber.com>
Re: Splitting and keeping the delimiter <uri@stemsystems.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Sep 2003 01:50:18 GMT
From: Eric Bohlman <ebohlman@earthlink.net>
Subject: Re: "between" function equivalent in Perl?
Message-Id: <Xns93F2D56A348Febohlmanomsdevcom@130.133.1.4>
"Alexandra" <sagittaur@ftml.net> wrote in
news:bjo84m$313$1@lumberjack.rand.org:
> Okay, I read up a bit more (and re-read), and I still do not fully
> understand the implications of scalar v. list context. And I tried to
Probably the most important thing to remember about context is this:
When you're doing an assignment, whether it takes place in scalar context
or list context is determined by the *left* side of the assignment, *not*
the right side! The thingy (technical Perl term) being assigned *to* gives
marching orders to the expression being evaluated to assign *from*.
my $var=expression(); #scalar context because the left side is a scalar
my ($var)=expression(); #list context because the left side is a list
@values=expression(); #list context; array on left side acts like a list
------------------------------
Date: Thu, 11 Sep 2003 00:00:12 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: "between" function equivalent in Perl?
Message-Id: <slrnbm00as.5kh.tadmc@magna.augustmail.com>
Eric Bohlman <ebohlman@earthlink.net> wrote:
> "Alexandra" <sagittaur@ftml.net> wrote in
> news:bjo84m$313$1@lumberjack.rand.org:
>
>> Okay, I read up a bit more (and re-read), and I still do not fully
>> understand the implications of scalar v. list context. And I tried to
>
> Probably the most important thing to remember about context is this:
The most important thing to remember about context is this:
It is the operator or function being used that imposes
context its operands/arguments.
Which is my paraphrasing of the first sentence in the "Context"
section of perldata.pod:
The interpretation of operations and values in Perl sometimes depends
on the requirements of the context around the operation or value.
> When you're doing an assignment, whether it takes place in scalar context
> or list context is determined by the *left* side of the assignment, *not*
> the right side! The thingy (technical Perl term) being assigned *to* gives
> marching orders to the expression being evaluated to assign *from*.
When the operator being used is the assignment operator, _then_
that becomes important (especially since it is a "strange" one).
It doesn't help at all when the operator used is, say, print().
In the context <g> of this thread about context, the most important
thing _is_ what context the assignment operator puts on its operands,
but I thought I'd throw out the more general rule in case it helps anyone.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 10 Sep 2003 23:42:58 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: "between" function equivalent in Perl?
Message-Id: <slrnblvvai.5kh.tadmc@magna.augustmail.com>
Alexandra <sagittaur@ftml.net> wrote:
> $mystring = ('xxx blah=bleh @', 'yyy bloh=bluh @', 'zzz blea=blech @');
You should always enable warnings when developing Perl code!
Did you print out $mystring to see what it contains at this point?
That code has the same effect as:
$mystring = 'zzz blea=blech @';
(only it doesn't do "busy work" and then discard the results)
> $mymatch = $mystring =~ /=(.*?)\s/; #for example (one of the
> correct solutions previously provided) returns 1
That is m// in a scalar context, it returns "true" or "false".
(which might be 1 or 0, but could be something else.)
> ($mymatch) = $mystring =~ /=(.*?)\s/; #returns 'blech', the last
> value to match in the string
That is m// in a list context, it returns all of the "memories"
if the match succeeds.
> Would you know how to get it to return 3 instead of 1?
if $mystring contains the "3" character, then:
($mymatch) = $mystring =~ /(3)/;
> (I know, I've got to read and keep at this to understand lists and contexts.
> The advanced and even not-advanced programmers reading this must be laughing
> at me but if I can learn it then its worth it.)
Please see the Posting Guidelines that are posted here frequently.
It suggests you use warnings.
It suggests you post real code.
We could save a lot of round-and-round if you had just
done it right the first time...
If you don't understand something in the "Context" section
of perldata.pod, then post that part here, and we'll try
helping you to understand it.
It is unclear what you've already seen, and it would be a waste
of time doing all here if what is in the std docs is enough for you.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 11 Sep 2003 06:30:16 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: "between" function equivalent in Perl?
Message-Id: <3F601672.36E2930E@acm.org>
Alexandra wrote:
>
> "John W. Krahn" wrote:
> > Alexandra wrote:
>
> > > $mystr = `grep $in{lookup_key} /AAA/bbbb/ccc/dd/eeee.ff`;
> >
> > Instead of running an external program for this you can do it in perl
> > and have better control of error reporting:
> >
> > my $file = '/AAA/bbbb/ccc/dd/eeee.ff';
> > open my $fh, '<', $file or die "Cannot open $file: $!"
> > my $mystr = join '', grep $in{lookup_key}, <$fh>;
> > close $fh;
>
> That's great. I did see the grep function in the Perl books, but was a
> little afraid to tackle that before I got a handle on the matching. This way
> seems much cleaner and contained. I will also be needing to use this
> functionality in another part of the script to update an Apache .htaccess
> file. Hashes are next... <g>
That was just an example. :-) Something like this may actually work:
my $mystr = join '', grep /\Q$in{lookup_key}\E/, <$fh>;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 10 Sep 2003 22:46:54 -0700
From: "Tom" <tom@nosleep.net>
Subject: Re: calculation in string
Message-Id: <3f600bab@nntp0.pdx.net>
wtf is "perldoc -q usenet"?
Just tell me the newsgroup please.
I'm in windows right now, though I do have several Linux boxes and I work
solely in SunOS5 at work.
Yes, I have the windows perl port and use it regularly.
Works great. Also have the xemacs port for windows :)
I know, I am hearing your scream now :)
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:GQH7b.18421$98.13891@nwrddc03.gnilink.net...
> Tom wrote:
> > and what would be the mainstream perl newsgroups?
>
> Please see "perldoc -q usenet".
> And don't top-post-full-quote!
>
> jue
>
>
------------------------------
Date: 11 Sep 2003 06:54:36 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: calculation in string
Message-Id: <slrnbm071c.p2v.sholden@flexal.cs.usyd.edu.au>
On Wed, 10 Sep 2003 22:46:54 -0700, Tom <tom@nosleep.net> wrote:
> wtf is "perldoc -q usenet"?
A reference to the FAQ that comes with perl.
The FAQ you are supposed to check *before* posting.
The FAQ that specifically answers your question.
Run the command:
perldoc -q usenet
on one of the machines with perl on it (and set up to include the perl bin
directory in your path) for the answer to your original question.
>
> "Jürgen Exner" <jurgenex@hotmail.com> wrote in message
> news:GQH7b.18421$98.13891@nwrddc03.gnilink.net...
>> Tom wrote:
>> > and what would be the mainstream perl newsgroups?
>>
>> Please see "perldoc -q usenet".
>> And don't top-post-full-quote!
>>
>> jue
>>
>>
I see you ignored the second statement. Hope you don't have any
perl quesions later, since I suspect a whole bunch of very knowledgable
and helpful folk won't be reading your posts...
--
Sam Holden
------------------------------
Date: Thu, 11 Sep 2003 01:51:13 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Converting pdf to text
Message-Id: <bjokeh$fat$1@troll.powertech.no>
Chandramohan Neelakantan <knchandramohan@yahoo.com> wrote:
> Hello all,
>
> Need to extract text information from a pdf file , write the text
> to a file for a hardware project .
You could try using the command line utility pdftotext from the xpdf
distribution. I've got better experience with that tool than with using
pdf2ascii (comes with ghostscript).
Just my two cents,
--
Vlad
------------------------------
Date: Thu, 11 Sep 2003 01:51:13 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Defeating OS buffering?
Message-Id: <bjokeh$fat$2@troll.powertech.no>
Eric Schwartz <emschwar@pobox.com> wrote:
> Vlad Tepes <minceme@start.no> writes:
>
> <snip>
>
>> The C-program:
>>
>> #include <stdio.h>
>> #include <unistd.h>
>>
>> int main ( void ) {
>> printf("Some text...");
>> fflush(NULL);
> ^^^^^^^^^^^^^
> <snip>
>
> That's the problem. Take that out, and it won't work. As I said, I
> don't have control over the C program, so I can't make it fflush.
Then I have to say pass. :-(
I don't know if it is possible to force a program to flush it's output.
And if it is, I suppose the solution will be OS-dependant.
--
Vlad
------------------------------
Date: Wed, 10 Sep 2003 23:44:55 -0400
From: Kevin Michael Vail <kevin@vaildc.net>
Subject: Re: Defeating OS buffering?
Message-Id: <kevin-2A3AC7.23445510092003@news101.his.com>
In article <bjokeh$fat$2@troll.powertech.no>,
Vlad Tepes <minceme@start.no> wrote:
> Eric Schwartz <emschwar@pobox.com> wrote:
>
> > Vlad Tepes <minceme@start.no> writes:
> >
> > <snip>
> >
> >> The C-program:
> >>
> >> #include <stdio.h>
> >> #include <unistd.h>
> >>
> >> int main ( void ) {
> >> printf("Some text...");
> >> fflush(NULL);
> > ^^^^^^^^^^^^^
> > <snip>
> >
> > That's the problem. Take that out, and it won't work. As I said, I
> > don't have control over the C program, so I can't make it fflush.
>
> Then I have to say pass. :-(
>
> I don't know if it is possible to force a program to flush it's output.
> And if it is, I suppose the solution will be OS-dependant.
Not that this is going to be useful, but if you can put a ptty between
the parent and the child, the child should revert to line buffering
because it'll think its output is going to a device. I have no idea how
to go about this in Perl, though (I used to know how to do it in C).
Also, only works under *NIX variants, as far as I know.
--
Kevin Michael Vail | Dogbert: That's circular reasoning.
kevin@vaildc.net | Dilbert: I prefer to think of it as no loose ends.
http://www.vaildc.net/kevin/
------------------------------
Date: 10 Sep 2003 18:11:24 -0700
From: Tim Hammerquist <tim@vegeta.ath.cx>
Subject: Re: Is this perl poblem?
Message-Id: <slrnblvisq.a4k.tim@vegeta.ath.cx>
Marshall Dudley graced us by uttering:
> "Jürgen Exner" wrote:
> > Marshall Dudley wrote:
> > > When exec is used to shell tar, and tar is piped back to
> > > stdout, [...] Anyone have any ideas on at least
> > > program/system I should be working on to try and resolve
> > > this?
> >
> > Have you tried using Archive::Tar instead of shelling out to
> > /usr/bin/tar?
>
> It appears to not support compression.
tar(1) itself doesn't support compression either.
HOWEVER:
I found the following in `perldoc Archive::Tar`, which you no
doubt looked at:
| If you have the Compress::Zlib module installed, Archive::Tar
| will also support compressed or gzipped tar files.
So, install Archive::Tar, install Compress::Zlib, and then
re-read the Archive::Tar docs, especially the part about the
write() method's second argument...
Cheers,
Tim Hammerquist
--
In 1968 it took the computing power of 2 C-64's to fly a rocket to the moon.
Now, in 1998 it takes the Power of a Pentium 200 to run Microsoft Windows 98.
Something must have gone wrong.
------------------------------
Date: Wed, 10 Sep 2003 23:20:20 -0400
From: "Rodney" <NoSpamPlease@bellsouth.net>
Subject: Newsgroup post test...
Message-Id: <LOR7b.717$XO.349@bignews2.bellsouth.net>
Sorry for sending this test.
I'm using a new News Source.
--
...
`·.¸¸.·´¯`·.¸¸.·´¯`·-> rodney
------------------------------
Date: Thu, 11 Sep 2003 03:39:48 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: Newsgroup post test...
Message-Id: <Xns93F2F0B6F38C1dkwwashere@216.168.3.30>
"Rodney" <NoSpamPlease@bellsouth.net> wrote:
> Sorry for sending this test.
> I'm using a new News Source.
misc.test and alt.test exist for just this kind of testing.
------------------------------
Date: Thu, 11 Sep 2003 00:02:06 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newsgroup post test...
Message-Id: <slrnbm00ee.5kh.tadmc@magna.augustmail.com>
Rodney <NoSpamPlease@bellsouth.net> wrote:
> Sorry for sending this test.
Sorry for killfiling you.
Test newsgroups are for testing.
Discussion newsgroups are for discussing.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 10 Sep 2003 22:38:51 -0700
From: "Trent Curry" <tcurrey@no.no.no.i.said.no>
Subject: Re: Newsgroup post test...
Message-Id: <bjp1tk$alh$1@news.astound.net>
Rodney wrote:
> Sorry for sending this test.
> I'm using a new News Source.
>
>
> --
> ...
> `·.¸¸.·´¯`·.¸¸.·´¯`·-> rodney
There are dedicated groups for that :-P
Try misc.test, free.test, a whole slew of alt.test of you really feel
intriged enough. There are a gazillion others when I checked my server's
list, but, come on people, how many test groups does Usenet need??!!
--
Trent Curry
perl -e
'($s=qq/e29716770256864702379602c6275605/)=~s!([0-9a-f]{2})!pack("h2",$1)!eg
;print(reverse("$s")."\n");'
------------------------------
Date: 10 Sep 2003 23:38:01 -0700
From: GrahamWilsonCA@yahoo.ca (Graham)
Subject: Re: Number of elements in an array
Message-Id: <eda30d78.0309102238.69213f10@posting.google.com>
Ron Reidy <r_reidy@comcast.net> wrote in message news:<3F5FAC79.9040301@comcast.net>...
> Here is my output:
>
> DB<3> x @test
> 0 HASH(0x8393598)
> 'data' => ARRAY(0x83882f8)
> 0 1
> 1 2
> 2 3
> 'id' => 'aaa'
> 'units' => 'kW/m2/st'
> 1 HASH(0x824bef8)
> 'data' => ARRAY(0x82a0a60)
> 0 2
> 1 4
> 2 6
> 'id' => 'bbb'
> 'units' => 'rad'
>
> As you see, data is an array ref...so you should say 'print scalar
> @{$test[0]{data}' and you will see what you are hoping to.
Many thanks '@{$test[0]{data}}' is exactly what I needed. And people
call perl a 'read-only' language ;)
------------------------------
Date: 10 Sep 2003 23:47:54 -0700
From: GrahamWilsonCA@yahoo.ca (Graham)
Subject: Re: Number of elements in an array
Message-Id: <eda30d78.0309102247.29b143c6@posting.google.com>
Chief Squawtendrawpet <cs@edu.edu> wrote in message news:<3F5FB543.DD50ABDD@edu.edu>...
> Graham wrote:
> > All I can get is an address like ARRAY(0x64a0)? Surely it cannot be
> > that difficult to find out that there are 3 elements in each data
> > array ;)
>
> Based on your last two posts, I think you'd save yourself some grief
> by spending just a few minutes brushing up on Perl references. I'd
> start with 'perlreftut'.
>
> Chief S.
Thanks Chief, that is exactly what I needed. What a bizarre language.
------------------------------
Date: 10 Sep 2003 18:31:55 -0700
From: jwillmore@cyberia.com (James Willmore)
Subject: Re: Perl vs TCL
Message-Id: <e0160815.0309101731.51f1f423@posting.google.com>
c_j_marshall@hotmail.com (Chris Marshall) wrote in message news:<cb9c7b76.0309100407.558d427f@posting.google.com>...
> "Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote in message news:<Xns93F1A965361Bsdn.comcast@206.127.4.25>...
> > James Willmore <jwillmore@cyberia.com> wrote in
> > news:20030909123749.0cfa013b.jwillmore@cyberia.com:
> >
> > >
> > > Each language has its strengths and its weaknesses.
> > >
> >
> > What are Befunge's strengths? ;-)
>
>
> How about ZT ?
> http://www.winterbergs.de/software/zt.txt
>
> which I found here: http://www.kraml.at/stupid/languages.html
Okay ... when I made the statement "Each language has its strengths
and its weaknesses", I meant langauges that are mainstream ... like
C++, Perl, TCL, PHP, Assembler, Java, etc.
And I'm now thinking, with the crowd here, I have to define
"mainstream" ;-)
Program in good health :-)
Jim
------------------------------
Date: 10 Sep 2003 21:09:20 -0700
From: csdude@hotmail.com (Mike)
Subject: Posting with Net::NNTP
Message-Id: <46cdc619.0309102009.342880e7@posting.google.com>
Hey guys,
I really appeciate all the help you've given me so far regarding
Net::NNTP.
I've been able to successfully view posts in specific newsgroups now,
using a "public" news server. However, I'm trying to post, and
although the program runs without errors, nothing's posting. Can
someone glance this script over and let me know if it's the program or
the server?
#!/usr/bin/perl
use Net::NNTP;
use strict;
my $server = "news.so-net.com.hk";
# one of a few that I tried; also tried my ISP
my $group = "alt.test";
my $nntp = Net::NNTP->new($server, Debug => 0) or die "Can't connect
to server: $!\n";
my @message = (
"Subject: This is a Test",
"From: Mike <csdude\@spampolice.com>",
"Newsgroups: $group",
"\nThis is an Net::NNTP test.\n"
);
$nntp -> post(@message);
$nntp->quit;
print "Content-type: text/html\n\n";
print "Success\n\n";
exit;
TIA,
Mike
------------------------------
Date: Thu, 11 Sep 2003 05:53:37 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Posting with Net::NNTP
Message-Id: <3F600DDB.8C053063@acm.org>
Mike wrote:
>
> I really appeciate all the help you've given me so far regarding
> Net::NNTP.
>
> I've been able to successfully view posts in specific newsgroups now,
> using a "public" news server. However, I'm trying to post, and
> although the program runs without errors, nothing's posting. Can
> someone glance this script over and let me know if it's the program or
> the server?
>
> #!/usr/bin/perl
> use Net::NNTP;
> use strict;
>
> my $server = "news.so-net.com.hk";
> # one of a few that I tried; also tried my ISP
> my $group = "alt.test";
>
> my $nntp = Net::NNTP->new($server, Debug => 0) or die "Can't connect
> to server: $!\n";
>
> my @message = (
> "Subject: This is a Test",
> "From: Mike <csdude\@spampolice.com>",
> "Newsgroups: $group",
> "\nThis is an Net::NNTP test.\n"
> );
>
> $nntp -> post(@message);
> $nntp->quit;
>
> print "Content-type: text/html\n\n";
> print "Success\n\n";
> exit;
According to RFC977:
3.10. The POST command
3.10.1. POST
POST
If posting is allowed, response code 340 is returned to indicate that
the article to be posted should be sent. Response code 440 indicates
that posting is prohibited for some installation-dependent reason.
If posting is permitted, the article should be presented in the
format specified by RFC850, and should include all required header
lines. After the article's header and body have been completely sent
by the client to the server, a further response code will be returned
to indicate success or failure of the posting attempt.
http://www.rfc-editor.org/rfc/rfc977.txt
RFC850 has been obsoleted by RFC1036:
http://www.rfc-editor.org/rfc/rfc1036.txt
John
--
use Perl;
program
fulfillment
------------------------------
Date: Thu, 11 Sep 2003 02:07:22 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: seeking Win32::OLE example
Message-Id: <3f5fbdd5.696097308@news.erols.com>
gbacon@hiwaay.net (Greg Bacon) wrote:
: I was trying to put together a quick hack to extract review comments
: (using the Comments property) from a Word document to jump start
: compiling review minutes, but I found the MSDN Word object model
: documentation surprisingly opaque. For example, the docs didn't say
: which property held the comment tag (e.g., [b1]),
What is your example "[b1]" meant to show? Is that the expected content
of the document's comments property?
: and the empirical
: measure of iterating over the keys didn't bear fruit.
A splash of code will better show what you are talking about, and will
probably show where the difficulty lies.
: I played with the code in <36182bc8.8113706@news2.ibm.net> and found
: that it made a difference whether I called Documents->Open or
: GetActiveObject -- although the two seem equivalent in the docs.
Which docs were you reading that suggested that the
Win32::OLE->GetActiveObject method is similar to the Word application's
Documents->Open method?
Are you perhaps thinking of the Win32::OLE->GetObject method when you
say GetActiveObject?
: Can people recommend a good resource?
A resource on using Win32::OLE? The pods that come with ActivePerl are
pretty much it, and pretty much all that is needed. Win32::OLE is not
much more than a way for Perl to poke and prod at OLE libaries.
A resource on how any of those libraries responds to being poked and
prodded? That's a job for the library's author.
The OLE Browser included with ActivePerl is a decent tool for navigating
the various libraries and the classes within those libraries. Be sure
to notice the clickable help icon in the bottom frame.
The object browser in the Visual Basic Editor (included with any Office
installation) does mostly the same job, but also has a very useful
search tool.
As for your original quick hack program, see if this does not fill the
need.
#!perl
use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
print
Win32::OLE
->GetObject('foo.doc')
->BuiltinDocumentProperties(wdPropertyComments)
->Value;
------------------------------
Date: Thu, 11 Sep 2003 04:13:29 +0200
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Speeding up LWP::Simple
Message-Id: <1063246517.512524@halkan.kabelfoon.nl>
Trent Curry wrote:
> John Bokma wrote:
>
>>2mb wrote:
>>
>>
>>>David,
>>>Why not just use one of the commercially available email harvesting
>>>packages. Most are available for 19.99. If you are going to spam, it
>>>is better to get your list built and operational as soon as
>>>possible, before more legislation goes into effect.
>>
>>Why is David named a spammer without any proof? Just for harvesting
>>30,000,000 webpages? There are so many legal things to use it for like
>>text analyses, language analyses, making an estimate of size,
>>analyzing
>>HTML tag use, analysing use of scripting, stylesheets etc.
>>
>>Also, there are websites where one can download entire email databases
>>for free. I recently saw one. There was one file of 250 (!) MB. Also
>>files sorted based on country etc.
>
>
> While I don't know if he is a spammer or not, you have pointed out a rather
> ugly flaw in this group: too many people are too dang eager to jump to
> conclusions and can easily be mistaken, like in a case like this (and
> others), and end up condemning a person who was completely undeserving of
> such treatment. In this particular case its easy to say he could be
> harvesting emails, but, as spoken above, there is no proof of that.
Thanks Trent.
> On the spam note, there already is more and more legislation either going
> into effect, already in effect, or pending. Little by little, the government
> (or governmentS I should say, as other countries have not been sitting idle
> either.) It's still a big problem; it's not easy to get away once you've
> been tagged by a spammer, short of changing your email address. Still, I
> really hope one day we wont have to worry about them anymore, and hopefully
> its not just a | dream...
I live in the Netherlands and finally there will be soon a law that
makes spamming harder. I don't have read all the details but opt-out is
forbidden. Not sure if opt in without confirmation is ok, but it
shouldn't. The only sound way is an opt in *with* confirmation.
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.
--
Kind regards, feel free to mail: mail(at)johnbokma.com (or reply)
virtual home: http://johnbokma.com/ ICQ: 218175426
John web site hints: http://johnbokma.com/websitedesign/
------------------------------
Date: Wed, 10 Sep 2003 22:07:25 -0700
From: "Trent Curry" <tcurrey@no.no.no.i.said.no>
Subject: Re: Speeding up LWP::Simple
Message-Id: <bjp02m$aen$1@news.astound.net>
John Bokma wrote:
>
> I live in the Netherlands and finally there will be soon a law that
> makes spamming harder. I don't have read all the details but opt-out
> is forbidden. Not sure if opt in without confirmation is ok, but it
> shouldn't. The only sound way is an opt in *with* confirmation.
Sounds like a good law, and kudos to the Netherland authorities. The
question of such a law is will it really be enforceable? I think this has
long been one of the largest road blocks for the anti spam world.
> 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.
Well I use a false email in my nntp headers for just that reason. If you
don't advertise it, less chances of someone you don't want hear from getting
a hold of it.
------------------------------
Date: Thu, 11 Sep 2003 08:25:28 +0200
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Speeding up LWP::Simple
Message-Id: <1063261637.464010@halkan.kabelfoon.nl>
Trent Curry wrote:
> John Bokma wrote:
>
>>I live in the Netherlands and finally there will be soon a law that
>>makes spamming harder. I don't have read all the details but opt-out
>>is forbidden. Not sure if opt in without confirmation is ok, but it
>>shouldn't. The only sound way is an opt in *with* confirmation.
>
>
> Sounds like a good law, and kudos to the Netherland authorities. The
> question of such a law is will it really be enforceable? I think this has
> long been one of the largest road blocks for the anti spam world.
I really don't know the exact details. Some people are running a site
http://www.spamvrij.nl/ which collects Dutch spam. It keeps a list of
know spammers and their status. When a company stops spamming it status
will eventualy change to green. Some have already changed their ways and
are 'green'. Some are notorious and are red by now. They also try to
educate the press and companies.
Also many ISPs disconnect spammers more and more. An UDP is being
prepared against a Dutch ISP who thinks that running no Usenet abuse
desk is an option. Rogue cancels, floods, forgeries etc poors every day
from their network. They have until Sunday to fix it :-).
>>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.
>
> Well I use a false email in my nntp headers for just that reason. If you
> don't advertise it, less chances of someone you don't want hear from getting
> a hold of it.
But I don't mind people emailing me. I am testing the self learning junk
filter in Thunderbird. And indeed, just today I noticed a mail not
marked as junk which was no junk. (It marks junk as not junk less and less).
I consider munging my addresses as giving in to spam. Now I can see what
spam is and report some of it (and hence help detecting open proxies and
such)
--
Kind regards, feel free to mail: mail(at)johnbokma.com (or reply)
virtual home: http://johnbokma.com/ ICQ: 218175426
John web site hints: http://johnbokma.com/websitedesign/
------------------------------
Date: Thu, 11 Sep 2003 01:10:23 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Splitting and keeping the delimiter
Message-Id: <x77k4gb05d.fsf@mail.sysarch.com>
>>>>> "DKW" == David K Wall <usenet@dwall.fastmail.fm> writes:
DKW> You have workable solutions from several responses. Just one
DKW> comment: use split() when you know what to throw away, a regex
DKW> when you know what to keep. (I believe I'm quoting someone, but
DKW> can't remember whom.)
if he didn't say it first, he surely publicized the most, randal
schwartz.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Class in Boston - Sept 2003 -- http://www.stemsystems.com/class
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5485
***************************************
