Subject:
|
Re: spamcake collection
|
Newsgroups:
|
lugnet.off-topic.geek
|
Date:
|
Sat, 17 Jul 1999 02:15:41 GMT
|
Viewed:
|
1601 times
|
| |
|
|
In lugnet.off-topic.geek, Jeremy H. Sproat writes:
> Sproaticus wrote:
> > 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;
> ...and handles non-spamcake spam appearances;
...and finally handles spam on not-the-first-line:
BREAKAGE: while( $lineIn = <STDIN> ) {
if( $lineIn =~ m/\bTom McD\b/ ) {
while( $msgIn = <STDIN> ) {
chomp $msgIn;
$spamcake = $msgIn;
if( $msgIn !~ m/^>/ ) {
chomp $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 ) {
if( m/spam/is ) {
print "NOT-SPAMCAKE: " unless m/spamcake/is;
print;
}
}
Cheers,
- jsproat
|
|
Message has 1 Reply:
 | | Re: spamcake collection
|
| (...) ...and starts spamcake sigs immediately after the /\bTom McD\b/ instead on the next line: BREAKAGE: while( $lineIn = <STDIN> ) { if( $lineIn =~ m/\bTom McD\b\.?\s*/ ) { $spamcake = $'; chomp $spamcake; while( $msgIn = <STDIN> ) { chomp $msgIn; (...) (25 years ago, 17-Jul-99, to lugnet.off-topic.geek)
|
Message is in Reply To:
| | Re: spamcake collection
|
| <378FBB46.D26CC30B@io.com> <378FBCE8.8372AB28@io.com> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit (...) ...and handles non-spamcake spam appearances: BREAKAGE: while( $lineIn = <STDIN> ) { if( $lineIn =~ m/\bTom (...) (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
This Message and its Replies on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
