Pass the Win32 native handle to OsFHandleOpen() to get a Perl file handle.

I got it to work that way but only with a baretext filehandle and without using strict. When I used a lexical variable I got the error message "Can't use an undefined value as a symbol reference at D:\Users\lock\t2.pl line 18." Line 18 is the print statement.

I still don't understand why the tie didn't work. There was no implementation of TIESCALAR in the module but I found TIEHANDLE.

#use strict;
use warnings;
use Data::Dumper;
use Win32API::File 0.08 qw( :ALL  );

my $testfile = "test.xml";
print "file exists\n" if -e $testfile;
my $hObject = createFile( $testfile, 'rw k e' );

unless ( $hObject ) {
    die "error creating handle: $^E\n";
}
print Dumper( $hObject);

my $fh;
OsFHandleOpen( FHTEST, $hObject, 'rw' ) or die "OsFHandleOpen: $^E\n";

print FHTEST "test";

print "finished\n";

__DATA__
output:

Name "main::FHTEST" used only once: possible typo at D:\Users\lock\t2.
+pl line 18.
file exists
$VAR1 = 116;
finished
[download]

OsFHandleOpen( my $fh = IO::Handle->new(), $hObject, 'rw' ) or die ...
[download]

It would actually have a saner interface if it weren't emulating open's weird interface. And it has yet to adopt the new idea of open autovivifying when passed undef instead of a handle (though I recall coding that improvement long ago, just never got released, it seems).

- tye        

FYI, on Linux, Unix and similar systems, not only does the "raw" open service return a scalar, said scalar is just an integer. Usually applications don't use the raw open (or other raw file IO services) directly. Rather they use a library that provides a "friendlier" interface for file IO.

Perl has it's own file IO layer, as well as sysopen, sysread, etc, which provide access to the raw file IO services (or a POSIX-ized, semi-raw layer on top of non-POSIX OSs like MS Windows.)

I read the documentation for sysopen and the only thing it seems to have that open doesn't is the ability to specify the permissions of newly created files. My old Programming Perl book says to use sysopen instead of open() before using flock() but I see the example at flock uses open(). Is there something else I missed?

In the OP I was attempting to combine two lines of example code from the module documentation that don't work as expected. The documentation says you can tie a filehandle to a win32 handle created by createFile(). I tried that and got an error message about a missing method Win32API::File::TIESCALAR. I found a method called Win32API::File::TIEHANDLE and I was surprised that it wasn't the one called. I was expecting the low level filehandle to be something more than an integer. As you can see in the OP I printed the value of the filehandle and it was an integer.

I wasn't interested in flock since text editors can still open and wipe out the edits my application is making while it is running. I've noticed that when certain types of files are open in Excel I can't overwrite them. I'm trying to get that same low level locking on a Windows Server 2008 platform.

...Usually applications don't use the raw open (or other raw file IO services) directly. Rather they use a library that provides a "friendlier" interface for file IO.

It was my understanding that Win32API::File is a Perl friendly interface to the Win32 API. Saying that people usually don't use raw open is one of those true but irrelevant statements. If raw open is what is needed then people use raw open would be my guess.