在perl中的模式替換

Question

我想用字符串2替換下面的行（string1）。任何想法我應該如何在Perl中做到這一點？

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

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

在替換字符串，微，target_lib，Verilog和功能性是恆定的東西。我只需要將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';