Wie kann ich die Tabulatorvervollständigung in Perls Term :: Shell anpassen?

Question

Ich verwende Term::Shell Paket, um ein CLI-Tool zu implementieren. Dieses Paket bietet eine API: comp_CMD.

Diese Funktion wird aufgerufen, wenn der Benutzer die TAB-Taste drückt. Meine Forderung ist hier:

shell> stackTAB

over under

`shell> Stapel über TAB

flow sample junk

Aber die Standard-comp_CMD bietet nur einen Satz von TAB Optionen wie

shell> stackTAB

over under

`shell> Stapel über TAB

over under ### Das Problem ist hier

Statt über unter hier möchte ich flussmuster junk bekommen.

Answer 1

Mit den Style-Handlern comp_* kann man nur die Vervollständigungen mit dem letzten unvollständigen Wort abgleichen. Glücklicherweise können Sie jedoch das gewünschte Ergebnis erzielen, indem Sie die Funktion catch_comp wie folgt überschreiben: es lässt ein Match gegen ganze Befehlszeile:

my %completion_tree = (
    stack => { under => [], 
       over => [qw(flow sample junk)] } 
); 

sub catch_comp { 
    my $o = shift; 
    my ($cmd, $word, $line, $start) = @_; 

    my $completed = substr $line, 0, $start; 
    $completed =~ s/^\s*//; 

    my $tree = \%completion_tree; 
    foreach (split m'\s+', $completed) { 
     last if ref($tree) ne 'HASH'; 
     $tree = $tree->{$_}; 
    } 

    my @completions; 
    $_ = ref($tree); 
    @completions =  @$tree if /ARRAY/; 
    @completions = keys %$tree if /HASH/; 
    @completions =  ($tree)if /SCALAR/; 

    return $o->completions($word, [@completions]); 
} 

Answer 2

Eine weitere Sache, die ich hier hinzufügen möchten ..

Nach zwingende rl_complete Unterprogramm, müssen wir auch comp__ (Standard-Unterprogramm für TAB genannt) außer Kraft zu vermeiden wiederholtes Drucken der Unterbefehle.