X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=Kata4L%C3%B6sungen%2FPerl%2Findex.mdwn;h=ec090a82c515b2da802904482eab4b71adbfd21a;hb=f5cafa0f5208be9070f080648f14e84a7f38300c;hp=4018e08b33781c1b9a828694621aa7eeb0dc576f;hpb=096ccad2de573f503e177bb76164614337f92da3;p=debienna.git

diff --git "a/Kata4L\303\266sungen/Perl/index.mdwn" "b/Kata4L\303\266sungen/Perl/index.mdwn"
index 4018e08..ec090a8 100644
--- "a/Kata4L\303\266sungen/Perl/index.mdwn"
+++ "b/Kata4L\303\266sungen/Perl/index.mdwn"
@@ -1,6 +1,9 @@
-= Part 1 =
 
-{{{
+
+# Part 1
+
+
+[[!format txt """
 #!/usr/bin/perl
 
 while(<>)
@@ -9,7 +12,7 @@ while(<>)
         next unless ($_[0] > 0 and $_[0] < 31);
         $day = $_[0];
         $spread = $_[1] - $_[2];
-        unless (defined $min_spread) 
+        unless (defined $min_spread)
         {
                 $spread_day = $day;
                 $min_spread = $spread;
@@ -21,11 +24,12 @@ while(<>)
         }
 }
 print $spread_day, "\n";
-}}}
+"""]]
+
+# Part 2
 
-= Part 2 =
 
-{{{
+[[!format txt """
 #!/usr/bin/perl
 
 while(<>)
@@ -46,11 +50,12 @@ while(<>)
         }
 }
 print $spread_team, "\n";
-}}}
+"""]]
 
-= Part 3 =
+# Part 3
 
-{{{
+
+[[!format txt """
 #!/usr/bin/perl
 
 sub dm($$$$)
@@ -88,6 +93,9 @@ sub dm($$$$)
 
 print "part1: ", dm("../K4Weather.txt", 0, 1, 2), "\n";
 print "part2: ", dm("../K4Soccer.txt", 1, 6, 8), "\n";
-}}}
-----
-CategoryCodeSnippets
\ No newline at end of file
+"""]]
+
+
+---
+
+ [[CategoryCodeSnippets|CategoryCodeSnippets]]