User:Cryptic/query/16647

quarry:query/16647, postprocessed with perl:

use strict;

use warnings;

use feature 'say';

while (<>)

{

s/[\n\r]+$//;

if (!/^\|\[\[/)

{ say; next; }

my @sp = split(/(\|\|)/, $_);

# extract target

$sp[2] =~ /target";s:([0-9]+):"(.+)/ or die $sp[2];

$sp[2] = '' . substr($2, 0, $1) . '';

# nowiki around log comments

$sp[6] = '' . $sp[6] . '';

# underscores to spaces in source, destination, mover

$sp[0] =~ tr/_/ /;

$sp[2] =~ tr/_/ /;

$sp[4] =~ tr/_/ /;

say join('', @sp);

}