AdvFS DirectIO from Perl

From: Nemholt, Jesper Frank <JesperFrank.Nemholt_at_compaq.com>
Date: Mon, 8 Oct 2001 18:15:52 +0100

Hi!

I was just putting together a small Perl script to test performance of
read/write, DirectIO, sync/async, block size, file size etc. etc. on CFS in
Tru64 v5.x, and I ran into the following error with the Perl present by
default (Perl 5.5.3) on Tru64 v5.1 :

Argument "O_DIRECTIO" isn't numeric in bit_or at ./benchmark.pl line 41.


Line 40 and 41 are :

open(HANDLE, "> $filename") or die "open $filename: $!";
sysopen(HANDLE, $filename, O_RDWR|O_DIRECTIO) or die "sysopen $filename:
$!";

My use statements are :

use Fcntl;
use IO::Handle;


Looks like Perl's sysopen() or the libraries/modules behind don't know of
the O_DIRECTIO flag. Is it possible to do in some other way with the default
Perl, or should I upgrade (and will a upgrade to 5.6.1 help) ?


/Jesper
Received on Mon Oct 08 2001 - 18:20:43 NZDT

This archive was generated by hypermail 2.4.0 : Wed Nov 08 2023 - 11:53:42 NZDT