#! /usr/bin/perl  
# name: uebung9
# author: philipp petersen
# mat nr.: 729184
# date: 06/2007
# uni: thf-berlin

sub print_line($);
sub print_groups();
sub print_network();
sub group_network($);
sub group_network_all($);

use File::Basename;
use Getopt::Long;
use POSIX;
use SDBM_File;
use Fcntl;

if ($opt_s eq "en_US"){
print "in ENG";
####################################################################
####################################################################
$dbm_datei = "./en_US/default_msg.dbm";
(-r $dbm_datei.".pag") or die "$prog: $dbm_datei $!\n";

tie(my %default_msg, 'SDBM_File', $dbm_datei, O_RDONLY, 0444)
or die "$dbm_datei: $!\n";
#untie %default_msg;
##########################################
$dbm_datei = "./en_US/group_msg_en.dbm";
(-r $dbm_datei.".pag") or die "$prog: $dbm_datei $!\n";

tie(my %group_msg_de, 'SDBM_File', $dbm_datei, O_RDONLY, 0444)
or die "$dbm_datei: $!\n";
#untie %group_msg_de;
##########################################
$dbm_datei = "./en_US/not_found_msg.dbm";
(-r $dbm_datei.".pag") or die "$prog: $dbm_datei $!\n";

tie(my %not_found_msg, 'SDBM_File', $dbm_datei, O_RDONLY, 0444)
or die "$dbm_datei: $!\n";
#untie %not_found_msg;
##########################################
$dbm_datei = "./en_US/verbal_de.dbm";
(-r $dbm_datei.".pag") or die "$prog: $dbm_datei $!\n";

tie(my %verbal_de, 'SDBM_File', $dbm_datei, O_RDONLY, 0444)
or die "$dbm_datei: $!\n";
print %verbal_de;
#untie %verbal_de

####################################################################
####################################################################


  }else

#!/usr/bin/perl

$check=1;
if($check==1){
 my %test= ( '2','funst' );
 print "innerhalb $test{2} \n";
}
print "außerhalb: $test{2}"

tie(my %default_msg

tie(%default_msg

use strict;
use warnings;