sourcecode
Intrepid
<code>
# ********************************************************
# OS.pl
# for Perl scripts that need to know the OS
# (c)2000,2003 Soren Andersen
# This program is Free Software, it may be used, modified
# and redistributed under the same terms as Perl itself.
# L/M: Friday Aug 01 2003
# ********************************************************
sub IsNotWin {
if ($^O and $^O !~ /WIN32/i) {
return 1;
} elsif ($^O and $^O =~ /WIN32/i) {
return 0;
} elsif (eval ('require ("Win32")') ) {
return 0;
}
return 1;
}
1;
__END__
=head1 NAME OS.pl
=head1 SYNOPSIS
Here is one way to use this:
BEGIN
{ require ("OS.pl");
if &IsNotWin {
print STDERR "Sorry! This script does not run yet ".
"on anything but 32-bit Windows, and ".
"you are using $^O\n";
sleep(3); die;
}
}
=head1 AUTHOR
=over 8
Soren Andersen somian -AT- cpan -DOT- org
=for html <BR><BR>
=cut
</code>
<HR SIZE=1>
<SAMP>Colorized version left for historical authenticity :-)
<BR> -- was not popular with the Monks.</SAMP>
<HR SIZE=1>
<body bgcolor="#000000"
<pre style="color:#f8fcf8; background-color:#000;">
<font color="#80a0f8"># ********************************************************</font>
<font color="#80a0f8"># OS.pl</font>
<font color="#80a0f8"># for Perl scripts that need to know the OS</font>
<font color="#80a0f8"># (c)2000,2003 Soren Andersen </font>
<font color="#80a0f8"># This program is Free Software, it may be used, modified</font>
<font color="#80a0f8"># and redistributed under the same terms as Perl itself.</font>
<font color="#80a0f8"># L/M: Friday Aug 01 2003</font>
<font color="#80a0f8"># ********************************************************</font>
<font color="#f8fc60"><b>sub</b></font><font color="#40fcf8"> </font><font color="#40fcf8">IsNotWin</font><font color="#40fcf8"> </font>{
<font color="#f8fc60"><b>if</b></font> (<font color="#40fcf8">$^O</font> <font color="#f8fc60"><b>and</b></font> <font color="#40fcf8">$^O</font> !~<font color="#f8fc60"><b> /</b></font><font color="#f8a0a0">WIN32</font><font color="#f8fc60"><b>/i</b></font>) {
<font color="#f8fc60"><b>return</b></font> <font color="#f8a0a0">1</font>;
} <font color="#f8fc60"><b>elsif</b></font> (<font color="#40fcf8">$^O</font> <font color="#f8fc60"><b>and</b></font> <font color="#40fcf8">$^O</font> =~<font color="#f8fc60"><b> /</b></font><font color="#f8a0a0">WIN32</font><font color="#f8fc60"><b>/i</b></font>) {
<font color="#f8fc60"><b>return</b></font> <font color="#f8a0a0">0</font>;
} <font color="#f8fc60"><b>elsif</b></font> (<font color="#f8fc60"><b>eval</b></font> (<font color="#f8a0a0">'</font><font color="#f8a0a0">require ("Win32")</font><font color="#f8a0a0">'</font>) ) {
<font color="#f8fc60"><b>return</b></font> <font color="#f8a0a0">0</font>;
}
<font color="#f8fc60"><b>return</b></font> <font color="#f8a0a0">1</font>;
}
<font color="#f8a0a0">1</font>;
<font color="#80a0f8">__END__</font>
<font color="#80a0f8">=head1 NAME OS.pl</font>
<font color="#80a0f8">=head1 SYNOPSIS</font>
<font color="#80a0f8">Here is one way to use this:</font>
<font color="#80a0f8">BEGIN</font>
<font color="#80a0f8">{ require ("OS.pl");</font>
<font color="#80a0f8"> if &IsNotWin {</font>
<font color="#80a0f8"> print STDERR "Sorry! This script does not run yet ".</font>
<font color="#80a0f8"> "on anything but 32-bit Windows, and ".</font>
<font color="#80a0f8"> "you are using $^O\n";</font>
<font color="#80a0f8"> sleep(3); die;</font>
<font color="#80a0f8"> }</font>
<font color="#80a0f8">}</font>
<font color="#80a0f8">=head1 AUTHOR</font>
<font color="#80a0f8">=over 8</font>
<font color="#80a0f8">Soren Andersen somian -AT- cpan -DOT- org</font>
<font color="#80a0f8">=for html <BR><BR></font>
<font color="#80a0f8">=cut</font>
</pre>
<HR SIZE=1>
A work-around for the absence of a defined value in the built-in special variable $^O (platform, Operating System) in some Perls on Win 95/98. In present form, simply
determines if the platform is Win32 or not. The usual `require "OS.pl";' statement is all that's needed.
Win32 Stuff
Soren Andersen <somian -AT- pobox *DOT* com>