X-Git-Url: https://hackdaworld.org/gitweb/?p=lectures%2Fdfb-slides.git;a=blobdiff_plain;f=parse.pl;h=ba9709040786c0e1f35ffd3654117e490fc7ac09;hp=ff374bcda01b87d579fcdcc1e9599efbbb1ed60d;hb=HEAD;hpb=9fbed0b74b8ec6ae70e10b0514cfd54254888069 diff --git a/parse.pl b/parse.pl index ff374bc..ba97090 100755 --- a/parse.pl +++ b/parse.pl @@ -4,6 +4,7 @@ chomp @content; @slide=(); +@topics=(); @actions=( "", "slide top", @@ -16,7 +17,7 @@ chomp @content; "slide right"); print "\n"; -print "\n\n"; @@ -27,8 +28,6 @@ while() { } close(IN); -@topics=(); - foreach(@content) { if((/^\d/) or (/^ \d/)) { push(@topics,$_); @@ -36,11 +35,11 @@ foreach(@content) { } print "\n\n"; -print "
Inhalt
\n\n"; +print "
Inhalt
\n\n"; foreach(@topics) { if(/^\d/) { print "\n"; - $add="fgcolor=\"#ff00cc\""; + $add="fgcolor=\"#FF0000\""; } else { $add=""; @@ -55,6 +54,7 @@ push(@content," 23"); foreach(@content) { s/\#.*//; + if(not /^\s+$/) { s/&/&/g; s//>/; @@ -85,11 +85,11 @@ foreach(@content) { } print "\n"; print STDERR "$topics[$topic] $action\n"; - print "
$topics[$topic]
\n\n"; + print "
$topics[$topic]
\n\n"; foreach(@slide) { if(/^ \+ /) { s/\+//; - print "\n$_\n"; + print "\n$_\n"; } elsif(/ \+ /) { s/\+//; @@ -118,5 +118,6 @@ foreach(@content) { push(@slide,$_); } } +} print "
\n"; \ No newline at end of file