Re: Counting bytes in a Unicode document

Replacing

open my $FH, '<', $file
[download]

with

open my $FH, '<:raw', $file
[download]

will do the trick, but the aforementioned stat solution is much more efficient.

Comment on Re: Counting bytes in a Unicode document Select or Download Code

Replies are listed 'Best First'.
Re^2: Counting bytes in a Unicode document by LanX (Saint) on Oct 08, 2024 at 17:17 UTC
> the aforementioned stat solution is much more efficient I suppose the `-s` in the OP's code does exactly the same. Cheers Rolf _{(addicted to the Perl Programming Language :) see Wikisyntax for the Monastery}	[reply] [d/l]
Re^3: Counting bytes in a Unicode document by ikegami (Patriarch) on Oct 09, 2024 at 00:32 UTC
Yes, `-s` is just another way to `stat`. For example, one could write the following: defined( my $s = -s $qfn ) or die( "Can't stat `$qfn`: $!\n" ); ... $s ... [download] But it could also be written as follows: stat( $qfn ) or die( "Can't stat `$qfn`: $!\n" ); ... -s _ ... [download] or defined( my $s = ( stat( $qfn ) )[ 7 ] ) or die( "Can't stat `$qfn`: $!\n" ); ... $s ... [download]	[reply] [d/l] [select]
Re^4: Counting bytes in a Unicode document by etj (Priest) on Oct 15, 2024 at 12:39 UTC
It's worth also mentioning the idiom of `stat $file; ... (stat(_))[7]` to use the result of the last `stat`.	[reply] [d/l] [select]
Re^5: Counting bytes in a Unicode document by ikegami (Patriarch) on Oct 15, 2024 at 15:38 UTC
Re^6: Counting bytes in a Unicode document by etj (Priest) on Oct 23, 2024 at 08:55 UTC
Some notes below your chosen depth have not been shown here