#!/usr/bin/perl 
$pfad = "/home/user/db_project/";
$datei_passwd= "/home/user/db_project/user";
$datei_parm= "/home/fadmuser/db_project/test";




open(SESAM, "<$datei_passwd") || die "Datei $datei_passwd nicht vorhanden!\n";
open(FileHandle,"<$datei_parm") || die "Datei $datei_parm nicht vorhanden!\n";

$flag = 0;

while ($zeile = <FileHandle>) {
if (($zeile eq "\#----------")&& ($flag == 0)) {
  $flag = 1;
}
elsif (($zeile eq "\#----------")&& ($flag == 1))  {
  $flag = 0;
}
print $flag.$zeile unless $flag == 1;
}

close SESAM;
close FileHandle;