Hi folks,

I am trying to write a simple 'status' script
that will run as a simple server on each machine
on a diverse network (there are >400 machines
of all types, OSs and flavors); when queried
the script will resopond (proving that machine
is up) with machine name, ipaddr, disk usage,
and so on.

My problem is that I would like to have only
one script (to simplify maintanence and deployment)
for all OSs. So, for example, for Win32 machines
I may need Win32::API and Win32::DriveInfo; if I
use this contstruct:

  ...
  if ($^O eq 'MSWin32') {
    use Win32::API;
    use Win32::DriveInfo;
    ...
  } ...

the script doesn't compile under non-Win32 systems.
I can encapsulate the uses in a string eval, but
then it seems I must put all use of that (thoese)
modules into the same string eval, which gets
syntatically sticky quickly.

Can someone point me to a simple, elegant, perlish
solution?

Aloha => Beau;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to