Perl

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $strTab = Chilkat2::StringTable->new;

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

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

my $i = 0;
my $numStrings = $strTab->Count;
while ($i < $numStrings) {
    print $i, ': ', $strTab->StringAt($i), "\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.