備忘：pdf->epsの変換

LaTeX

ちょっと必要になって調べたら、
http://blog.hugolab.com/archives/875340.html
でいけることが判明。簡単。ついでなので、(pdf)texソースから、グラフの名前を探して一括変換してくれるスクリプト。
"$ perl this_scr.pl my_tex_file.tex"みたいな感じで動く。

#!/usr/local/bin/perl
use warnings;
use strict;
use feature qw/say/;

my $infile = shift;
open my $IN, "<:encoding(utf8)",$infile or die $!; while(<$IN>){
if(/includegraphics.+\/(.+)\}/){system "pdftops -eps **PATH TO THE FIGURES**/$1.pdf";}
}