Perl实现：将文档末尾的图/表文本移至对应引用位置（新手求助）

问题背景 #

你需要把文档末尾的图代码块（比如%%Figure-9开头的LaTeX图定义）移动到文档中对应引用（比如.... (\hyperref[F9]{\textbf{Figure~9}})）所在段落的附近，作为Perl新手，下面是一步步的实现方案。

核心思路 #

1. 一次性读取整个文档内容，避免逐行处理的繁琐
2. 提取所有图代码块，用哈希表存储（键为图编号，值为完整的图代码）
3. 遍历文档中的每个图引用，找到对应编号的图代码块，插入到引用所在段落的末尾
4. 移除原文档末尾的图代码块
5. 将处理后的内容输出到新文件，保留原文档备份

完整Perl脚本示例 #

#!/usr/bin/perl
use strict;
use warnings;

# 替换成你的输入文档路径
my $input_file = "your_original_doc.tex";
# 替换成处理后要保存的文件路径
my $output_file = "processed_doc.tex";

# 一次性读取整个文档内容
open my $in_fh, '<', $input_file or die "打不开输入文件 $input_file: $!";
my $content = do { local $/; <$in_fh> };
close $in_fh;

# 第一步：提取所有图代码块并存储到哈希表
my %figure_store;
# 匹配以%%Figure-N开头，到\end{figure}结束的完整块
while ($content =~ /(%%Figure-(\d+)\s+.*?\\end{figure})/gs) {
    my $full_figure_code = $1;
    my $fig_number = $2;
    $figure_store{$fig_number} = $full_figure_code;
}

# 第二步：从原内容中移除所有图代码块
$content =~ s/%%Figure-\d+\s+.*?\\end{figure}//gs;

# 第三步：找到每个图引用，插入对应的图代码块
# 匹配格式：(\hyperref[F<num>]{\textbf{Figure~<num>}})
$content =~ s/(\(\\hyperref\[F(\d+)\]\{\\textbf\{Figure~(\d+)\}\}\))/$1\n\n$figure_store{$2}/ge;

# 第四步：写入处理后的内容
open my $out_fh, '>', $output_file or die "创建输出文件失败 $output_file: $!";
print $out_fh $content;
close $out_fh;

print "处理完成！结果已保存到 $output_file\n";

脚本细节解释 #

• 读取文件：do { local $/; <$in_fh> }会把整个文件内容读入一个字符串，方便后续全局正则匹配
• 提取图块：正则/(%%Figure-(\d+)\s+.*?\\end{figure})/gs中，s让.匹配换行符，g实现全局匹配，把每个图的编号和对应代码存入哈希表，方便后续快速查找
• 移除原图块：用正则替换清空原内容中的所有图代码块，避免重复
• 插入图块：e修饰符允许在替换内容中使用Perl表达式，这里直接取出哈希表中对应编号的图代码，插入到引用的下方（用\n\n保证格式分隔）
• 安全输出：写入新文件而不是覆盖原文件，防止操作失误丢失原始内容

注意事项 #

1. 如果你的图引用格式有细微差异（比如空格、大小写），需要调整正则表达式中的对应部分，确保能精准匹配
2. 如果同一图编号有多个引用，脚本会在每个引用后插入图块；若只需插入一次，可以添加一个已处理编号的数组，跳过重复匹配
3. 运行前务必备份原文档，避免意外修改

内容的提问来源于stack exchange，提问作者Pon Ilavarasan