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