Blob
1 #!/usr/bin/perl3 @_ = <>;4 my $root = $ENV{'PLAN9'};5 my $html = join("", @_);6 $html =~ s;$root/;XXX$root/;g;7 while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])((.|\n)*)/){8 ($a, $b, $c) = ($1, $3, $5);9 $b =~ s/−/-/g;10 $l = $b;11 while(! -e $l){12 if($l =~ /(.*\/)(.+)/){13 $l = $1;14 }else{15 last;16 }17 }18 $bb = substr($b, length($l));19 $b = $l;20 $b =~ s/-/\−/g;21 $bb =~ s/-/\−/g;22 $html = "$a<a href=\"$l\">$b</a>$bb$c";23 }24 print $html;