perl的查找和替換../和

Question

我使用Perl與

分別/和 ，以取代

../../../../../../abc'和 

所有實例的字符串。

的方法，我用這樣的容貌：

sub encode 
{ 
    my $result = $_[0]; 
    $result =~ s/..\/..\/..\/..\/..\/..\//\//g; 
    $result =~ s/ / /g; 
    return $result; 
} 

這是正確的嗎？

Answer 1

試試這個。它將打印/foo bar/baz。

#!/usr/bin/perl -w 
use strict; 
my $result = "../../../../../../foo bar/baz"; 

#$result =~ s/(\.\.\/)+/\//g; #for any number of ../ 
$result =~ s/(\.\.\/){6}/\//g; #for 6 exactly 

$result =~ s/ / /g; 
print $result . "\n"; 

Answer 2

本質上說，是的，雖然第一次正則表達式已經被寫入以不同的方式：因爲.任何字符相匹配，我們要逃跑呢\.或把它放在自己的字符類[.]。第一個正則表達式也可以寫成清洗器

...; 
$result =~ s{ (?: [.][.]/){6} } 
      {/}gx; 
...; 

我們期待爲面值模式../重複6次，然後替換它。因爲我使用大括號作爲分隔符，所以我不必逃避斜線。因爲我使用/x修飾符，所以我可以在正則表達式中使用這些空格來提高可讀性。

Answer 3

你忘了ABC，我想：

sub encode 
{ 
    my $result = $_[0]; 
    $result =~ s/(?:..\/){6}abc/\//g; 
    $result =~ s/ / /g; 
    return $result; 
}