Perl

Get the Last N Lines of a StringBuilder

Returns up to the last N lines of the contents of a Chilkat StringBuilder. Perl

use chilkat();

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

$i = 1;
while ($i < 100) {
    $sb->Append("This is line number ");
    $sb->AppendInt($i);
    $sb->Append("\r\n");
    $i = $i + 1;
}

$bCrlf = 1;
print $sb->lastNLines(12,$bCrlf) . "\r\n";

# Output is:
# 
# 	This is line number 88
# 	This is line number 89
# 	This is line number 90
# 	This is line number 91
# 	This is line number 92
# 	This is line number 93
# 	This is line number 94
# 	This is line number 95
# 	This is line number 96
# 	This is line number 97
# 	This is line number 98
# 	This is line number 99
#