Perl

StringBuilder RemoveAfterFinal

Demonstrates the StringBuilder.RemoveAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

Perl

use chilkat();

$success = 0;

$sb = chilkat::CkStringBuilder->new();
$success = $sb->Append("abc::def::ghi");

# The RemoveAfterFinal method removes the chars after the final occurrence of the marker.
# It also removes the marker string.
# If the marker is not found, then nothing is removed and the method returns 0.
$marker = "::";
$bFound = $sb->RemoveAfterFinal($marker);

print "bFound = " . $bFound . "\r\n";
print "sb contains: " . $sb->getAsString() . "\r\n";

# Output is:
# bFound = 1
# sb contains: abc::def