open(RAW, "<$html/$name.rawwiki") or die $!;
open(WIKI,">$html/$name.wiki" ) or die $!;
while (<RAW>) {
- s/\[\[([^#][^\]]*)\]\]/"[[$html\/". w_e($1). "|$1]]"/ge;
+ s/\[\[([^#\/][^\]]*)\]\]/"[[$html\/". w_e($1). "|$1]]"/ge;
print WIKI $_;
}
close RAW;