扩展至文件内容的命令

Question 1

当然你可以使用包catchfile，请参阅大卫·卡莱尔的评论。

但是你已经有一个脚本了。只需稍微扩展一下就可以输出 TeX 代码而不是裸数据。例如，使用文件名作为参数调用该脚本，它会写入一个temp.tex包含以下内容的文件：

\mypdffilemoddate{<file>}{<year>}{<month>}{<day>}{<hour>}{<min>}{<sec>}{<timezone>}

具体例子：

\mypdffilemoddate{foobar.tex}{2013}{05}{30}{19}{00}{00}{Z}

宏\mypdffilemoddate是根据您的需要定义的：

\newcommand*{\mypdffilemoddate}[8]{%
  % #1: file name
  % #2: year
  % #3: ... (see above)
  %
  % Examples, what can be done:
  % * date formatting
  % * storing the file date:
  \@namedef{mydate@#1}{<date>}
}

如果文件日期被存储，则稍后可以使用：

\@nameuse{我的日期@}

脚本执行后，文件输入

\input{temp}

或者

\InputIfFileExists{temp}{<file exists and is read>}{<file does not exist>}

文件temp.tex被读取并\mypdffilemoddate调用。

Answer

当然你可以使用包catchfile，请参阅大卫·卡莱尔的评论。

但是你已经有一个脚本了。只需稍微扩展一下就可以输出 TeX 代码而不是裸数据。例如，使用文件名作为参数调用该脚本，它会写入一个temp.tex包含以下内容的文件：

\mypdffilemoddate{<file>}{<year>}{<month>}{<day>}{<hour>}{<min>}{<sec>}{<timezone>}

具体例子：

\mypdffilemoddate{foobar.tex}{2013}{05}{30}{19}{00}{00}{Z}

宏\mypdffilemoddate是根据您的需要定义的：

\newcommand*{\mypdffilemoddate}[8]{%
  % #1: file name
  % #2: year
  % #3: ... (see above)
  %
  % Examples, what can be done:
  % * date formatting
  % * storing the file date:
  \@namedef{mydate@#1}{<date>}
}

如果文件日期被存储，则稍后可以使用：

\@nameuse{我的日期@}

脚本执行后，文件输入

\input{temp}

或者

\InputIfFileExists{temp}{<file exists and is read>}{<file does not exist>}

文件temp.tex被读取并\mypdffilemoddate调用。

Question 2

epstopdf因为关键问题似乎是对具有所有功能的包的支持，特别是缺少（和）update的旧版 pdfTeX 的选项。\pdffilemoddate\pdffilesize

正如问题中所述，缺失的功能是使用\immediate\write18（shell escape feature）实现的。运行脚本来提供缺失的数据、文件日期和文件大小。输出被写入文件并在 TeX 运行中读入。

使用最新的 pdfTeX，还有一个管道功能可以避免使用临时文件。还\pdfshellescape可以报告 shell 转义功能的状态。如果未启用 shell 转义，则可以使用该功能发出警告或错误。由于使用的是较旧的 pdfTeX，因此以下示例使用临时文件，并且必须启用 shell 转义功能。

以下 Perl 脚本pdffiletools.pl需要两个参数，第一个参数指定所需的数据moddate或size。第二个参数是文件名。

#!/usr/bin/env perl
use strict;
$^W=1;

my $prg_kpsewhich = 'kpsewhich';
my $kpsewhich_engine = 'pdftex';
my $kpsewhich_progname = 'pdflatex';
my $kpsewhich_format = 'tex';

my $syntax = "Syntax: $0 <action> <file>\n";

@ARGV == 2 or die $syntax;

my $action = shift;
my $arg_file = shift;

my @cmd = (
  $prg_kpsewhich,
  "-engine=$kpsewhich_engine",
  "-progname=$kpsewhich_progname",
  "-format=$kpsewhich_format",
);
my $file = `@cmd '$arg_file'`;
if ($? == -1) {
    die "!!! Error: Failed to execute ($prg_kpsewhich): $!\n";
}
elsif ($? & 127) {
    die sprintf "!!! Error: Child ($prg_kpsewhich) died "
                . "with signal %d %s coredump!\n",
                ($? & 127), ($? & 128) ? 'with' : 'without';
}
elsif ($? != 0) {
    die printf "!!! Error: Child ($prg_kpsewhich) exited with value %d!\n",
        $? >> 8;
}

chomp $file;
-f $file or die "!!! Error: File not found ($arg_file)!\n";

if ($action eq 'moddate') {
    my ($sec, $min, $hour, $mday, $mon, $year) = gmtime((stat($file))[9]);
    printf "D:%04d%02d%02d%02d%02d%02dZ",
        $year + 1900, $mon + 1, $mday, $hour, $min, $sec;
    exit(0);
}

if ($action eq 'size') {
    print ((stat($file))[7]);
    exit(0);
}

die "!!! Error: Unknown action ($action)!\n";

__END__

评论：

该文件是通过设置一些选项来找到的，以模仿在和中查找文件的kpsewhich方式。pdflatex\pdffilemoddate\pdffilesize
为简单起见，文件日期使用 GMT 作为时区。更豪华的版本将使用本地日期并附加时区规范。
结果以退出代码 0 打印到标准输出。
错误被打印到标准错误流并设置退出代码。
在 Linux 下测试。

以下测试文件使用上述脚本添加旧版 pdfTeX 包所缺少的功能epstopdf：

\documentclass{article}

\usepackage{pdftexcmds}
\makeatletter
% \let\pdf@filemoddate\relax% testing with newer pdfTeX
% \let\pdf@filesize\relax% testing with newer pdfTeX
\@ifundefined{pdf@filemoddate}{%
  \newcommand*{\pdf@filemoddate}[1]{%
    \romannumeral-`\x
    \@ifundefined{filemoddate@#1}{}{\@nameuse{filemoddate@#1}}%
  }%
  \newcommand*{\pdf@filesize}[1]{%
    \romannumeral-`\x   
    \@ifundefined{filesize@#1}{}{\@nameuse{filesize@#1}}% 
  }%  
  \RequirePackage{graphicx}\relax
  \RequirePackage{epstopdf}\relax
  \RequirePackage{catchfile}\relax
  \newcommand*{\setpdf@filemoddate}[1]{%
    \immediate\write18{%
      ./pdffiletools.pl moddate '#1'>tmp-pdffiletools.txt%
    }%
    \CatchFileEdef{\setpdf@catch}{tmp-pdffiletools.txt}{%
      \@makeother\D
      \@makeother\:%
      \@makeother\Z
      \@makeother\+%
      \@makeother\-%
      \@makeother\'%
      \endlinechar=-1\relax
    }%
    \expandafter\let\csname filemoddate@#1\endcsname\setpdf@catch
  }%  
  \newcommand*{\setpdf@filesize}[1]{%
    \immediate\write18{%
      ./pdffiletools.pl size '#1'>tmp-pdffiletools.txt%
    }%
    \CatchFileEdef{\setpdf@catch}{tmp-pdffiletools.txt}{%
      \endlinechar=-1\relax
    }%
    \expandafter\let\csname filesize@#1\endcsname\setpdf@catch
  }%
  %
  \newcommand*{\org@ETE@Make}{}%
  \let\org@ETE@Make\ETE@Make
  \renewcommand*{\ETE@Make}[2]{%
    \ifETE@update
      \setpdf@filemoddate{#1}%
      \setpdf@filemoddate{#2}%
    \fi
    \org@ETE@Make{#1}{#2}%
  }%
  % 
  \newcommand*{\org@ETE@DefCommandLine}{}%
  \let\org@ETE@DefCommandLine\ETE@DefCommandLine
  \renewcommand*{\ETE@DefCommandLine}{%
    \setpdf@filemoddate{\SourceFile}%  
    \setpdf@filemoddate{\OutputFile}%  
    \setpdf@filesize{\SourceFile}%     
    \setpdf@filesize{\OutputFile}%     
    \org@ETE@DefCommandLine
  }%
}{% 
  \usepackage{graphicx}%
  \usepackage{epstopdf}%
}
\makeatother

\begin{document}
\includegraphics{test-image.eps}
\end{document}

评论：

需要启用 Shell 转义 ( pdflatex -shell-escape)。
该脚本被放入当前目录，因此被调用为 ./pdffiletools.pl。如果它被安装pdffiletools在环境变量的目录中PATH，那么它被调用为pdffiletools。
\setpdf@filemoddate{<file>}并\setpdf@filesize{<file>}调用脚本并将结果存储在宏\filemoddate@<file>和中。这允许和\filesize@<size>的可扩展定义。\pdf@filemoddate{<file>}\pdf@filesize{<file>}
这个\romannumeral技巧保留了包的通用属性pdftexcmds，\pdf@filemoddate并且\pdf@filesize可以在两个扩展步骤中完成扩展。
而不是方法我的其他答案我已经使用包catchfile来为该方法提供用例示例。
原始字符串\pdffilemoddate和\pdffilesize返回字符串，其中字符的 catcode 为“other”（12）。这就是在 setup 部分中进行 catcode 设置的原因\CatchFileEdef。
这里可以使用和。后者的实现更简单、更简短\CatchFileDef。\CatchFileEdef

临时文件可以被自动删除，例如（Linux 的删除命令名为，Windows 的删除命令名为rm）del：

\usepackage{atveryend}
\AtVeryEndDocument{%
  \IfFileExists{tmp-pdffiletools.txt}{%
    \immediate\write18{rm tmp-pdffiletools.txt}%
  }{}%
}

Answer