regex - perl 正则表达式将反斜杠附加到目录路径

Question

我的应用程序接受来自用户的许多路径，这些路径可能会或可能不会以反斜杠终止这些路径。我想确保所有路径都以反斜杠 () 终止，以便我可以将文件名附加到它们以执行其他各种操作。我在这里研究了很多问题，但未能找到解决方案，所以我整理了以下内容:

    foreach my $path (@Path) {
      my $char = chop($path);
      if ($char ne '\\') {
        $path = $path . $char . '\\';
      } else {
        $path = $path . '\\';
    }

这可能是一种非常糟糕的做法，但它确实有效。任何人都可以为我提供一个正则表达式替代方案吗？

Answer 1

使用File::Spec建立你的路径。它更容易、更安全、更便携。

use File::Spec;
for my $path (@Path) {
    $path = File::Spec->catfile($path, "foo", "bar");
    # $path = "$path\foo\bar"  -- regardless of previous line ending
}