Subject:
|
Re: spamcake collection
|
Newsgroups:
|
lugnet.off-topic.geek
|
Date:
|
Fri, 16 Jul 1999 23:07:50 GMT
|
Reply-To:
|
jsproat@io.!SayNoToSpam!com
|
Viewed:
|
1234 times
|
| |
|
|
<FEzILx.C5I@lugnet.com> <378FB99F.F46CAB87@io.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
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:
BREAKAGE: while( $lineIn = <STDIN> ) {
if( $lineIn =~ m/\bTom McD\b/ ) {
while( $msgIn = <STDIN> ) {
if( $msgIn =~ m/spamcake/i ) {
chomp $msgIn;
print $msgIn;
while( $sigIn = <STDIN> ) {
if (
$sigIn =~ m/^\s*$/ ||
$sigIn =~ m/^[^:]+:/ ||
$sigIn =~ m/^>+\s*$/
) {
print "\n";
next BREAKAGE;
}
chomp $sigIn;
print " $sigIn";
}
} else {
last;
}
}
}
}
I count 306 "spamcake" sigs. Does that sound about right?
Cheers,
- jsproat
--
Jeremy H. Sproat <jsproat@io.com>
http://www.io.com/~jsproat
Darth Maul Lives
|
|
Message has 1 Reply:
 | | Re: spamcake collection
|
| (...) ...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> ) { (...) (25 years ago, 16-Jul-99, to lugnet.off-topic.geek)
|
Message is in Reply To:
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
|
|
|
|
