NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
--Larry Wall in <199911192358.PAA24109@kiev.wall.org>
Did I say I expect Perl to do the right thing? :-)
--Larry Wall in <199911200217.SAA24898@kiev.wall.org>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Something like the following.... (Score:1)
logfile $home/.msgid.log
if ${lookup{$h_message-id:}lsearch{$home/.msgid.log}} is "seen"
then
seen
finish
else
save $home/inbox
logwrite "$h_message-id: seen"
endif
Re:Something like the following.... (Score:2)
I had been thinking that something structured like this might work. But
lsearchwill be O(n), won't it? And if most message IDs aren't repeated, then most searches will be for the whole file. Whereas using a DBM file would be O(1), wouldn't it? But would require writing a custom program to insert seen message IDs into the DBM file, which is a fork hit.Reply to This
Parent
Re: (Score:1)
Re: (Score:2)
I'm not root, so I'm not in a position to link with perl. Even if I were, I prefer the decoupling provided by a separate program, so I went with
${readsocket[perl.org]. Thanks for the help