Korrektureingaben in der Konsole (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-25 06:50:06
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]19521[/thread]

submit to reddit

Korrektureingaben in der Konsole [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+9 replies
der_thomas

2015-02-20 20:50
User since
2013-09-07
158 Artikel
BenutzerIn
Hallo,

gibt es eine Möglichkeit in einer Konsole (Vorgabe)Wörter bei <> auszugeben ?

Also die Variable $wort hat den Vorgabewert 'tomas'

Ausgegeben werden soll nun der Inhalt der Variable $wort ('tomas') mit dem Cursor am Ende. Anschließend soll mittels Backspace oder Pfeil links in das Wort 'hineingefahren' werden können um es zu korrigieren ('thomas') bzw. soll es mit Enter einfach bestätigt werden können.

Gerne auch CPAN Module, weiß nur grad gar nicht nach was ich da suchen soll bzw. wie man das bezeichnet ?

Folgendes eignet sich nur zum Bestätigen des Wortes oder zum komplett neuschreiben:
Code (perl): (dl )

1 2 3 4 5

my $wort = "tomas"; print $wort; chomp (my $temp = <>); if ($temp) {$wort = $temp} print "$wort\n";
Viele Grüße
thomas

P.S. Falls das eine Rolle spielt, es handelt sich ein Ubuntu/Mint System und Perl 5.18.2.
Last edited: 2015-02-20 20:52:40 +0100 (CET)
- payx
  
  2015-02-20 21:26
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo der_thomas,
  
  nur ein Such-Hint: Term::Completion, ich glaube, das geht in die Richtung, oder?
  
  HTH
  Grüße
  payx
- +6 replies
- hlubenow
  
  2015-02-20 23:53
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Die Frage taucht immer mal wieder auf (und bereitet mir jedesmal Kopfzerbrechen, aber diesmal hab' ich's, glaub' ich).
  Zunächst zu Term::Completion:
  
  Quote
  If you are missing full line editing (left/right, delete to the left and right, jump to the beginning and the end etc.), you are probably wrong here, and want to consider Term::ReadLine and friends.
  
  Ok, dann also "Term::ReadLine and friends". Dies dürfte gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use warnings; use strict; use Term::ReadLine; my $wort = "tomas"; my $term = Term::ReadLine->new('example'); $term->ornaments(0); $wort = $term->readline("", $wort); print "$wort\n";
  - +5 replies
  - Linuxer
    
    2015-02-21 10:59
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Mein erster Gedanke war auch Term::ReadLine.
    Ich habe es allerdings noch nicht hinbekommen, "Eingaben" vorzudefinieren; wie also hier mit "Tomas" vozubelegen, damit es der Benutzer korrigieren kann.
    
    Auch mit Deinem Beispiel funktioniert es bei mir nicht.
    edit: Aber das liegt hier vielleicht auch an einem System mit eingeschränktem Funktionsumfang.
    
    edit2:
    Die Funktionsweise hängt mit dem verwendeten Backend zusammen.
    Term::ReadLine::Stub - welches mir auf dem eingeschränkten System zur Verfügung steht - bringt diese Funktion nicht mit.
    
    Auf einem anderen System funktioniert es - und es verwendet im Hintergrund Term::ReadLine::Gnu.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    #! /usr/bin/env perl use strict; use warnings; use 5.010.000; use Term::ReadLine; my $term = Term::ReadLine->new("xyz"); say "Using " . $term->ReadLine; my $predefined = "Tomas"; my $answer = $term->readline( "Check that name: ", $predefined ); say "Your answer was: $answer"; __END__ Using Term::ReadLine::Gnu Check that name: Tomas # mit Pfeilen nach links wandern und 'h' einfuegen; <Enter> Your answer was: Thomas
    
    edit3: Mit Term::ReadLine::Perl als Backend funktioniert es auch.
    Last edited: 2015-02-21 11:33:25 +0100 (CET)
    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!
    - +4 replies
    - GwenDragon
      
      2015-02-21 12:50
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Funktioniert so nicht auf Win32, ist also eine Linux-only-Lösung.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - Linuxer
        
        2015-02-21 13:54
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Stimmt. Hab es gerade auch mal getestet.
        Term::ReadLine::Gnu mag er nicht installieren, weil notwendige Bibliotheken fehlen.
        Term::ReadLine::Perl ist installiert und wird wohl auch verwendet, aber unter Windows hab ich auch nur den Prompt mit leerer Eingabe.
        
        Schade.
        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!
        
        +2 replies
        
        der_thomas
        
        2015-02-21 20:07
        
        User since
        2013-09-07
        158 Artikel
        BenutzerIn
        
        Term::ReadLine brachte die Lösung.
        
        Ich danke euch allen für die Hilfe !
        
        Dass das nicht auf Win funktioniert ist schade - für plattformübergreifende Dinge kann man es dann wohl nicht verwenden.
        
        Beste Grüße
        thomas
        
        rosti
        
        2015-02-22 11:18
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Win32::Console wäre eine Alternative.
- gelöscht 2015-02-21 11:13

View all threads created 2015-02-20 20:50.