如何避免使用 pgfplots/standalone 组合复制代码？

Question 1

这是一个可以实现您想要的功能的 perl 脚本：

#!/usr/bin/perl
use File::Copy;
use strict 'vars';

foreach my $fh (@ARGV)
  {
    &MAIN($fh);
  }

sub MAIN {
   my ($source_data) = @_;
   $source_data =~ s/\.tex$//;

   open SOURCE, "<$source_data.tex" or die;
   my @source = <SOURCE>;
   close SOURCE;

   if (not -e "tmp_data.tex" )
     {
       open TMP, ">tmp_data.tex";
       close TMP;
     }

   open TARGET, ">tmp_data.tex" or die;
   foreach my $line ( @source )
     {
       print TARGET $line
     }
   close TARGET;

   system ("pdflatex standalone.tex");
   move ("standalone.pdf", $source_data . ".pdf");
}

假设您使用的数据位于以下文件中：

data_01.tex
data_02.tex
data_03.tex

此外，作为您的独立文件：

\documentclass{standalone}
\usepackage{tikz, pgfplots}

\begin{document}
\begin{tikzpicture}

\begin{axis}[
xlabel=$x$,
ylabel=$y$]

\addplot[color=black]
table[x=x, y=y] {tmp_data};

\end{axis}

\end{tikzpicture}
\end{document}

如果你将上述脚本命名publish.pl为

$ perl publish.pl data_01.tex

此脚本将复制data_01.tex到tmp_data.tex。如果然后使用编译独立文件pdflatex。最后，它将移动pdf到data_01.pdf。

编写该脚本的目的是允许您迭代命令行参数以创建pdf所需数据的所有单独版本。我相信，只要您的计算机上安装了 perl，无论您的操作系统是什么，此脚本都应该可以运行 find。

Answer

这是一个可以实现您想要的功能的 perl 脚本：

#!/usr/bin/perl
use File::Copy;
use strict 'vars';

foreach my $fh (@ARGV)
  {
    &MAIN($fh);
  }

sub MAIN {
   my ($source_data) = @_;
   $source_data =~ s/\.tex$//;

   open SOURCE, "<$source_data.tex" or die;
   my @source = <SOURCE>;
   close SOURCE;

   if (not -e "tmp_data.tex" )
     {
       open TMP, ">tmp_data.tex";
       close TMP;
     }

   open TARGET, ">tmp_data.tex" or die;
   foreach my $line ( @source )
     {
       print TARGET $line
     }
   close TARGET;

   system ("pdflatex standalone.tex");
   move ("standalone.pdf", $source_data . ".pdf");
}