#!/usr/bin/perl -l use strict; use warnings; BEGIN { my $OS_win = ($^O eq "MSWin32") ? 1 : 0; print "Perl version: $]"; print "OS version: $^O"; if ($OS_win) { print "Loading Windows modules"; eval "use Win32::SerialPort"; die "$@" if $@; } else { print "Loading Unix modules"; eval "use Device::SerialPort"; die "$@" if $@; } }
In reply to Re: conditional USE MODULE
by Khen1950fx
in thread conditional USE MODULE
by hennesse
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |