blob: 9a5f368f818b061a882b923a038410a5b0f27269 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Perl script to print all lines starting "-local" from -H files
opendir(DIR, "spool/input") || die "failed to opendir spool/input\n";
@spools = readdir(DIR);
closedir(DIR);
foreach $f (@spools)
{
next if $f !~ /-H$/;
open(IN, "<spool/input/$f") || die "failed to open spool/input/$f\n";
print "$f\n";
while(<IN>) { print if /^-local/; }
close(IN);
}
####
|
