Perl

Load StringTable from a StringBuilder

Demonstrates how to load a StringTable from the text contained in a Chilkat StringBuilder object. Perl

use chilkat();

$success = 0;

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

$sb->Append("This is line 1\r\n");
$sb->Append("An empty line follows...\r\n");
$sb->Append("\r\n");
$sb->Append("This is line 4\r\n");

$strTab->AppendFromSb($sb);

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