Perl

StringBuilder GetNth

Demonstrates the GetNth method. Perl

use chilkat();

# The GetNth method is handy for getting parts from delimited strings.
# For example:

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

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

# Prints "[red]"
print "[" . $sb->getNth(0,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";

# Prints "[blue]"
print "[" . $sb->getNth(1,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";

# Prints "[green,purple]"
print "[" . $sb->getNth(2,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";

# Prints "[]"
print "[" . $sb->getNth(3,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";

# Prints "[yellow]"
print "[" . $sb->getNth(4,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";

# Prints "[]"
print "[" . $sb->getNth(5,$delimiterChar,$exceptDoubleQuoted,$exceptEscaped) . "]" . "\r\n";