Blob
1 #!/usr/bin/env perl3 open(OMIT, "9 sed -n 's/.*Omitman\\[\"(.*)\\((.)\\)\".*/\\1 \\2/p' $ENV{'PLAN9'}/dist/checkman.awk |") || die "omit: $!";4 @omit = <OMIT>;5 close OMIT;6 chomp @omit;7 # push @omit, "grep 1", "lseek 2", "tcs 1", "sed 1", "rc 1", "strcat 3", "yacc 1";9 sub noref {10 my ($p, $s) = @_;12 $text =~ s!<a href="../man$s/$p.html">(([^<]|<[^/]|</[^a])*)</a>!\1!g;13 }15 for($i=0; $i<@ARGV; $i++){16 open(IN, $ARGV[$i]) || die "open $ARGV[$i]: $!";17 @text = <IN>;18 close IN;19 $text = join("", @text);21 foreach $o (@omit) {22 $o =~ /(.*) (.*)/;23 noref($1, $2);24 }26 open(OUT, ">$ARGV[$i]") || die "open $ARGV[$i]: $!";27 print OUT $text;28 close OUT;29 }31 exit 0;