#!/usr/bin/perl -w
#Filehandles
# markus westphal 14.06.2005

use strict;
my ($i,$f,$wert1,$zeile1,$zeilel,$wert2,$ausgabedatei,$path,$sb,$line,$x,$dir,@allfiles,$size,$atime,@zeilen,$lzeile);

for ($i=0; $i<=$#ARGV; $i++){
		($wert1, $wert2) = split("=", $ARGV[$i]);
		if ($wert1 eq "path") {$path = $wert2};
		if ($wert1 eq "outfile") {$ausgabedatei = $wert2};
}

open (AUS,">$ausgabedatei") || die ("$ausgabedatei kann nicht erstellt werden\n");
close (AUS);

opendir (DIR, $path)||die ("$path kann nicht geoeffnet werden!\n");
@allfiles=readdir(DIR);

for ($i=0; $i<=$#allfiles; $i++) {
	$f = $allfiles[$i];

	if (!open(FH,"<$f")) {
		print "Die Datei: $f kann nicht geoeffnet werden\n";
		next;
	}

	$x = $path . "/" . $f;
	@zeilen=<FH>;
	$zeile1=$zeilen[0];
	$zeilel=$zeilen[$#zeilen];
	close(FH);

	open(OUT, ">>$ausgabedatei") || die ("In die Datei: $ausgabedatei kann nicht geschrieben werden\n");

		print OUT "Datei $i: $x\n";
		print OUT "	1.Zeile: $zeile1\n";
		print OUT "	Letzte Zeile: $zeilel\n";
		print OUT "-------------------------------------------------------------------------\n";

	close(OUT);
}
closedir(DIR);