use strict;
open(LS, "ls -1 *.md|") or die;
my @list = <LS>;
close(LS);
foreach (@list) {
chomp;
s/\.md$//;
my ($markdown, $html) = convert_to_perl_test("$_.md");
open(MD, ">$_.text") or die;
print MD $markdown;
close(MD);
open(MD, ">$_.html") or die;
print MD $html;
close(MD);
}
sub convert_to_perl_test {
my ($file) = @_;
my $FH;
open($FH, '<', $file) or die("Cannot open $file");
my ($markdown, $html);
my @lines = <$FH>;
close($FH);
my $mode = 0;
foreach my $l (@lines) {
if ($l =~ /^\*\*\*/) {
$mode = 0;
if ($l =~ /Markdown input/i) {
$mode = 1;
}
if ($l =~ /Output of to_html/) {
$mode = 2;
}
}
elsif ($mode > 0) {
if (1 == $mode) {
$markdown .= $l;
}
else {
$html .= $l;
}
}
}
return ($markdown, $html);
}