Perl中如何区分用户传入的文件是XLSX格式还是普通ZIP压缩包

核心原理 #

XLSX属于OOXML格式，本质是按固定结构封装的ZIP包，合法XLSX的ZIP包内必然包含专属的固定路径文件，普通ZIP压缩包不会存在这类结构，基于这一特征可以实现100%准确的格式区分，且无需依赖File::LibMagic这类仅支持类Unix系统的库。

可落地的实现方案 #

• 方案1：检查ZIP内部固定结构（最推荐，全平台兼容） #

  依赖跨平台的Archive::Zip模块，直接读取ZIP包目录判断专属文件是否存在，性能高、准确性强，Windows下Strawberry Perl默认预装该模块，ActivePerl也可通过ppm直接安装。
  示例代码：

  use strict;
  use warnings;
  use Archive::Zip;
  
  # 入参为待检测文件路径，返回1为合法XLSX，0为普通ZIP或其他文件
  sub check_xlsx {
      my $file = shift;
      # 先验证文件本身是合法ZIP，可替换为你现有File::Type的application/zip检测逻辑
      my $zip = Archive::Zip->new();
      return 0 if $zip->read($file) != Archive::Zip::AZ_OK;
      # 校验XLSX专属的两个固定路径文件是否存在
      return 0 unless $zip->memberNamed('[Content_Types].xml');
      return 0 unless $zip->memberNamed('xl/workbook.xml');
      return 1;
  }
  

• 方案2：扩展名兜底校验（最轻量，适合低要求场景） #

  若业务场景下不存在用户随意修改文件后缀的情况，可在检测出文件是ZIP格式的基础上，补充判断文件后缀是否为.xlsx（不区分大小写），无需额外依赖，性能最高但存在误判可能。
  示例代码：

  sub check_xlsx_ext {
      my $file = shift;
      return $file =~ /\.xlsx$/i ? 1 : 0;
  }
  

• 方案3：解析校验（适合后续需读取XLSX内容的场景） #

  若脚本后续本身需要处理XLSX内容，可直接用Spreadsheet::ParseXLSX模块尝试打开文件，能正常解析即为合法XLSX，可同时完成格式校验和业务前置准备。

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