如何使用regexp替换部分字符串？

Question

嗨,
我有一个看起来像的字符串

/dir/dir1/filename.txt

我想用一些其他名称替换"filename.txt",使"/ dir/dir1"保持原样,所以在替换字符串之后会看起来像

/dir/dir1/newfilename.txt

考虑到我不知道"filename"的值,我怎么能在Perl中使用RegExp呢？

非常感谢

PS:"filename.txt"和"newfilename.txt"用于在询问原始文件名不同的问题时使事情变得简单.

Answer 1

我建议不要使用正则表达式来摆弄文件名/路径.目录分隔符,有效/无效字符因平台而异,可能是一个需要解决的问题.我建议你尝试File :: Spec来提取文件名,然后用你想要的任何东西替换它

Answer 2

正则表达式是您的问题的错误工具.正则表达式很棒,大部分时间都在工作,但并不总是最干净(可读性)或最快的解决方案.

我建议使用经典的File :: Basename.与File :: Spec相比,File :: Basename是一个核心模块(无需安装!),并且非常易于使用:

    use File::Basename;

    my $basename = basename($fullname,@suffixlist);
    my $dirname  = dirname($fullname);

我最喜欢的用途:

    my $filename = basename($path);

Answer 3

$filename =~ s%/[^/]*$%/newfilename.txt%;