<?php
// set $verbose to True for detailed output
$verbose = False;
// get the input, line by line
$handle = fopen("bible.txt", "r");
// regexp for matching the pattern
$chapter_pattern = "@==[\s]?[Cc]hapter[\s]?([0-9]+)[\s]?==@";
// There are multiple verse formats. Comment out the one that '''isn't''' used.
// regexp 1 for matching the verse number
$verse_pattern = "@<small><font color=#0000FF>([0-9]+)</font color></small>@";
// regexp 2
$verse_pattern = "@<small style=\"color:blue\">([0-9]+)</small>@";
// if verbose, note that the corrected text can be found at the end of the likely long information
($verbose) ? print("Verbose output enabled. Scroll to the end of this output for the corrected text.<br>"): print("");
// begin while look
while (!feof($handle)):
// get line from $handle
$buffer = fgets($handle, 1024);
// check for chapter match
if (preg_match($chapter_pattern, $buffer, $chapter_match)):
// ->chapter match, set chapter to $1 "([0-9]+)"
$chapter = $chapter_match[1];
// if verbose, detail output
($verbose) ? print("Found chapter: " . $chapter . "<br>"): print("");
// not a chapter match
else:
// check for verse
if (preg_match($verse_pattern, $buffer, $verse_match)):
// set verse for verbose
$verse = $verse_match[1];
// if verbose, detailed output
($verbose) ? print("Found verse: " . $verse . ". Applying fix. (" . $chapter . ":" . $verse . ")<br>"): print("");
// make the new verse with the current chapter
$verse_new = "{{verse|chapter=" . $chapter . "|verse=$1}}";
// s/$verse_pattern/$verse_new
$buffer = preg_replace($verse_pattern, $verse_new, $buffer);
else:
// if verbose, detailed output
($verbose) ? print("Not a verse. Skipping...<br>"): print("");
endif;
endif;
// append buffer to data
$data .= $buffer;
endwhile;
// if verbose, detailed output
($verbose) ? print("End of file. Display corrected text:<br><br>"): print("");
// output data
echo "<textarea cols=100 rows=40>" . $data . "</textarea>";
?>
