如何使用 Perl 检查文件的扩展名？

对于我的 Perl 脚本，一个文件作为参数传递。该文件可以是.txt文件或一个.zip文件包含.txt file.

我想编写看起来像这样的代码

if ($file is a zip) {

    unzip $file
    $file =~ s/zip$/txt/;
}

检查扩展的一种方法是进行拆分.然后匹配数组中的最后一个结果（由 split 返回）。

有更好的办法吗？

您可以为此使用 File::Basename。

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use File::Basename;

my @exts = qw(.txt .zip);

while (my $file = <DATA>) {
  chomp $file;
  my ($name, $dir, $ext) = fileparse($file, @exts);

  given ($ext) {
    when ('.txt') {
      say "$file is a text file";
    }
    when ('.zip') {
      say "$file is a zip file";
    }
    default {
      say "$file is an unknown file type";
    }
  }
}

__DATA__
file.txt
file.zip
file.pl

运行这个给出：

$ ./files 
file.txt is a text file
file.zip is a zip file
file.pl is an unknown file type