how to write non-compatible perl scripts to run on differnetoperating systems?

[Torben]

Hi to all,

is it possible to make some kind of pragmas in perl scripts, so for
example I can run a perl script like this:
__BEGIN__
#use Win32::Sound;
Win32::Sound:lay("SystemExclamation");
print "sound only plays on windows\n";
__END__

on Linux, which there of cause only shows the message?

Thanks
torben.

 

[Peter Makholm]

is it possible to make some kind of pragmas in perl scripts, so for
example I can run a perl script like this:

You can use $^O or $Conifg{osname} with Config.pm.

//Makholm

 

[Jürgen Exner]

if($^O eq "MSWin32")
{
use Win32::Sound; # not tested, maybe you can uncomment next line

This does not do what you probably expect it to do. The 'use' is executed at
compile time already regardless of the evaluation of the 'if' which happens
much later at runtime.

You should use 'require' instead as mentioned in the docs for 'use'.

jue