Re: Need to change directory string.

Here's one way using s///:

use warnings;
use strict;

my $dir_str = "test/home/players/demo//thumbs/super.jpg";
$dir_str =~ s{//+}{/}g;
print "$dir_str\n";

__END__

test/home/players/demo/thumbs/super.jpg
[download]

UPDATE: fixed typo. Thanks Athanasius

Comment on Re: Need to change directory string. Download Code

Replies are listed 'Best First'.

Re^2: Need to change directory string.
by Athanasius (Archbishop) on Jan 02, 2013 at 16:36 UTC

Well, this produces .../demothumbs/..., but the OP states that he wants .../demo/thumbs/.... So a small amendment is needed:

 2:29 >perl -wE "$d = 'test/home/players/demo//thumbs/super.jpg'; $d =
+~ s[/{2,}][/]g; say $d;"
test/home/players/demo/thumbs/super.jpg

 2:34 >
[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]