AnyEvent trying to read from a file

[wheelej]

I am trying to get AnyEvent to work on what I thought would be a simple bit code. My code does not work.

Clearly I have misunderstood something. I am trying run the following on a Windows PC. There are two processes, one a very simple routine which opens and appends data to a file and the second to read the data as and when it is written.

use strict;
use warnings;
use AnyEvent;
use AnyEvent::Strict;

open(my $fh, '<', 'C:/Temp/TestFile.txt') or die $!;
my $done    = AnyEvent->condvar;
my $watcher 
    = AnyEvent->io
        ( fh   => $fh
        , poll => 'r'
        , cb   => 
            sub {
                my $input = <$fh>;
                print "Input [$input]\n";
                if ( $input =~ /^End of processing file/ ) {$done->sen
+d; }
            }
    );
$done->recv;
close $fh or die $!;
print "All done!\n";

However the code just terminates with the following:-

AnyEvent->io called with fh argument pointing to a file at script\test
+\AnyEvent0.pl line 18.

Please can one point out what I have done wrong? Thanks.

[huck]

http://search.cpan.org/~mlehmann/AnyEvent-7.13/lib/AnyEvent.pm#I/O_WATCHERS
" Note that only file handles pointing to things for which non-blocking operation makes sense are allowed. This includes sockets, most character devices, pipes, fifos and so on, but not for example files or block devices."

[wheelej]

Thank you for your reply. It makes sense, so back to the drawing board for me.