Re: How can I do this action WITHOUT split?

my $chars = $str_no_dash;
my $final_string = $str_with_dash;
$final_string =~ s{[^-]}{substr($chars,0,1,'')}ge;
[download]

Dave.

Comment on Re: How can I do this action WITHOUT split? Download Code

Replies are listed 'Best First'.
Re^2: How can I do this action WITHOUT split? by Anonymous Monk on Feb 22, 2014 at 17:28 UTC
Beat me to it! `my $r = reverse $str_no_dash; $str_with_dash =~ s/[^-]/chop $r/ge;` [download]	[reply] [d/l]
Re^2: How can I do this action WITHOUT split? by McA (Priest) on Feb 22, 2014 at 17:19 UTC
Chapeau! I do forget always that you can put a function in the right part of the substitute command. McA	[reply]