how to use different packages depending on host OS?

smullis has asked for the wisdom of the Perl Monks concerning the following question:

Hello All,

Does anyone have any suggestions as to how I can use different modules / packages based on the OS of the machine running the script?

The following does not seem to work:


if ($^O =~ /Win/ ) {

use Win32::Package

} else {

use Unix::Package

}
[download]

I have a vague feeling that eval or AUTOLOAD may have something to do with it... but if I knew then I wouldn't be asking!

Many thanks in advance for any pointers...

SM

Comment on how to use different packages depending on host OS? Download Code

Replies are listed 'Best First'.
Re: how to use different packages depending on host OS? by Corion (Patriarch) on Oct 27, 2004 at 11:28 UTC
I can think of at least three variants: `my $module = $^O =~ /MSWin32/ ? "Win32::Foo" : "Unix::Bar"; # /win/ will make Darwin (OSX) users unhappy :-) eval "use $module" or die "$module didn't return a true value"; die $@ if $@;` [download] or the manual way of doing what `use` does: `BEGIN{ if ($^O =~ /MSWin32/) { require Win32::Foo; Win32::Foo->import(); } else { require Unix::Bar; Unix::Bar->import(); }; };` [download] Or, if you are not afraid to use modules conceived by Michael Schwern, and you do load modules from several places, like in a plugin setting: `use UNIVERSAL::require; my $module = $^O =~ /MSWin32/ ? "Win32::Foo" : "Unix::Bar"; $module->require; $module->import(1,2,3);` [download] There also is the way of completely emulating what `use` does: `BEGIN { my $module = $^O =~ /MSWin32/ ? "Win32::Foo" : "Unix::Bar"; my $file = $module . ".pm"; $file =~ s!::!/!g; require $file or die "$file didn't return a true value"; $module->import(); };` [download] So many options - the most sane ones are upper in this post though. Update: Added the fully-manual way of `use` emulation	[reply] [d/l] [select]
Re^2: how to use different packages depending on host OS? by smullis (Pilgrim) on Oct 27, 2004 at 11:36 UTC
Aha! Many thanks Mr. Corion... Rgds, SM ...and it all gets just a little bit clearer...	[reply]
Re: how to use different packages depending on host OS? by borisz (Canon) on Oct 27, 2004 at 11:31 UTC
use `require` instead of use. See require. `if ($^O =~ /Win/ ) { require Win32::Package; } else { require Unix::Package; }` [download] Boris	[reply] [d/l] [select]
Re^2: how to use different packages depending on host OS? by radiantmatrix (Parson) on Oct 27, 2004 at 15:30 UTC
You will still need to call import for the package, which `use` does, but `require` does not. radiantmatrix `require General::Disclaimer;` "Users are evil. All users are evil. Do not trust them. Perl specifically offers the -T switch because it knows users are evil." - japhy	[reply]
Re: how to use different packages depending on host OS? by Anonymous Monk on Oct 27, 2004 at 14:14 UTC
`use if $^O =~ /Win32/, "Win32::Package"; use if $^O !~ /Win32/, "Unix::Package";` [download]	[reply] [d/l]

Aha!