John,
I am not clear on what you want to do with the data structure; but from
what you describe, the syntax looks correct. Why do you say that it does
not work?
Tim
p.s.
You can write
foreach (<FILEIN>) {
print $_;
$config{$custnum}->{$filename}->[$cnt]=$_;
$cnt += 1;
}
in one line by using <FILEIN> in a list context like this
$config{$custnum}->{$filename} = [<FILEIN>];
In either case, $config{$custnum}->{$filename} is a reference to an array containing
the lines in $filename.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
