Thread Frage zu ReadKey und while Schleifen (0 answers)
Opened by Kuerbis at 2013-06-04 10:58

Kuerbis
 2013-06-04 10:58
#167940 #167940
User since
2011-03-20
938 Artikel
BenutzerIn
[default_avatar]
Hallo!

Würde sich etwas ändern, wenn ich für die untere Subroutine zwei while verwenden würde:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

sub local_readline {
    # ...
    ReadMode 4;
    while ( 1 ) {
        while ( defined ( my $key = ReadKey( -1 ) ) ) {
        # ...
        }
    }
    ReadMode 0
}


statt einer mit next if ! defined $key;?


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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use Text::LineFold;
use Term::ReadKey qw(GetTerminalSize ReadKey ReadMode);
END { ReadMode 0 }
use constant {
    BSPACE         => 0x7f,
    CLEAR_LINE     => "\e[2K",
    GO_TO_TOP_LEFT => "\e[1;1H",
    CLEAR_EOS      => "\e[0J",
};


sub local_readline {
    my ( $text ) = @_;
    my $p = "\r: ";
    my $str = '';
    my $line_fold = Text::LineFold->new( ColMax => ( GetTerminalSize )[0] );
    print GO_TO_TOP_LEFT;
    print CLEAR_EOS;
    print $line_fold->fold( $text, 'PLAIN' );
    print $p . $str;
    my $size_changed = 0;
    my $orig_sigwinch = $SIG{'WINCH'};
    local $SIG{'WINCH'} = sub {
        $orig_sigwinch->() if $orig_sigwinch && ref $orig_sigwinch eq 'CODE';
        $size_changed = 1;
    };
    ReadMode 4;
    while ( 1 ) {               #####
       if ( $size_changed ) {
            $size_changed = 0;
            $line_fold->config( 'ColMax', ( GetTerminalSize )[0] );
            print GO_TO_TOP_LEFT;
            print CLEAR_EOS;
            print $line_fold->fold( $text, 'PLAIN' );
            print $p . $str;
        }
        my $key = ReadKey( -1 );
        next if ! defined $key;  #####
        if ( $key eq "\cC" ) { say "^C"; exit 1 }
        if ( $key eq "\cD" ) { return }
        if ( $key eq "\n" ) { print "\n"; return $str }
        if ( ord( $key ) == BSPACE || $key eq "\cH" ) {
            $str =~ s/.\z//;
            print CLEAR_LINE;
            print $p . $str;
            next;
        }
        next if $key !~ /^\p{Print}\z/;
        $str .= $key;
        print $p . $str;
    }
    ReadMode 0
}


say local_readline( 'Long Prompt Line ' x 20 . "\n\n" );

View full thread Frage zu ReadKey und while Schleifen