Variable in der Shell (DOS-Box) ohne GUI-Formularfeld editieren/ändern (Allgemeines zu Perl)

[thread]15102[/thread]

Variable in der Shell (DOS-Box) ohne GUI-Formularfeld editieren/ändern

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
biker1

2010-06-05 17:02
User since
2010-06-05
3 Artikel
BenutzerIn
hallo,

ich bin auf der Suche nach einer einfachen Möglichkeit in einem Perlskript vorhandene Variablen in der Shell (DOS-Box) auszugeben und mittels Tastatur zu ändern. Also eine ganz "einfache" Editierfunktion in der Konsole.

Folgender Versuch von mir ist ein wenig zu kurz gedacht.... das tut natürlich nicht.
Code: (dl )

1 2 3 4 5 6

$var = "hallo"; print $var; # hallo $var = <STDIN>; # tippe "le" für : hallole print $var; # le , "hallo" fehlt aber leider :-(
Aber wie kann man das machen? Braucht man:

- die richtige Kombination aus STD-Filehandle (STDOUT, STDIN) und einer Pipe ?
- oder sollte man das mit Backticks realisieren? Etwa so ähnlich.... system(`cmd`);
- oder gibt es (kleine) Module die so etwas ermöglichen?
- oder sollte man ein externes, DOS-Programm mit system() aufrufen, welche die einfache Editiermöglichkeit bietet.

ich möchte nicht alles von grund auf mit read etc. realisieren. Eine Editierlogik in vi-Manier würde mir auch schon ausreichen. ich möchte letztlich nur die Änderbarkeit von Variablen an der Konsole. STDIN fängt ja leider immer bei "" an, so dass man, wenn man nicht alles abtippen möhte, den vorhandenen Variablenwerte in der Konsole kopieren und nach STDIN per Einfügen übertragen muss.

Im voraus schon mal vielen Dank!
Last edited: 2010-06-05 17:09:46 +0200 (CEST)
- +2 replies
- Gast wer
  
  2010-06-05 17:21
  meinst du sowas?:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use strict; use warnings; my $var='Hallo'; my $input=<STDIN>; chomp($input); $var.=" $input"; print "$var\n";
  
  Last edited: 2010-06-05 17:36:42 +0200 (CEST)
  - biker1
    
    2010-06-05 17:44
    
    User since
    2010-06-05
    3 Artikel
    BenutzerIn
    
    danke, aber nein das meine ich nicht.
    
    es sollen beliebige Änderungen möglich sein. also z.B. auch:
    
    - das Löschen von Zeichen an beliebiger Stelle,
    - das Einfügen .... " ....
    
    das Ergebnis könnte dann z.B. HaaaalloooooLe lauten.
    
    die Buchstaben a l l o wurden weder gelöscht noch eingefügt. Das kleine h am Anfang wurde durch das große H ersetzt. Es gab Einfügungen und eine Erweiterung am Ende.
    
    "ganz normales" Editieren eben....
    
    MfG
- +3 replies
- Gast ҉
  
  2010-06-05 17:46
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use 5.010; use IO::Prompt qw(prompt); my $var = 'hallo'; while ($var = prompt {-p => ('$var = ' . $var . "\b" x length($var)), -d => $var}) { say $var; }
  
  Last edited: 2010-06-05 17:51:52 +0200 (CEST)
  - +2 replies
  - biker1
    
    2010-06-05 18:18
    User since
    2010-06-05
    3 Artikel
    BenutzerIn
    
    danke.
    ich hab es installiert und ausprobiert. leider scheint DOS mir einen Strich durch die Rechnung zu machen...
    
    beim Aufruf von prompt passierts...
    
    Code: (dl )
    
    1 2
    
    C:\Users\...\Documents>perl io.pl Cannot write to terminal: No such file or directory at io.pl line 5
    - renee
      
      2010-06-06 16:08
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ja, IO::Prompt ist nicht für Windows gemacht:
      
      http://search.cpan.org/dist/IO-Prompt/lib/IO/Promp...
      
      (Damals gab es noch kein StrawberryPerl, sonst wäre die Antwort allgemeiner ausgefallen).
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/

View all threads created 2010-06-05 17:02.