Caroline - Yet another line editing library
use Caroline;
use Term::Encoding qw(term_encoding);
my $encoding = term_encoding();
binmode *STDIN, ":encoding(${encoding})";
binmode *STDOUT, ":encoding(${encoding})";
my $c = Caroline->new;
while (defined(my $line = $c->readline('> '))) {
if ($line =~ /\S/) {
print eval $line;
}
}
Caroline is yet another line editing library like Term::ReadLine::Gnu.
This module supports
Provides portable line editing library for Perl5 community.
my $caroline = Caroline->new();
Create new Caroline instance.
Options are:
history_max_len : Str
Set the limitation for max history size.
completion_callback : CodeRef
You can write completion callback function like this:
use Caroline;
my $c = Caroline->new(
completion_callback => sub {
my ($line) = @_;
if ($line eq 'h') {
return (
'hello',
'hello there'
);
} elsif ($line eq 'm') {
return (
'突然のmattn'
);
}
return;
},
);
my $line = $caroline->read($prompt);
Read line with $prompt
.
Trailing newline is removed. Returns undef on EOF.
$caroline->history_add($line)
Add $line to the history.
$caroline->history()
Get the current history data in ArrayRef[Str]
.
$caroline->write_history_file($filename)
Write history data to the file.
$caroline->read_history_file($filename)
Read history data from history file.
If you want to support multi byte characters, you need to set binmode to STDIN. You can add the following code before call Caroline.
use Term::Encoding qw(term_encoding);
my $encoding = term_encoding();
binmode *STDIN, ":encoding(${encoding})";
Caroline detects east Asian ambiguous character width from environment variable using Unicode::EastAsianWidth::Detect.
User need to set locale correctly. For more details, please read Unicode::EastAsianWidth::Detect.
Copyright (C) tokuhirom.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
https://github.com/antirez/linenoise/blob/master/linenoise.c
tokuhirom [email protected]
mattn