perl - perl検索して置換../および

Question

私はPerlを使用してのすべてのインスタンスを置き換えています

../../../../../../abc'と 

文字列で

/と 、それぞれ。

私が使用している方法は次のようになります。

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

これは正しいです？

Answer 1

基本的に、はい。最初の正規表現は別の方法で記述する必要があります。.任意の文字に一致するため、エスケープする\.か、独自の文字クラスに配置する必要があり[.]ます。最初の正規表現は、次のようにクリーンに記述することもできます。

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

../文字通りのパターンを繰り返し探して、6それを置き換えます。区切り文字として中括弧を使用しているので、スラッシュをエスケープする必要はありません。修飾子を使用しているので/x、正規表現内にこれらのスペースを含めることができ、読みやすさが向上します。

Answer 2

これを試して。印刷します/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 3

あなたはabcを忘れたと思います：

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