iwiki.pl

gistfile1.pl

#!/usr/bin/perl

use 5.010;
use WWW::Wikipedia;
use strict;
use warnings;

main();

sub main {
    my $jawiki = WWW::Wikipedia->new(language => 'ja');

    while (<STDIN>) {
        my $str = $_;
        my $finalStr = $_;

        while ($str =~ /\[\[(.*?)(\|.*)?\]\]/g) {
            my $word = $1;
            my $showWord = $2 // '';

            my $entry = $jawiki->search($word);

            if ($entry->raw =~ /\[\[zh:(.*?)\]\]/i) {
                my $zhname = $1;
                $finalStr =~ s{\Q$word$showWord\E}{$zhname}g;
            }
        }

        print $finalStr;
    }
}

__END__