tfixurls - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tfixurls (664B)
       ---
            1 #!/usr/bin/env perl
            2 
            3 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";
            8 
            9 sub noref {
           10         my ($p, $s) = @_;
           11 
           12         $text =~ s!<a href="../man$s/$p.html">(([^<]|<[^/]|</[^a])*)</a>!\1!g;
           13 }
           14 
           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);
           20 
           21         foreach $o (@omit) {
           22                 $o =~ /(.*) (.*)/;
           23                 noref($1, $2);
           24         }
           25 
           26         open(OUT, ">$ARGV[$i]") || die "open $ARGV[$i]: $!";
           27         print OUT $text;
           28         close OUT;
           29 }
           30 
           31 exit 0;