文件名中的转义括号

Question

我有一些名为以下内​​容的文件：file (2).jpg。我正在编写一个 Perl 脚本来重命名它们，但由于括号未被替换而出现错误。 所以。有人可以告诉我如何转义字符串中的所有括号（和空格，如果它们引起问题），以便我可以将其传递给命令。脚本如下：

#Load all jpgs into an array.
@pix = `ls *.JPG`;

foreach $pix (@pix) {

    #Let you know it's working
    print "Processing photo ".$pix;

    $pix2 = $pix;
    $pix2 =~ \Q$pix\E;    # Problem line

    #Use the program exiv2 to rename the file with timestamp
    system("exiv2 -r %Y_%m%d_%H%M%S $pix2");
}

错误是这样的：

Can't call method "Q" without a package or object reference at script.sh line [problem line].

这是我第一次使用正则表达式，所以我正在寻找解释要做什么以及给出答案的答案。感谢您的任何帮助。

Answer 1

为什么不使用简单的呢？

find . -name \*.JPG -exec exiv2 -r "%Y_%m%d_%H%M%S" "{}" \;

附：
\Q 禁用模式元字符，直到 \E 在正则表达式内。

例如，如果你想匹配路径“../../../somefile.jpg”，你可以写：

$file =~ m:\Q../../../somefile.jpg\E:;

而不是

$file =~ m:\.\./\.\./\.\./somefile\.jpg:; #e.g. escaping all "dots" what are an metacharacter for regex.

Answer 2

我发现这个 Perl 重命名脚本是 Larry Wall 不久前编写的......它可以满足您的需要，甚至更多。我保留在我的 $PATH 中，并每天使用它......

#!/usr/bin/perl -w

use Getopt::Std;

getopts('ht', \%cliopts);
do_help() if( $cliopts{'h'} );

#
# rename script examples from lwall:
#       pRename.pl 's/\.orig$//' *.orig
#       pRename.pl 'y/A-Z/a-z/ unless /^Make/' *
#       pRename.pl '$_ .= ".bad"' *.f
#       pRename.pl 'print "$_: "; s/foo/bar/ if <stdin> =~ /^y/i' *

$op = shift;
for (@ARGV) {
   $was = $_;
   eval $op;
   die $@ if $@;
   unless( $was eq $_ ) {
      if( $cliopts{'t'} ) {
         print "mv $was $_\n";
      } else {
         rename($was,$_) || warn "Cannot rename $was to $_: $!\n";
      }
   }
}

sub do_help {
   my $help = qq{
   Usage examples for the rename script example from Larry Wall:
        pRename.pl 's/\.orig\$//' *.orig
        pRename.pl 'y/A-Z/a-z/ unless /^Make/' *
        pRename.pl '\$_ .= ".bad"' *.f
        pRename.pl 'print "\$_: "; s/foo/bar/ if <stdin> =~ /^y/i' *

   CLI Options:
   -h      This help page
   -t      Test only, do not move the files
      };
   die "$help\n";
   return 0;
}