Perl

StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween method. Perl

use chilkat();

$sb = chilkat::CkStringBuilder->new();
$sb->Append("<company><industry>Software</industry><name>Chilkat Software</name><abc>Abc Software</abc><name>Xyz Software</name></company>");

# The ReplaceBetween method restricts the replacements to only
# the parts that occur between two delimiter strings.

# For example:
$numReplacements = $sb->ReplaceBetween("<name>","</name>","Software","Technology");

# The number of replacements should be 2.
print "numReplacements = " . $numReplacements . "\r\n";

# The sb now contains:
# <company><industry>Software</industry><name>Chilkat Technology</name><abc>Abc Software</abc><name>Xyz Technology</name></company>
print $sb->getAsString() . "\r\n";