root/trunk/pukiwiki2tracwiki/pukiwiki2tracwiki.sh

#!/usr/local/bin/php
<?php
$body = join('', file('php://stdin'));
$body = convHead($body);
$body = convPre($body);
$body = convList($body);
$body = removeAnchor($body);
$body = convLink($body);
$body = convModule($body);
echo $body . "\n";

function convHead($body)
{
  //preg_match_all('!^\*.*$!m', $body, $match); var_dump($match);exit;
  $body = preg_replace('!^\*([^\*].*)$!m', '= $1 =', $body);
  $body = preg_replace('!^\*\*([^\*].*)$!m', '== $1 ==', $body);
  $body = preg_replace('!^\*\*\*([^\*].*)$!m', '=== $1 ===', $body);
  //var_dump($body);exit;
  return $body;
}
function convPre($body)
{
  $lines = mb_split("\n", $body);
  $result = array();
  $start_pre = false;
  foreach ($lines as $line) {
    if (preg_match('!^ !', $line)) {
      if (!$start_pre) {
        $start_pre = true;
        $result[] = '{{{';
      }
      $result[] = preg_replace('!^ !', '', $line);
    } else {
      if ($start_pre) {
        $result[] = '}}}';
      }
      $start_pre = false;
      $result[] = $line;
    }
  }
  if ($start_pre) {
   $result[] = '}}}';
  }
  return join("\n", $result);
}
function convLIst($body)
{
  $body = preg_replace('!^-!m', ' * ', $body);
  return $body;
}
function removeAnchor($body)
{
  $body = preg_replace('!\[#[^\]]+]!m', '', $body);
  return $body;
}
function convModule($body)
{
  $body = preg_replace('!^#contents!m', '[[PageOutline]]', $body);
  $body = preg_replace('!^#ls2\((.+?)\)!m', '[[TitleIndex($1)]]', $body);
  $body = preg_replace('!^#ref\((.+?)\)!m', 'attachment:"$1"', $body);
  return $body;
}
function convLink($body)
{
  $body = preg_replace('!\[\[(.+?):(.+?)\]\]!m', '[$2 $1]', $body);
  $body = preg_replace('!\[\[([^:]+?)\]\]!m', '[wiki:$1]', $body);
  return $body;
}
?>