perl中的模式替换

Question

我想用字符串2替换下面的行（string1）。任何想法我应该怎么做perl？

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

替换为=＆gt; project/micro/target_lib/MYMUX/functional/verilog.v

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

此致 和Sandeep

Answer 1

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

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