Perl

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Perl

use chilkat();

$strTab = chilkat::CkStringTable->new();

# SplitAndAppend make it easy to break apart comma delimited, semicolon delimited,
# or strings delimited by other characters.
$s = "abc,123,xyz,456,music,math,\"World History\",\"Chicago,Cubs\",Japan";

$strTab->SplitAndAppend($s,",",1,1);

$i = 0;
$numStrings = $strTab->get_Count();
while ($i < $numStrings) {
    print $i . ": " . $strTab->stringAt($i) . "\r\n";
    $i = $i + 1;
}

# The output is: 
# 0: abc
# 1: 123
# 2: xyz
# 3: 456
# 4: music
# 5: math
# 6: "World History"
# 7: "Chicago,Cubs"
# 8: Japan

# Note: Keeping the quotes is intentional.