文件名中的转义括号

Question

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

#将所有jpgs加载到一个数组中。 @pix = `ls *.JPG`; foreach $pix (@pix) { #让你知道它正在工作 print "处理照片".$pix; $pix2 = $pix; $pix2 =~ \Q$pix\E; # 问题线 #使用程序exiv2重命名带有时间戳的文件 system("exiv2 -r %Y_%m%d_%H%M%S $pix2"); }

错误是这样的：

无法在 script.sh 行 [问题行] 处调用没有包或对象引用的方法“Q”。

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

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

我发现了这个由 Larry Wall 不久前编写的 perl 重命名脚本......它可以满足您的需求，而且还有很多其他功能。我保留在我的 $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;
}