Subject:
|
Re: spamcake collection
|
Newsgroups:
|
lugnet.off-topic.geek
|
Date:
|
Fri, 16 Jul 1999 23:14:48 GMT
|
Reply-To:
|
jsproat@^Spamless^io.com
|
Viewed:
|
1250 times
|
| |
|
|
Sproaticus wrote:
> Sproaticus wrote:
> > I'm not sure this will get all of them. It does introduce some non-sig
> > text.
> Here's a better version, which...
> ...handles naked, quoted lines;
> ...outputs one spamcake per line;
> ...but doesn't take into account spamcake sigs which don't say "spamcake" on
> the first line;
...but does remove duplicates:
BREAKAGE: while( $lineIn = <STDIN> ) {
if( $lineIn =~ m/\bTom McD\b/ ) {
while( $msgIn = <STDIN> ) {
if( $msgIn !~ m/^>/ && $msgIn =~ m/spamcake/i ) {
chomp $msgIn;
$spamcake = $msgIn;
while( $sigIn = <STDIN> ) {
if (
$sigIn =~ m/^\s*$/ ||
$sigIn =~ m/^[^:]+:/ ||
$sigIn =~ m/^>+\s*$/
) {
$spamcake .= "\n";
$sigs{$spamcake} = 1;
next BREAKAGE;
}
chomp $sigIn;
$spamcake .= " $sigIn";
}
} else {
last;
}
}
}
}
foreach ( keys %sigs ) { print; }
I now count 283 spamcake sigs.
Cheers,
- jsproat
p.s. I wasn't getting any work done today anyway... :-P
--
Jeremy H. Sproat <jsproat@io.com>
http://www.io.com/~jsproat
Darth Maul Lives
|
|
Message is in Reply To:
 | | Re: spamcake collection
|
| <FEzILx.C5I@lugnet.com> <378FB99F.F46CAB87@io.com> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit (...) Here's a better version, which... ...handles naked, quoted lines; ...outputs one spamcake per line; ...but doesn't (...) (25 years ago, 16-Jul-99, to lugnet.off-topic.geek)
|
71 Messages in This Thread:
 
- Entire Thread on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
