Re^2: Counting bytes in a Unicode document

in reply to Re: Counting bytes in a Unicode document
in thread Counting bytes in a Unicode document

> 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}

Comment on Re^2: Counting bytes in a Unicode document Download Code

Replies are listed 'Best First'.
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
If it's worth mentioning, it's as something to avoid. `-s _` is a million times more readable than `+(stat(_))[7]`.	[reply] [d/l] [select]
Re^6: Counting bytes in a Unicode document by etj (Priest) on Oct 23, 2024 at 08:55 UTC
Re^7: Counting bytes in a Unicode document by ikegami (Patriarch) on Oct 23, 2024 at 10:04 UTC

In Section Seekers of Perl Wisdom