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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |