Re: How to insert a "/" within a string?

index + substr:

my $str   = 'ABCOPCOGNHVCOHL';
my $index = 0;

while (($index = index($str, 'CO', $index)) > -1) {
    substr $str, $index, 2, 'C/O';
}
print "$str\n";

__END__
ABC/OPC/OGNHVC/OHL
[download]

Comment on Re: How to insert a "/" within a string? Download Code

Replies are listed 'Best First'.
Re^2: How to insert a "/" within a string? by rovf (Priest) on Feb 21, 2012 at 13:11 UTC
To be in the same spirit as most of the other solutions proposed here, you should have written `($index = index($str, 'CO', $index)) > -1` as `lc($index = index($str, 'CO', $index)) =~ /^-/` [download] ;-) -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]
Re^2: How to insert a "/" within a string? by GrandFather (Saint) on Feb 21, 2012 at 19:41 UTC
Or using substr to insert a string between two characters: `$_ = 0; substr $str, $_ + 1, 0, '/' while ($_ = index $str, 'CO', $_) > -1;` [download] True laziness is hard work	[reply] [d/l]