tfixurls - plan9port - [fork] Plan 9 from user space | |
git clone git://src.adamsgaard.dk/plan9port | |
Log | |
Files | |
Refs | |
README | |
LICENSE | |
--- | |
tfixurls (664B) | |
--- | |
1 #!/usr/bin/env perl | |
2 | |
3 open(OMIT, "9 sed -n 's/.*Omitman\\[\"(.*)\\((.)\\)\".*/\\1 \\2/p' $ENV{… | |
4 @omit = <OMIT>; | |
5 close OMIT; | |
6 chomp @omit; | |
7 # push @omit, "grep 1", "lseek 2", "tcs 1", "sed 1", "rc 1", "strcat 3",… | |
8 | |
9 sub noref { | |
10 my ($p, $s) = @_; | |
11 | |
12 $text =~ s!<a href="../man$s/$p.html">(([^<]|<[^/]|</[^a])*)</a>… | |
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; |