Perl Requires Chilkat v9.5.0.77+

StringBuilder GetAfterFinal

Demonstrates the StringBuilder.GetAfterFinal method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->new;
my $success = $sb->Append('111--222--333--444');

# The GetAfterFinal method returns the contents of the string after the final occurrence of
# the marker string.  If the remove flag is 1, then both the returned string AND
# the marker are removed.

# If the marker is not found, then the entire string is returned and the sb is cleared.
my $removeFlag = 1;
my $marker = '--';
my $substr = '';
while ($sb->Length > 0) {
    $substr = $sb->GetAfterFinal($marker, $removeFlag);
    print 'substr = ', $substr, ', sb contains: ', $sb->GetAsString(), "\n";
}

# Output:
# substr = 444, sb contains: 111--222--333
# substr = 333, sb contains: 111--222
# substr = 222, sb contains: 111
# substr = 111, sb contains:
#