Perl

StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->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:
my $numReplacements = $sb->ReplaceBetween('<name>', '</name>', 'Software', 'Technology');

# The number of replacements should be 2.
print 'numReplacements = ', $numReplacements, "\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(), "\n";