[HaBo]

$paketname::hashname{schluessel} = "wert"

paketname::$hashname{$schluessel} = "wert"

${"paketname::$hashname"}{$schluessel} = "wert"

package paketname;
$$hashname{$schluessel} = "wert"

pakage paketname;
${$hashname}{$schluessel} = "wert"

package paketname;
${"$hashname"}{$schluessel} = wert

my %newhash;
while(my ($key, $val) = each %hash) {
 delete($hash($key));
 $newhash{$val} = $key;
}

%neuerhash = reverse %alterhash

HOSTNAME = localhost
DATABASE = datenbank
...

while(defined(<FILE>)) {
 ($key, $val) = split '=';
   # trailing/leading whitespaces gibts nich ..
   $paket::hash{$key} = $val;
   # unter vorraussetzung, dass es keinen key 2x gibt
}

# MySQL-Config:
HOSTNAME = localhost
DATABASE = datenbank

# kA-Config:
DIREKTIVE1 = Wert
DIREKTIVE2 = Wert2

%CONFIG::MySQL = (
  HOSTNAME => 'localhost',
  DATABASE => 'datenbank'
);

%CONFIG::kA = (
  DIREKTIVE1 => 'Wert',
  DIREKTIVE2 => 'Wert2'
);

# MySQL-Config
HOSTNAME = localhost

$CONFIG::MySQL{'HOSTNAME'} = 'localhost';

$CONFIG::$CONFIGNAME{$DIREKTIVE} = $WERT;

# HaBo-Config
THREAT-ERSTELLER = keksinat0r

$CONFOG::HaBo{THREAT-ERSTELLER} = 'keksinat0r'

while(defined(my $line = <FILE>)) {
        chomp($line);
        if($line =~/^# /) {
                my ($a, $b) = split(' ', $line);
                $lasthash = $b;
                next;
        } else {
                my ($key, $val) = split('=', $line);
                # keine trailing/leading spaces
                # keine doppelten keys
                $inhalt{$lasthash}{$key} = $val;
        }
}

#!/usr/bin/perl -w
use strict;

package Test;
our %hash = (wert1 => 'eins', wert2 => 'zwei');


package main;
for (0..1) {
  print $Test::hash{'wert1'} ."\n";
  $Test::hash{'wert1'} = 'hundert';
}

package main;
my $variable = 'wert1';
print $Test::hash{$variable} ."\n";
$Test::hash{$variable} = 'hundert';
print $Test::hash{$variable} ."\n";

$CONFIGNAME <= name_der_configdatei;

Erstelle in Paket "CONFIG" einen Hash mit namen "$CONFIGNAME";

solange $ZEILE < Zeilenanzahl_der_config mache:
  $Zeileninhalt <= Zeileninhalt der Zeile $ZEILE;
  ($Direktive,$Wert) <= spalte Zeileninhalt bei Zeichen "=" auf;
  erstelle in dem erstellten Hash einen Schlüssel mit namen "$Direktive" und speichere darin $Wert;
  $Zeile++;
solange_ende;

Threat-ersteller = keksinat0r
Datum = 18.09.2007

Hostname = localhost
Database = keks

      CONFIGNAME  DIREKTIVE  WERT
          |       |           |
          v       v           v
$CONFIG::MySQL{'HOST'} = 'localhost';

#!/usr/bin/perl

use warnings;
use strict;
use Cwd;


my $buffer = "buffer".time();

open(BUFFER,">>$buffer.pm");
  print BUFFER "package CONFIG;\nuse strict;\n";

  foreach my $config ( glob("configs/*.conf") ){
    open(CONFIG,$config);

      $config =~ s/(^.*\/|\.conf$)//ig;
      print BUFFER "our \%$config;\n";

      foreach( <CONFIG> ){
        $_ =~ s/(^\s*|(\#.*)?\s*$)//g;
        unless( $_ =~ /^$/ ){
          my ($directive,$value) = split( /\s*=\s*/ , $_ );
          print BUFFER "\$$config\{\"$directive\"\} = \"$value\";\n";
        }
      }

    close(CONFIG);
  }

close(BUFFER);

require(getcwd()."/$buffer.pm");

foreach( keys %CONFIG::test ){
  print "$_ -> $CONFIG::test{$_}\n";
}

bla = blubb
blubber = blah
möp = keks