perl-ausgabe bearbeiten (Allgemeines zu Perl)

[thread]17388[/thread]

perl-ausgabe bearbeiten

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
Gast Tenuo

2012-05-04 15:38

Hallo,
ich suche schon sehr lange nach einer Lösung, mit der PERL einen Text in der Konsole ausgibt und der User ihn dann aber noch bearbeiten kann.
Vielleicht weiß hier ja jemand etwas darüber, danke schon mal für jede Hilfe.
Last edited: 2012-05-04 15:43:12 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2012-05-04 15:44
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Was bedeutet für dich bearbeiten der Ausgabe und was soll dann mit der Ausgabe weiter geschehen?
  
  PS: Die Sprache, die du verwenden willst, wird allgemein Perl genannt und geschrieben, nicht PERL.
  Last edited: 2012-05-04 15:47:21 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Tenuo
    
    2012-05-04 15:47
    
    sorry, ich meinte, dass Perl einen Text ausgibt, also z.b.
    print "Hallo";
    aber man kann dieses Wort dann nach bearbeiten, also buchstaben dazutippen oder löschen. Und mit enter wird das dann zu einerm string, z.b. mit
    $eingabe = <STDIN>;
    wäre das irgendwie möglich ?
    Last edited: 2012-05-04 15:50:25 +0200 (CEST)
    - murphy
      
      2012-05-04 15:57
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Das klingt als solltest Du über die Verwendung von Term::ReadLine oder eines Editorwidgets aus einer GUI-Bibliothek nachdenken.
      When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- hlubenow
  
  2012-05-04 16:17
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Auf der Konsole ist sowas relativ umständlich (Term::ReadLine, Term::ReadKey wurde ja schon genannt).
  Es ist eher typisch für Eingaben in grafischen Oberflächen, z.B.:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl use warnings; use strict; use Tk; my $text = ""; my $mw = new MainWindow; my $entry = $mw->Entry(); $entry->insert('end', "Dies ist ein Text."); $entry->focus(); $entry->pack(-padx=>20,-pady=>20); my $button = $mw->Button(-text=>"Ok",-command=>sub{$text=$entry->get();$mw->destroy()}); $button->pack(-padx=>20,-pady=>20); MainLoop; print "Text ist: $text\n";
  
  Last edited: 2012-05-04 16:19:01 +0200 (CEST)
  - Gast Tenuo
    
    2012-05-04 16:21
    
    vielen Dank, hat mir schon sehr geholfen, ich werde das mal ausproboieren, wenn ich Zeit habe.
    Last edited: 2012-05-04 16:26:15 +0200 (CEST)

View all threads created 2012-05-04 15:38.