You need commas between array elements; you've defined $List1 as a single string. If you must needs do it that way, then yes, you need split().
HTH,
Deane
| Jim Hansen <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED] 05/25/2005 16:06
|
To: [email protected] cc: Subject: (no subject) |
I have an INI file with data in it like:
[Servers]
List1 = "server01 server02 server03 server04"
List2 = .....
Unfortunately, this line "my @Server = $List{$iniList};" ends up with the contents of List1. Is split the only way to pull these oout?
Thanks.
use Win32 ();
use strict;
use warnings;
use Win32::AdminMisc;
my $version = "4.0";
my @Servers;my $msg = '';my $counter = 0;my $iniList;my $iniSection;my %List;
#Read INI File
if (! "./servers.ini"){
my $value = Win32::MsgBox("The file Uptime.ini could not be located. Make sure is is in the ".
"same directory as Uptime.exe",64,"File not found error!");
exit (1);
}
my @iniSection = Win32::AdminMisc::ReadINI( "./servers.ini", "", "" );
foreach $iniSection (@iniSection) {
my @iniList = Win32::AdminMisc::ReadINI( "./servers.ini", $iniSection, "" );
foreach $iniList (@iniList) {
$List{$iniList} = Win32::AdminMisc::ReadINI( "./servers.ini", $iniSection, $iniList );
my @Server = $List{$iniList};
foreach my $server (sort (@Server) ){
}
}
}
Do You Yahoo!?
Yahoo! Small Business - Try our new Resources site!_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
