Userinterface Modul Clui_sid (Projekte)

[thread]17381[/thread]

Userinterface Modul Clui_sid

Tags: perl5 module Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+9 replies
Kuerbis

2012-05-03 14:38
User since
2011-03-20
955 articles
BenutzerIn
Hallo,

wäre jemand bereit mir ein paar Kommentare zu diesem Modul (Clui_sid) zu geben? Die Funktion aw hat ungefähr die gleiche Aufgabe wie die choose-Funktion des Term::Clui Modul's,ordnet die Elemente aber anders, und verhält sich auch verschieden, wenn die Elemente nicht in den Schirm passen. Das Modul funktioniert nicht mit Windows.

Ein Beispielskript, dass das Modul verwendet:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/usr/bin/env perl use warnings; use 5.12.0; use utf8; binmode STDOUT, ':encoding(utf-8)'; use lib '.'; use Clui_sid qw(aw); my $choosen = aw( [ 'aaa' .. 'lzz' ], { prompt => 'Auswahl' } ); say "<$choosen>"; # in list Kontext multiple choice mit Leertaste my @choosen = aw( [ 'aa' .. 'zz', "\x{263a}" ], { prompt => 'Auswahl' } ); say "<@choosen>\n"; sleep 2; say help();
Last edited: 2012-05-05 15:44:28 +0200 (CEST)
- +4 replies
- Linuxer
  
  2012-05-03 14:53
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Was soll man Dir da schreiben, wenn man das Modul selbst (bzw. dessen Code) nicht sieht?
  
  Punkte, die mir anhand des Verwendungs-Beispiels auffallen:
  
  ich tendiere dazu, Funktionen nicht automatisch importieren zu lassen, sondern der Programmierer muss das explizit anfordern: use module qw( function1 function2 );
  aw() ist kein sprechender Funktionsname...
  
  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
  - Kuerbis
    
    2012-05-03 14:55
    
    User since
    2011-03-20
    955 articles
    BenutzerIn
    
    Habe es jetzt geschafft, das Modul zu verlinken.
    - +2 replies
    - Linuxer
      
      2012-05-03 16:52
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Anstatt wiederholt use constant zu schreiben, kannst Du auch eine Hash-Referenz übergeben:
      
      # anstatt
      
      Code (perl): (dl )
      
      1 2
      
      use constant ROW => 0; use constant COL => 1;
      
      Code (perl): (dl )
      
      1 2 3 4
      
      use constant { ROW => 0, COL => 1, };
      
      Spart Tipparbeit ;)
      
      Tiefer bin ich noch nicht in das Modul gedrungen.
      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!
      - Kuerbis
        
        2012-05-04 11:32
        
        User since
        2011-03-20
        955 articles
        BenutzerIn
        
        Hast du probiert, ob es funktioniert?
        Bei mir funktioniert es gut aber vielleicht ist das nur Zufall.
- +4 replies
- Kuerbis
  
  2012-05-05 15:42
  User since
  2011-03-20
  955 articles
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/env perl use warnings; use 5.12.0; use utf8; binmode STDOUT, ':encoding(utf-8)'; use Term::Choose qw(choose); my $choosen = choose( [ 'aaa' .. 'lzz' ], { prompt => 'Auswahl' } ); say "<$choosen>"; # in list Kontext multiple choice mit Leertaste my @choosen = choose( [ 'aa' .. 'zz', "\x{263a}" ], { prompt => 'Auswahl' } ); say "<@choosen>\n";
  
  Update:
  Attachments
  
  text/plain
  1049 lines
  Choose.pm
  
  Last edited: 2012-05-12 17:52:12 +0200 (CEST)
  - +3 replies
  - pq
    
    2012-05-30 17:22
    
    User since
    2003-08-04
    12209 articles
    Admin1
    
    hi Kuerbis,
    das forum hier soll kein ersatz für eine versionskontrolle sein.
    zumal du nie einen kommentar schreibst, was du warum geändert hast.
    10 mal reicht jetzt langsam, finde ich.
    hast du schonmal über einen gitgub-account nachgedacht, um die datei dort abzulegen?
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +2 replies
    - Kuerbis
      
      2012-06-01 07:48
      
      User since
      2011-03-20
      955 articles
      BenutzerIn
      
      Darüber hatte ich schon nachgedacht. Bis jetzt hat mich die erforderliche Anmeldung davon abgehalten.
      - Kuerbis
        
        2012-06-07 17:58
        
        User since
        2011-03-20
        955 articles
        BenutzerIn
        
        Habe es geschafft, das Paket auf github abzulegen: Term::Choose

View all threads created 2012-05-03 14:38.