Warnungen bei Config::IniFiles und noch 'ne Frage

[hotti]

hi Patrick,

falls Du ini-Dateien nur lesen willst, siehe kleines Perl-Script.

Hotte

=schnipp

  
#!/usr/bin/perl -w  
###########################################################################  
# ini-Datei auf einen hash lesen  
###########################################################################  
use strict;  
  
my $ref = readini(*DATA);  
  
print $$ref{windows}{drucker}, "\n";  
print $$ref{unix}{drucker}, "\n";  
print $$ref{windows}{perl}, "\n";  
print $$ref{unix}{perl}, "\n";  
  
exit;  
###########################################################################  
sub readini{  
	my $fh = shift;  
  
	my %data;  
	my $idx;  
  
	while (my $in = <$fh>){  
		chomp $in;  
		if ($in =~ /^\[(.*?)\]/) {  
			$idx = $1;  
		}  
		if ($in =~ /^(.*?)=(.*?)$/){  
			$data{$idx}{$1} = $2;  
		}  
	}	  
	return \%data;  
}  
  
###########################################################################  
__END__  
[windows]  
drucker=willi  
perl=c:/perl/bin/perl.exe  
  
[unix]  
drucker=pauli  
perl=/usr/bin/perl