Perl

StringBuilder SetNth

Demonstrates the SetNth method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# The SetNth method is handy for setting a part of a delimited string.
# For example:

my $sb = Chilkat2::StringBuilder->new;
$sb->Append('red,blue,"green,purple",,yellow');

my $delimiterChar = ',';
my $exceptDoubleQuoted = 1;
my $exceptEscaped = 1;

$sb->SetNth(2, 'magenta', $delimiterChar, $exceptDoubleQuoted, $exceptEscaped);
# Prints "red,blue,magenta,,yellow"
print $sb->GetAsString(), "\n";

$sb->SetNth(3, 'orange', $delimiterChar, $exceptDoubleQuoted, $exceptEscaped);
# Prints "red,blue,magenta,orange,yellow"
print $sb->GetAsString(), "\n";

# What happens if we start with an empty string?
$sb->Clear();

$sb->SetNth(2, 'apple', $delimiterChar, $exceptDoubleQuoted, $exceptEscaped);
# Prints ",,apple"
print $sb->GetAsString(), "\n";

$sb->SetNth(0, 'orange', $delimiterChar, $exceptDoubleQuoted, $exceptEscaped);
# Prints "orange,,apple"
print $sb->GetAsString(), "\n";

$sb->SetNth(1, 'banana', $delimiterChar, $exceptDoubleQuoted, $exceptEscaped);
# Prints "orange,banana,apple"
print $sb->GetAsString(), "\n";