Re: Cross-platform accented character file names sorting

Hello perlimpinpin, and welcome to the Monastery!

use Config;
use utf8::all if $Config{osname} eq 'Linux'; # perl adamantly ignores 
+the condition
[download]

You can’t use Perl’s usual if here, you must use the pragma if, which has a different syntax:

use Config;
use if $Config{osname} eq 'Linux', 'utf8::all';
[download]

Note also that the Config module isn’t needed for this test. ~~Either $ENV{OS} or~~ $^O will give you the information you need.

Update 1: Struck out $ENV{OS}, thanks to afoken, below.

Update 2: Changed utf8::all to 'utf8::all' (i.e., added quotes) to avoid a syntax error when the condition fails.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Cross-platform accented character file names sorting Select or Download Code

Replies are listed 'Best First'.
Re^2: Cross-platform accented character file names sorting by afoken (Chancellor) on May 19, 2015 at 18:58 UTC
Note also that the Config module isn’t needed for this test. Either $ENV{OS} or $^O will give you the information you need. `$ENV{OS}` is specific for Windows (I think NT and following, never saw it on 3.x or 9x), it is not set on Linux. A malicious user could set it to any nonsense value. Try to avoid that. $^O is reliable, returning `MSWin32` for each and every Windows version (except perhaps Windows CE / Mobile), including 64 bit variants. After checking `$^O eq 'MSWin32'`, the type (NT-based or DOS-based) and the exact version can be checked using `Win32::IsWinNT()`, `Win32::IsWin95()`, `Win32::GetOSVersion()`, `Win32::GetOSName()`, and `Win32::GetOSDisplayName()`. All of these functions are documented in Win32, those marked with `[CORE]` are built into the perl executable and are available without loading the `Win32` module. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Cross-platform accented character file names sorting
by afoken (Chancellor) on May 19, 2015 at 18:58 UTC

Note also that the Config module isn’t needed for this test. Either $ENV{OS} or $^O will give you the information you need.

$ENV{OS} is specific for Windows (I think NT and following, never saw it on 3.x or 9x), it is not set on Linux. A malicious user could set it to any nonsense value. Try to avoid that.

$^O is reliable, returning MSWin32 for each and every Windows version (except perhaps Windows CE / Mobile), including 64 bit variants. After checking $^O eq 'MSWin32', the type (NT-based or DOS-based) and the exact version can be checked using Win32::IsWinNT(), Win32::IsWin95(), Win32::GetOSVersion(), Win32::GetOSName(), and Win32::GetOSDisplayName(). All of these functions are documented in Win32, those marked with [CORE] are built into the perl executable and are available without loading the Win32 module.

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

[reply]
[d/l]
[select]