perl - perl 中的模式替换

Question

我想用字符串 2 替换下面的 line(string1)。知道我应该如何在 perl 中做到这一点吗？

$string1=project/Import/files/mymux.v

替换为 =>project/micro/target_lib/MYMUX/functional/verilog.v

在替换字符串中，micro、target_lib、verilog 和functional 是不变的东西。我只需要将mymux.v 分解为MYMUX 和verilog.v。任何帮助，将不胜感激！

问候，桑迪普

Answer 1

my ($n) = $string1 =~ m{/([^/]+)\.v\z}
   or die;

my $string2 = 'project/micro/target_lib/'.uc($n).'/functional/verilog.v';