in reply to Re^5: Win32 Serial Under Windows 7
in thread Win32 Serial Under Windows 7

so I've narrowed it down to this: 

user Term::ReadKey;

ReadMode 4;

my $key;

while (!defined ($key = ReadKey(-1))) {
print "Test\n";
sleep(5);
}

ReadMode 0;

[download]
This does not work on Windows 10 using Strawberry Perl or ActiveState Perl....anyone else have this issue?

Replies are listed 'Best First'.
Re^7: Win32 Serial Under Windows 7
by pryrt (Abbot) on Apr 06, 2018 at 18:00 UTC

    "'Not I,' said the sheep." I get impatient, so used 1s sleep, not 5s. But it works how I believe you intend for me using Strawberry v5.26.0.

    use warnings;
use strict;
use Term::ReadKey;

ReadMode 4;
my $key;
while( !defined ($key = ReadKey(-1)) ) {
    print qq(Test\n);
    sleep(1);
}
print qq(Exit With Key $key\n);

__END__

From cmd.exe prompt:

C:\usr\local\share\PassThru\perl\perlmonks>perl 1212444.pl
Test
Test
Exit With Key a

C:\usr\local\share\PassThru\perl\perlmonks>perl -v

This is perl 5, version 26, subversion 0 (v5.26.0) built for MSWin32-x
+64-multi-thread

    [download]

    relevant update: windows 10, 1709 (os build 16299.248)

    irrelevant update: whoops, there was no sheep, just a pig, cat, and rat... and it's actually "and the cat said, 'not I'". I guess it's been a few years since my kids last requested that story.

[reply]
[d/l]
      So heres the funny issue....I dont get the Test output 2 times....I don't get it at all....I just get the second part on exit....weird Update: I am using Windows 10 Home Version 1709 OS Build 16299.309 and the most recent Strawberry Perl
[reply]

        what's your perl -V?

[reply]
[d/l]

In Section Seekers of Perl Wisdom