#!/usr/bin/perl 
use Getopt::Long;
use Sys::Hostname;

GetOptions
(
	'h' => \my $help,
);
if ( $help )
{
    print "Hilfetext einfügen\n";
    exit;
}
$hostname = hostname();
$datei_passwd= "/home/user/db_project/passwd";
$datei_parm= "/home/user/db_project/parm.test";
$datei_test= "/home/user/db_project/testdatei.txt";

open(Passwd, "<$datei_passwd") || die "Datei $datei_passwd nicht vorhanden!\n";
open(Parm,"+>$datei_parm") || die "Datei $datei_parm nicht vorhanden!\n";
open (out,">>$datei_test");



$flag = 0;
$i = 0;

print "Hostname: $hostname\n";


while ($zeile = <Parm>) 
{
chomp($zeile);

if (($zeile eq  "#----------") and ($flag == 0)) 
{
  $flag = 1;
  print parm "$zeile\n";
  print parm "\n";

	while ($zeile = <Passwd>)  
	{

		if ($zeile =~ /^ora/) 
			{
  				
  				($array[$i]) = split (/:/, $zeile);
				print parm "application = ". uc(substr($array[0],3,5)). "\n"."user = ".$array[0]." \n";
				print parm "\n";
				
				

			} 
		


	}
  		next;
}
		if (($zeile eq "#----------") and ($flag == 1)) 
			{
  				$flag = 0;
			}
		if ($flag == 0) 
			{
				print parm  "$zeile\n";
			}