$system=`uname`;
if ($system=~m/Linux/i)
{print "Linux\n";
}
elsif ($system=~m/Solaris/)
{
print "Solaris\n";
}
elsif ($system=~m/AIX/)
{
print "AIX\n";
}
else {
print "Unknown OS\n";
}
In reply to Re: Perl in a multi-platform environment
by bulrush
in thread Perl in a multi-platform environment
by lowcoordination
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |