たPerl：シンプルな検索と置換質問

Question

私はWindows 7の私は、検索を実行し、交換するためにしようとしている上のActiveState Perlの5.12.4を使用してい

...

print "selected dir: $selected_dir basedir: $baseTestDir\n"; 
$selected_dir =~ s/$baseTestDir//g; 

$selected_dir = "\home\selenium\projects\myco\AutomatedTests\MyCliUSA\Critical Path\Live\G Sedan"と$baseTestDir = "\home\selenium\projects\myco\AutomatedTests\MyCliUSA"。ただし、検索および置換ステートメントの後では、$selected_dirは変更されません。検索を適切に実装してここに置き換えるにはどうすればよいですか？

Answer 1

あなたが正規表現パターンに$baseTestDir内のテキストを変換しませんでした。これはquotemetaを使用することができます。

my $base_test_dir_pat = quotemeta($base_test_dir); 
$selected_dir =~ s/^$base_test_dir_pat//; 

\Q..\Eは、二重引用符で囲んだ文字列リテラルでもアクセスできます。

$selected_dir =~ s/^\Q$base_test_dir\E//; 

末尾の\Eを省略することができます。

$selected_dir =~ s/^\Q$base_test_dir//; 

Answer 2

私はbaseTestDirでselected_dirを交換するには、次を記述します。

$selected_dir =~ s/$selected_dir/$baseTestDir/; 

Answer 3

あなたは '\'をエスケープする必要があります。

は、交換前の

$baseTestDir =~ s/\\/\\\\/g;

を行います。