Perl

StringBuilder SetNth

Demonstrates the SetNth method. Perl

use chilkat();

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

$sb = chilkat::CkStringBuilder->new();
$sb->Append("red,blue,\"green,purple\",,yellow");

$delimiterChar = ",";
$exceptDoubleQuoted = 1;
$exceptEscaped = 1;

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

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

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

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

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

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