Perl

Get the Last N Lines of a StringBuilder

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

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->new;

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

my $bCrlf = 1;
print $sb->LastNLines(12, $bCrlf), "\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
#