20 lines
282 B
Perl
20 lines
282 B
Perl
#!/usr/athena/bin/perl
|
|
#
|
|
# This is something which strips out the table of contents from a digest.
|
|
#
|
|
|
|
while (<>) {
|
|
if (/^Linux-Activists Digest/) {
|
|
print;
|
|
last;
|
|
}
|
|
}
|
|
|
|
while (<>) {
|
|
if (/^-------------------------------------------------------/) {
|
|
print;
|
|
last;
|
|
}
|
|
print;
|
|
}
|