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

[trizen]

in reply to 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

[rovf]

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)) =~ /^-/

;-)

[GrandFather]

Or using substr to insert a string between two characters:

$_ = 0;
substr $str, $_ + 1, 0, '/' while ($_ = index $str, 'CO', $_) > -1;