Question

I am using Perl to replace all instances of

../../../../../../abc' and  

in a string with

/ and  , respectively.

The method I am using looks like this:

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

Is this correct?

Answer 1

Try this. It will print /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";