小编Der*_*esi的帖子

我有一个关于在perl中重命名目录的问题（caveat：需要区分大小写的重命名）。

我有一个名为Demo的目录。我有一个重命名目录的脚本，但是我需要区分大小写。

因此，演示与演示不同。

例如，我有一个名为Demo的目录。我想将其重命名为CLIENT1。我的脚本叫做perlDirRename arg1 arg2。如果我提供参数Demo CLIENT1，我希望代码通过，如果我提供参数demo CLIENT1，我将引发错误

总结一下：

./perlDirRename Demo CLIENT1 （通过）

./perlDirRename demo CLIENT1 （失败）

这是一个代码片段：

my $from_dir = $ARGV[0];
my $to_dir = $ARGV[1];

if ($from_dir eq $to_dir) {
  print("Arguments cannot be equal!\n");
  exit(1);
}


move("$dirHome/$from_dir", "$dirHome/$to_dir") or die "Move failed: $!";

如何在Perl中执行区分大小写的重命名或移动操作？

我成功使用以下命令将文本参数（$ 1）替换为$ 2，但是它忽略大小写。我想区分大小写。SED可以进行区分大小写的搜索，还是应该使用perl？Perl中的命令敏感等效命令是什么？

 sed -i -e "s/$1/$2/g" "$2/index.html"