perl - perl でのパターン置換

Question

以下の行 (string1) を文字列 2 に置き換えたいと思います。perl でどのようにすればよいですか?

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

=>で置き換えますproject/micro/target_lib/MYMUX/functional/verilog.v

置換文字列では、micro、target_lib、verilog、および機能は一定のものです。mymux.v を MYMUX と verilog.v に分割するだけです。どんな助けでも大歓迎です！

よろしく、サンディープ

score 3 · Accepted Answer

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

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

1 に答える 1