Как написать кросс-платформенный Perl-код

Question

Perl-скрипт, который будет включать в себя различные модули для Windows и Linux. Чтобы сделать его кроссплатформенным, я хочу как-то реализовать его, как в C ++:

#if _WIN32
//...
#else
//...
#endif

Answer 1

если , $^O:

use if $^O eq 'MSWin32', Win32::Console::ANSI::;

---

В качестве альтернативы,

use Win32::Console::ANSI ();

эквивалентно

BEGIN {
    require Win32::Console::ANSI;
}

чтобы вы также могли использовать

BEGIN {
    require Win32::Console::ANSI
        if $^O eq 'MSWin32';
}