document our super duper bash schript

[debienna.git] / Kata4Lösungen / Perl / index.mdwn

diff --git a/Kata4Lösungen/Perl/index.mdwn b/Kata4Lösungen/Perl/index.mdwn
index 4018e08b33781c1b9a828694621aa7eeb0dc576f..88bb3e2310aea779162b131970863dda9ceb822c 100644 (file)
--- a/Kata4Lösungen/Perl/index.mdwn
+++ b/Kata4Lösungen/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,7 @@ 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
+"""]]
+
+
+ [[!tag CategoryCodeSnippets]]