Kann man den (Terminal) Prompt Text vorgeben? (Allgemeines zu Perl)

[thread]21228[/thread]

Kann man den (Terminal) Prompt Text vorgeben?

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+10 replies
Gast Tom

2021-09-22 15:03

Hallo,

gibt es in Perl eine Möglichkeit dass man bei einer Eingabe via Terminal den Text, der eingegeben werden soll, bearbeitbar vorschlägt ?

Was ich will ist folgendes:

Am Einbabeprompt soll z.B. 'Teest' stehen, und dahinter ein blinkender Cursor - und ich soll in der Lage sein mit meinen Pfeiltasten nach links zu gehen das eine 'e' zu löschen und das Ganze mit Enter zu quittieren. Oder eben wenn mir Teest gefällt dies einfach mit Enter zu quittieren.

Also so ähnlich wie ich in einem Linux Terminal wenn ich die Pfeil nach oben Taste drücke die zuletzt getätigte Eingabe nochmal sehe, diese korrigieren kann oder einfach per Enter bestätigen kann.

Sorry, ich weiß echt nicht wie man das, was ich oben beschrieben habe, bezeichnet und mit welchen Suchwörtern ich per Suchmaschine oder per CPAN Suche da was finden könnte ;)

MfG Tom

P.S. OS: Linux Mint 20.2, Terminal: bash, Perl: 5.30.0
Last edited: 2021-09-22 15:23:15 +0200 (CEST)
- +4 replies
- hlubenow
  
  2021-09-22 16:53
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Guest Tom
  gibt es in Perl eine Möglichkeit dass man bei einer Eingabe via Terminal den Text, der eingegeben werden soll, bearbeitbar vorschlägt ?
  
  Aus einem meiner Lieblingsromane, "Douglas Adams - 'Dirk Gently's Holistische Detektei'" (paßt irgendwie gerade, finde ich :) ):
  
  Quote
  Der Lehrstuhl wurde von König Georg III. gegründet, der sich mit der Chronologie beschäftigt hat. Georg III stellte die Fragen: "Gibt es irgendeinen Grund dafür, warum eine Sache NACH der anderen passiert?","Gibt es eine Möglichkeit, das aufzuhalten?" Da alle Professoren des Lehrstuhls gleich auf die Anworten Ja - Nein - Vielleicht kamen, war der Rest der Aufgabe leicht zu erfüllen.
  
  Also, das ist schlimmes Hacking, aber das geht - vielleicht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use warnings; use strict; use X11::GUITest qw(SendKeys); use English; $OUTPUT_AUTOFLUSH = 1; print "Please enter something: "; SendKeys("Default entry"); my $input = <STDIN>; $OUTPUT_AUTOFLUSH = 0; chomp($input); print "\nYour input was: '$input'.\n\n";
  
  Irgendwann wurde für mich zu einer Regel: "Immer, wenn Du SendKeys verwenden willst, bist Du auf dem Holzweg." Denn meist gibt es eine andere und bessere Lösung. Aber diese Situation könnte eine Ausnahme sein.
  
  Aber setz' das bitte bloß nicht in Skripten zur Veröffentlichung oder in Produktivskripten ein.
  Last edited: 2021-09-22 16:57:30 +0200 (CEST)
  - +2 replies
  - hlubenow
    
    2021-09-22 17:34
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Es ist glaube ich doch keine Ausnahme: Es gibt bestimmt bessere Wege, Text in diesen Line-Buffer zu schreiben.
    Mit Term::ReadKey oder IO:Handle ginge das vielleicht besser.
    Es ist eine Frage des Terminals, des Line-Bufferings und der Ströme STDIN und STDOUT.
    Das könnte damit sicher jemand, der sich sehr gut in diesen Fragen auskennt, besser machen. Ich bin da bisher immer drumrumgekommen.
    
    Denn, wenn ich sowas machen will, verwende ich lieber Perl/Tk. Das Entry-Field dort hat einfach Methoden "insert()" und "get()". Für die Schicht dadrunter ist - anders als beim Terminal - automatisch gesorgt.
    Wenn gewünscht, kann ich auch ein Beispiel zu Tk::Entry posten. Allgemein ja auch schon auf meiner Seite zu Tk.
    - Gast Tom
      
      2021-09-22 18:43
      
      Danke, mit einer GUI TK habe ich das Problem schon gelöst, eigentlich will ich genau dies, dass sich der Eingabeprompt wie ein Entry in TK verhält.
      Aber ich will die Eingabe, wenn möglich in einem Terminal umsetzen.
      
      MfG Tom
      Last edited: 2021-09-22 18:54:59 +0200 (CEST)
  - Gast Tom
    
    2021-09-22 18:39
    
    Vielen Dank,
    
    das funktioniert schon mal fast so wie gewollt - einzig dass ich nicht per Pfeiltasten in dem Text navigieren kann - sondern nur mir der Rücktaste den Text von rechts nach links löschen kann, stört ein wenig.
    Last edited: 2021-09-22 18:54:55 +0200 (CEST)
- +5 replies
- Linuxer
  
  2021-09-22 17:49
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Hallo,
  
  dafür ist kein großes Hacking notwendig. Deine Freunde dafür sind:
  
  Term::ReadLine
  Term::ReadLine::Perl
  
  Und eventuell:
  Term::ReadLine::Gnu
  
  Versuch es zunächst mit den ersten beiden Modulen.
  Wenn es damit noch nicht sauber funktioniert, installiere das dritte auch noch.
  
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #! /usr/bin/env perl use strict; use warnings; use 5.030; use Term::ReadLine; my $term = Term::ReadLine->new( "Beispiel" ); my $prompt = "Deine Eingabe: "; my $input = $term->readline($prompt, "Teest"); say "Du hast '$input' eingegeben."; __END__;
  
  PS: Die Doku zu Term::ReadLine zeigt auch ein Beispiel, das eine "History" aufbaut.
  
  PPS: Code ergänzt
  Last edited: 2021-09-22 18:03:02 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - Gast Tom
    
    2021-09-22 20:05
    
    Hallo,
    
    das klingt schon einmal sehr gut, Dein Script funktioniert aber bei mir nicht, d.h. 'Teest' wird am Eingabeprompt nicht angezeigt.
    
    MfG Tom
    Last edited: 2021-09-22 21:11:14 +0200 (CEST)
    - +2 replies
    - Linuxer
      
      2021-09-22 21:24
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Hier funktioniert es.
      
      Ich verwende:
      
      * Perl 5.30.2
      * Term::ReadLine 1.17
      * Term::ReadLine::Perl 1.0303
      * Term::ReadLine::Gnu 1.42
      
      Hast Du alle drei Module installiert? Hast Du die gleichen Versionen im Einsatz?
      Evtl. unterscheiden sich die Feature-Sets bei unterschiedlichen Versionen.
      
      Interessant finde ich, dass ich ein Term::ReadLine 1.17 installiert habe, aber im Metacpan nur eine 1.14 als aktuelle Version gezeigt wird... Anscheinend ist die 1.17 bei mir die Version aus der Perl-Installation (selbst installiert mit perlbrew).
      
      Aus Mangel an Informationen kann ich leider nicht mehr dazu schreiben.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Gast Tom
        
        2021-09-22 23:08
        
        Hallo,
        
        Vielen Dank, jetzt funktioniert es, Term::ReadLine::Perl war nicht installiert ;)
        
        Die Installation von Term::Readline::Gnu klappte nicht:
        
        Quote
        cpan[2]> install Term::ReadLine::Gnu
        Running install for module 'Term::ReadLine::Gnu'
        Fetching with LWP:
        http://www.cpan.org/authors/id/H/HA/HAYASHI/Term-R...
        Fetching with LWP:
        http://www.cpan.org/authors/id/H/HA/HAYASHI/CHECKS...
        Checksum for /root/.cpan/sources/authors/id/H/HA/HAYASHI/Term-ReadLine-Gnu-1.42.tar.gz ok
        Configuring H/HA/HAYASHI/Term-ReadLine-Gnu-1.42.tar.gz with Makefile.PL
        Warning (mostly harmless): No library found for -ltermcap
        rlver.c:3:10: fatal error: readline/readline.h: Datei oder Verzeichnis nicht gefunden
        3 | #include <readline/readline.h>
        | ^~~~~~~~~~~~~~~~~~~~~
        compilation terminated.
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        Could not compile rlver.c.
        
        system(): No such file or directory
        
        If you have installed the GNU Readline Library (libreadline.{a,so} and
        readline/readline.h, etc.) on directories for which your perl is not
        configured to search (refer the value of `ccflags' and `libpath' in
        the output of `perl -V'), specify the paths as follows;
        
        perl Makefile.PL --includedir=/yourdir/include --libdir=/yourdir/lib
        or
        perl Makefile.PL --prefix=/yourdir
        
        Note that the GNU Readline Library version 2.0 and earlier causes error
        here. Update it to version 2.1 and/or later.
        
        Read INSTALL for more details.
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        Warning: No success on command[/usr/bin/perl Makefile.PL INSTALLDIRS=site]
        HAYASHI/Term-ReadLine-Gnu-1.42.tar.gz
        /usr/bin/perl Makefile.PL INSTALLDIRS=site -- NOT OK
        Failed during this command:
        HAYASHI/Term-ReadLine-Gnu-1.42.tar.gz : writemakefile NO '/usr/bin/perl Makefile.PL INSTALLDIRS=site' returned status 256
        
        .... es funktioniert aber auch so !!
        
        Die Versionen sind:
        Perl 5.30.0
        Term::ReadLine 1.17
        Term::ReadLine::Perl 1.0303
        
        Vielen Dank nochmal und Beste Grüße
        Tom
        Last edited: 2021-09-23 07:57:11 +0200 (CEST)
  - hlubenow
    
    2021-09-22 23:46
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Ah ja, "Term::ReadLine". Danke, wieder was gelernt!
    
    Das hier geht bei mir, einschließlich History-Funktion.
    Man muß wohl darauf achten, daß "Term::ReadLine::Gnu" mitinstalliert wurde. Das ist wohl nicht bei allen Linux-Distributionen der Fall.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
    
    #!/usr/bin/perl use warnings; use strict; use Term::ReadLine; my $term = Term::ReadLine->new( "Beispiel" ); print "\n"; # Unterstreichen des Prompts ausschalten: $term->ornaments(0); for my $i (1 .. 10) { $term->addhistory("Teest $i"); } my $prompt = "Deine Eingabe: "; my $input = $term->readline($prompt, "Please press up"); print "\nDu hast '$input' eingegeben.\n\n";
    
    Das Modul stellt wohl Perl-Bindings für die GNU readline library, einschließlich der GNU history library dar (C). Um das mit der History-Funktion am Eingabeprompt zu realisieren, ist also eine ganze Menge Aufwand nötig. Darüber haben sich viele kluge Leute Gedanken gemacht. Das könnte man ohne die Library nicht mal eben selbst machen.
    Last edited: 2021-09-22 23:47:27 +0200 (CEST)

View all threads created 2021-09-22 15:03.