Change open (FILE, "$path") to open (FILE, '<:raw', "$path").
On my system, with that change, your code reading 10MB, takes .38 seconds.
In reply to Re: Perl's poor disk IO performance
by BrowserUk
in thread Perl's poor disk IO performance
by TROGDOR
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |