initial checkin from subversion

test1.pl

@@ -0,0 +1,32 @@
+#!/usr/bin/perl -W
+
+$wort="abcd";
+$len=length($wort);
+$orgwort=$wort;
+
+#1.stelle
+for ($i1=0;$i1<$len;$i1++) {
+	$wort=$orgwort;
+	$a = substr($wort,$i1,1);
+	$wort = substr($orgwort, 0 ,$i1) . substr($orgwort,$i1+1,$len - ($i1+1));
+	#
+	#2.stelle
+	for($i2=0;$i2<$len-1;$i2++){
+		$b = substr($wort,$i2,1);
+
+		#3.stelle
+		$wort3 = substr($wort,0,$i2) . substr($wort,$i2+1,length($wort)-($i2+1));
+		for($i3=0;$i3<2;$i3++){
+			$c = substr($wort3,$i3,1);
+			
+			#4.stelle
+			$wort4 = substr($wort,0,$i3) . substr($wort3,$i3+1,length($wort3)-($i3+1));
+			for($i4=0;$i4<1;$i4++){
+				$d = substr($wort4,$i4,1);
+					print($a . $b . $c . $d . "-" . $i1 . $i2 . $i3 . "\n");
+			}
+		}
+			
+	}
+
+}