Heh, I am running out of hair:P
I get two errors to start, one is the warning that is better write:
my ($vm) = $_[0];
instead of
my ($vm) = @_[0];
And the other is about the use of the global @_ (huh) with "my"?
I have this now:
#!/usr/bin/perl -w
@Exchange = ("/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-EX (Win2003
Ent x64)/AN-EX (Win2003 Ent
x64).vmx","/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-EX (Win2003 Ent
x64)/Disc-1.vmdk","/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-EX
(Win2003 Ent x64)/Disk-2.vmdk");
@Filter = ("/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/ESVA 1.7.1.5/ESVA
1.7.1.5.vmx","/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/ESVA
1.7.1.5/ESVA 1.7.1.5.vmdk");
@DNS = ("/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/Web & DNS (Win2003
Std x32)/Web & DNS (Win2003 Std
x32).vmx","/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/Web & DNS (Win2003
Std x32)/Disc1.vmdk","vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/Web &
DNS (Win2003 Std x32)/Disc2.vmdk");
@Domain = ("/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-DC (Win2003
Ent x64)/AN-DC (Win2003 Ent
x64).vmx","/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/AN-DC (Win2003 Ent
x64)/Disk-1.vmdk");
@list = (Exchange,Filter,DNS,Domain)
sub stop_it {
$vm = $_[0];
$state = `/usr/bin/vmware-cmd \""$vm"\" getstate -q`;
chomp($state);
print "$state\n";
}
stop_it(@DNS);
And there are unspecified errors at 9 and 13?
I cant see what else is wrong in the sub?
Thanks!
jlc
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
