Very Computer

When my G/F sends me emails from work there is a disclaimer at the
bottom that is starting to annoy me. It is always contained between
rows of asterisks like this:

*****...***** (there is 80 of them)
lines
of
boring
text
*****...***** (80 of these too)

I would like to make a procmail rule to rid me of these messages but
don't have a clue how to do it. I can do the procmail stuff, it's the
shell bit I don't have a clue with!

How could I remove this block of text?

Thanks allot
Phil Jackson

This will remove any block of lines between rows of at least 4 asterisks
(you can increase the number to make false positives less likely).

--

Genuity, Woburn, MA
*** DON'T SEND TECHNICAL QUESTIONS DIRECTLY TO ME, post them to newsgroups.
Please DON'T copy followups to me -- I'll assume it wasn't posted to the group.

man aliases

--

Linux solution for data management and processing.

while (my $line = <>){
        if($line =~ /[*]{80}/){
                exit 0;
        }
        print $line;

Quote:}

- --
Replace spamtrap with bd to reply.
QOTD:
        "I used to be an idealist, but I got mugged by reality."

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+PB31x533NjVSos4RAjXQAKCR2QaFn4ZCe+R5f82s5VccfmI5awCglUaA
EZkAztJyQ6yQyvjZZOOwcL0=
=k2mQ
-----END PGP SIGNATURE-----

Quote:>> *****...***** (there is 80 of them)
>> lines
>> of
>> boring
>> text
>> *****...***** (80 of these too)
>> How could I remove this block of text?
>Pipe the message in, it'll output until the first line containing 80
>asterisks.

--
bringing you boring signatures for 17 years

Quote:> in comp.unix.shell i read:

>>> *****...***** (there is 80 of them)
>>> lines
>>> of
>>> boring
>>> text
>>> *****...***** (80 of these too)

>>> How could I remove this block of text?

>>Pipe the message in, it'll output until the first line containing 80
>>asterisks.

> not quite what the op desires.

#!/usr/bin/perl -w
use strict;

my $toggle = 0;
while (my $line = <>){
        if($line =~ /[*]{80}/){
                $toggle = 1 - $toggle;
                next;
        }
        if($toggle){
                next;
        }
        print $line;

Quote:}

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+PYHnx533NjVSos4RAm+yAJ4vVf1RonQgt6iQM40LISCfZ/Mm+wCfWw46
zEtwLyR6MfG86hvoxvA/Gh8=
=3PtG
-----END PGP SIGNATURE-----

                 $toggle = ! $toggle;

Quote:>                 next;
>         }
>         if($toggle){
>                 next;
>         }
>         print $line;
> }

#!/usr/bin/perl -w
use strict;

while ( <> ) {
    next if /^\*{80}$/ ... /^\*{80}$/;
    print;
    }

__END__

John
--
use Perl;
program
fulfillment