[qa:48090] Re: Wikipadiaリンクの自動作成

Re: Wikipadiaリンクの自動作成

名前: 谷村
日時: 2007-05-24 22:08:33
IPアドレス: 210.237.140.*

>>48088
perltexというのを見つけたので、試しました。
\documentclass{jsarticle}
\usepackage{perltex}
% \AtBeginDvi{\special{pdf:tounicode EUC-UCS2}}
\usepackage[dvipdfm]{hyperref}
\perlnewcommand{\wikipedia}[1]{
   use Encode;
   $url = encode('utf8',decode('euc-jp',$_[0]));
   $url =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
   return '\href{http://ja.wikipedia.org/wiki/'. $url .'}{' . $_[0] . '}';
}
\begin{document}
\wikipedia{温室効果ガス}
\end{document}

$ perl perltex.pl --latex=platex --nosafe test.tex
$ dvipdfmx test
これでLaTeXマクロ化することはでき、Wikipediaのリンクを埋め込むことができました。
しかし、perltex.plを必ず使わないといけないので、perltexなしでLaTeXマクロにする
方法を模索したいと思います。ご助言があればよろしくお願いします。

なお、48088のperlスクリプトは一部間違っており、期待通
りにならないので、訂正しておきます。
------ wikipurl.pl -----
#!/usr/bin/perl

use Encode;
while(<>) {
	chop;
	$a = $_;
	Encode::from_to($_,'euc-jp','utf8');
	$_ =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
	print '\href{http://ja.wikipedia.org/wiki/'. $_ .'}{' . $a . '}';
}
この書き込みへの返事：