1 files changed, 85 insertions, 0 deletions
diff --git a/Aufgabe3/BuchstabenPipe.pl b/Aufgabe3/BuchstabenPipe.pl
new file mode 100644
index 0000000..c6741a8
--- /dev/null
+++ b/Aufgabe3/BuchstabenPipe.pl
@@ -0,0 +1,85 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: BuchstabenPipe.pl
+#
+#        USAGE: ./BuchstabenPipe.pl  
+#
+#  DESCRIPTION: Wörter aus zwei datein vergleichen
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Martin Talarczyk (MT), talarczyk.martin@fh-swf.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+# Matrikel-Nr.: 10036162
+#      VERSION: 1.0
+#      CREATED: 28.10.2015 09:27:56
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+binmode (STDIN, ":encoding(UTF-8)");
+binmode (STDOUT, ":encoding(UTF-8)");
+binmode (STDERR, ":encoding(UTF-8)");
+use open ":encoding(UTF-8)";
+
+
+#-------------------------------------------------------------------------------
+#  Variabelen Deklarasion
+#-------------------------------------------------------------------------------
+
+
+my $outputFile = "output.dat";
+my	$wolistfp_file_name = 'german.lst';		# input file name
+my %german;
+#Programm ausführen und auf stdin schreiben
+my $INPUTPIPE_command = './quadrat|';
+# Eingabe Sortieren | ohene Doppelte | in schön > schreibe in 
+my $OUTPUTPIPE_command = " | sort | uniq | column > $outputFile";
+
+
+
+open my $INPUTPIPE, $INPUTPIPE_command or die "$0 : failed to open pipe > $INPUTPIPE_command < : $!\n";
+open my $OUTPUTPIPE, $OUTPUTPIPE_command or die "$0 : failed to open pipe > $OUTPUTPIPE_command < : $!\n";
+
+#====================================================================================
+# Wörter list lesen german.lst
+#====================================================================================
+print "Wörter liste lesen...\n";
+
+open  my $wolistfp, '<', $wolistfp_file_name
+	or die  "$0 : failed to open  input file '$wolistfp_file_name' : $!\n";
+
+while (my $word = <$wolistfp>)
+{
+
+	$word = uc $word;
+
+	$german {$word} = $word;
+}
+
+close  $wolistfp
+	or warn "$0 : failed to close input file '$wolistfp_file_name' : $!\n";
+
+#====================================================================================
+# lese von quadrat aus über pipe, Schreibe in ausgabe datei, ersetzt quadrat.dat ar
+#====================================================================================
+print "Auswertung...\n";
+while (<$INPUTPIPE>)
+{
+	# wenn Wort in $germen existirt Schreibe in Ausgabe datei
+	print $OUTPUTPIPE $_ if exists $german {$_};
+}
+
+
+close $OUTPUTPIPE or warn "$0 : failed to close pipe > $OUTPUTPIPE_command < : $!\n";
+close $INPUTPIPE or warn "$0 : failed to close pipe > $INPUTPIPE_command < : $!\n";
+
+print "Anzahl der Wörter: " . `wc -w $outputFile | cut -f1 -d' '`;
+
+