Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
go ahead... be a heretic
 
PerlMonks  

Re^2: O_DIRECT & O_ASYNC, Linux & Perl

by jfroebe (Vicar)
on May 11, 2007 at 03:48 UTC ( #614806=note: print w/ replies, xml ) Need Help??


in reply to Re: O_DIRECT & O_ASYNC, Linux & Perl
in thread O_DIRECT & O_ASYNC, Linux & Perl

Thanks! That works perfectly (code below with the O_DIRECT & O_ASYNC flags)

#!/usr/bin/perl use strict; use warnings; $|++; use Fcntl qw(:DEFAULT O_ASYNC O_DIRECT); use Sys::Mmap; my $FH; sysopen($FH, "./test.dat", O_WRONLY | O_TRUNC | O_CREAT | O_ASYNC | O_ +DIRECT, 0666); my $BUFSIZE = 1048576; my $BUFFER; mmap($BUFFER, $BUFSIZE, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANON, ST +DOUT) or die "Couldn't mmap\n"; substr($BUFFER, 0, $BUFSIZE) = "0"x$BUFSIZE; for (my $i = 0; $i < 20480; $i++) { my $written = syswrite($FH, $BUFFER, $BUFSIZE); die "System write error: $!\n" unless defined $written; }

Jason L. Froebe

Help find a cure for breast cancer! Net proceeds benefit the Susan G. Komen Breast Cancer Foundation and the National Philanthropic Trust. Help by donating - I'm walking 60 miles in 3 days in August 2007. (The day I return from TechWave is the first day of the Walk).

Blog, Tech Blog


Comment on Re^2: O_DIRECT & O_ASYNC, Linux & Perl
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://614806]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (16)
As of 2013-06-19 18:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How many continents have you visited?









    Results (664 votes), past polls