pmwiki to dokuwiki

jbkc85

So I have been trying to convert pmwiki syntax to dokuwiki syntax, and so far I have came up with this perl script

#!/usr/bin/perl -w

#################################################
# Purpose: To take a pmwiki file and translate to
# it to Dokuwiki Syntax
# Author: Jason Cameron
# Date: June 19th, 2009
# Version: 1.0
#################################################
# Use Scrict (my variables;)
use strict;
#
#################################################
# Check Arguments
if( (@ARGV < 1) || (@ARGV > 2) ){
  print "Usage: ./pmToDoku.pl [File Directory]\n";
  exit(1);
}
if( !-d $ARGV[0] ){
  print "Directory Not Valid!\n";
  exit(1);
}
#
#################################################
# Running existance files
my @files = <$ARGV[0]/*>;

foreach my $file (@files){
  # Back up file before change
  system( "cp $file $file.bak" );
  system( "mv $file $file.txt" );
  # Open up backup file and change the regular .txt file
  # Note:  Can change Directory Backed to eventually..
  open INPUTFILE, "<", "$file.bak" or die $!;
  open OUTPUTFILE, ">","$file.txt" or die $!;
  while(my $theline=<INPUTFILE>){
    # Grab most recent change from pmwiki
    if( $theline =~ m/^text/ ){
	    # Strips the field 'text' from the file
	    $theline =~ s/^text=//;
	    # Replaces linebreaks with nothing
	    $theline =~ s/%0a/\n/g;
	    # No idea, but replaces the 25's that show up.
	    $theline =~ s/25//g;
	    # Header Substitutions
	    $theline =~ s/\n!{5}(.*)/\n== $1 ==/g;
	    $theline =~ s/\n!{4}(.*)/\n=== $1 ===/g;
	    $theline =~ s/\n!{3}(.*)/\n==== $1 ====/g;
	    $theline =~ s/\n!{2}(.*)/\n===== $1 =====/g;
	    $theline =~ s/\n!{1}(.*)/\n====== $1 ======/g;
	    $theline =~ s/\(:title (.*)\s?:\)/\n====== $1 ======/g;
	    # Order Lists (up to 5)
	    $theline =~ s/\n\#{1}(.*)/\n  - $1/g;
	    $theline =~ s/\n\#{2}(.*)/\n    - $1/g;
	    $theline =~ s/\n\#{3}(.*)/\n      - $1/g;
	    $theline =~ s/\n\#{4}(.*)/\n        - $1/g;
	    $theline =~ s/\n\#{5}(.*)/\n          - $1/g;
	    # Unordered Lists (up to 5)
	    $theline =~ s/\n\*{1}(.*)/\n  * $1/g;
	    $theline =~ s/\n\*{2}(.*)/\n    * $1/g;
	    $theline =~ s/\n\*{3}(.*)/\n      * $1/g;
	    $theline =~ s/\n\*{4}(.*)/\n        * $1/g;
	    $theline =~ s/\n\*{5}(.*)/\n          * $1/g;
	    # Bold + Italic
	    $theline =~ s/\'{5}(.*)\'{5}/**\/\/$1\/\/**/g;
	    # Bold (done after unordered)
	    $theline =~ s/\'{3}/**/g;
	    # Italic
	    $theline =~ s/\`~/\/\//g;
	    $theline =~ s/~\'/\/\//g;
	    $theline =~ s/\'{2}/\/\//g;
	    # Striked Through
	    $theline =~ s/{-/<del>/g;
	    $theline =~ s/-}/<\/del>/g;
	    # Underline
	    $theline =~ s/{\+/__/g;
	    $theline =~ s/\+}/__/g;
	    # Subscript
	    $theline =~ s/\'_/<sub>/g;
	    $theline =~ s/_\'/<\/sub>/g;
	    # Superscript
	    $theline =~ s/\'\^/<sub>/g;
	    $theline =~ s/\^\'/<\/sub>/g;
	    # MonoScript (done after italic)
	    $theline =~ s/@@/\'\'/g;
	    # Questions/Answers
	    $theline =~ s/Q:/\\\\ :\?:/g;
	    $theline =~ s/A:/\\\\ :\!:/g;
	    # [@ to <code> and @] to </code> for non-rendering syntax
	    $theline =~ s/\[\@/<code>/g;
	    $theline =~ s/\@\]/<\/code>/g;
	    # Remove (:cell:)&(:cellnr:)&(:tableend:)&(:table:)
	    $theline =~ s/\(\:cell.*\:\)//g;
	    $theline =~ s/\(\:cellnr.*\:\)//g;
	    $theline =~ s/\(\:tableend.*\:\)//g;
	    $theline =~ s/\(\:table.*\:\)//g;
	    # Table Creations
	    $theline =~ s/^\|{2}border.*//g;
	    $theline =~ s/\|{2}\!/^/g;
	    $theline =~ s/\|{2}/|/g;
	    # Adding newlines
	    $theline =~ s/\\{1}/\\\\/g;
	    # Remove %enclosedstuffs%
            $theline =~ s/%.*%//g;

	    # Prints the line..
	    print OUTPUTFILE $theline;
    }
  }
}
#
#################################################
# Closing Files
close INPUTFILE;
close OUTPUTFILE;
#
#################################################

Anyone have any suggestions, or expressions that arent on there?

jbkc85

Adjusted a few things, however basic coding is same.

Note: None of this above save revision history, just copies the main text from your pmwiki.

jbkc85

Updated text, there is also a few other things worth mentioning for anyone wanting to use this.

There is another script I made, not incorporated with the perl as above, just a simple shell script. It takes all the pmwiki files (in my case were mentioned Main.Whatever) and translates them into a lower case version of a txt file (whatever.txt). This is meant to be done after the initial conversion, and so far most of it works to perfection. Few exceptions, like (:linebreak:) and %3c, but those are easy fixes.

Enjoy

#!/bin/bash

#############################
# PURPOSE: Strip the directory to make pmwiki files
# into dokuwiki files (lowercases too!)
# AUTHOR: Jason Cameron
#############################

grepLoop=`ls ../textFiles/ | grep .txt`

read -p "What is the directory for these files? (ie:Main.-.txt): " wikidir
for grepecho in $grepLoop
do
	newwikidir=`expr $grepecho : "^$wikidir\.\(.*\)" | tr [A-Z] [a-z]`
	mv $grepecho $newwikidir
done

herrdeh

Thank you for this script - even 13 years later... Sustainability rules.

As it's perl and not bash, I needed to make it executable. Maybe this very trivial info may help at some occasion.

Global DokuWiki Links