Wie mache ich die Tab-Vervollständigung in Perls Term :: Shell?

Question

Ich verwende das Term::Shell Paket in Perl für die Implementierung eines CLI-Tools. Ich kann die Tab-Vervollständigung eines Befehlsteils damit nicht machen.

comp_CMD() - das ist eine API, die von diesem Term :: Shell zur Verfügung gestellt wird, soll die Tab-Vervollständigung erreichen. Das hilft mir nicht. Weiß jemand wie man das macht ??

Beispielcode:

#!/usr/bin/env perl 
package Sample; 
use base qw(Term::Shell); 

sub prompt_str { "Sample\>" }; 

sub comp_show 
{ 
    my $o = shift; 
    my $word = shift; 
    $o->completions($word, [qw(all work and no play is no fun at)]); 
} 

sub run_show 
{ 
     print "run show\n"; 
} 

package main; 
Sample->new->cmdloop; 

Dies ist ein Lauf des Programms:

Sample>show[TAB] 

Der obige Befehl doesnt geben die erwartete Ausgabe .. es gibt mir nur eine Registerkarte.

Answer 1

Ihr Beispiel funktioniert für mich. Sowohl "show" als auch seine Argumente werden vervollständigt.

Nachdem Sie "show" eingegeben haben, gibt es nichts mehr zu vervollständigen, es ist bereits ein voller Befehl. Um das erste Argument zu vervollständigen, müssen Sie mindestens seinen ersten Buchstaben angeben; Wenn Sie also <TAB> direkt nach der Show eingeben, gelangen Sie nur zu der Stelle, an der Sie den ersten Buchstaben des Arguments eingeben müssen, das Sie vervollständigen möchten. Und wenn Sie zweimal hintereinander <TAB> drücken, sehen Sie, welche Fertigstellungen verfügbar sind.

Das einzige, was ich seltsam fand, ist, dass, wenn es nur ein einzelnes mögliches Argument gibt, das abgeschlossen wird, es wird nicht automatisch vervollständigt. Sie müssen noch den ersten Buchstaben angeben. Es ist ein bisschen merkwürdig, aber vielleicht nur ein Versehen des Herstellers.

Answer 2

vor allem bekomme ich nicht die "Kommentar hinzufügen" -Taste .. so posten ich als Antwort.

habe ich versucht, auf diese Weise:

sample> sh"TAB" 

sample>show w"TAB" 

Nichts funktionierte.

Hat es etwas mit der Umwelt zu tun? oder etwas anderes?

Answer 3

Vergewissern Sie sich, dass Sie Term::ReadLine::Gnu oder Term::ReadLine::Perl installiert haben.