Michael Elkins <[EMAIL PROTECTED]> wrote:
>
> #!/usr/bin/perl
> while (<>) {
> last if /^---/;
> print;
> }
This is a wonderful idea, but the above script could be dangerous...
it'll cut off any message to the list, with a row of dashes in it:
-------------------
Better to search for an exact match, such as:
last if /^---$/;
Anyway, you get the idea. Gotta watch those regexp's.. :)
--
David DeSimone | "The doctrine of human equality reposes on this:
[EMAIL PROTECTED] | that there is no man really clever who has not
Hewlett-Packard | found that he is stupid." -- Gilbert K. Chesterson
UX WTEC Engineer | PGP: 5B 47 34 9F 3B 9A B0 0D AB A6 15 F1 BB BE 8C 44