Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
96 lines (95 sloc) 2.1 KB
%maxChaps = (
"Genesis" , "50",
"Exodus" , "40",
"Leviticus" , "27",
"Numbers" , "36",
"Deuteronomy" , "34",
"Joshua" , "24",
"Judges" , "21",
"Ruth" , "4",
"1-Samuel" , "31",
"2-Samuel" , "24",
"1-Kings" , "22",
"2-Kings" , "25",
"1-Chronicles" , "29",
"2-Chronicles" , "36",
"Ezra" , "10",
"Nehemiah" , "13",
"Esther" , "10",
"Job" , "42",
"Psalms" , "150",
"Proverbs" , "31",
"Ecclesiastes" , "12",
"Song-of-Solomon" , "8",
"Isaiah" , "66",
"Jeremiah" , "52",
"Lamentations" , "5",
"Ezekiel" , "48",
"Daniel" , "12",
"Hosea" , "14",
"Joel" , "3",
"Amos" , "9",
"Obadiah" , "1",
"Jonah" , "4",
"Micah" , "7",
"Nahum" , "3",
"Habakkuk" , "3",
"Zephaniah" , "3",
"Haggai" , "2",
"Zechariah" , "14",
"Malachi" , "4",
"1-Esdras", 9,
"2-Esdras",16,
"Tobit",14,
"Judith",16,
"Additions-to-Esther",16,
"Wisdom-of-Solomon",19,
"Ecclesiasticus",51,
"Baruch",5,
"Letter-of-Jeremiah",1,
"Prayer-of-Azariah",1,
"Susanna",1,
"Bel-and-the-Dragon",1,
"Prayer-of-Manasseh",1,
"1-Maccabees",16,
"2-Maccabees",15,
"Matthew" , "28",
"Mark" , "16",
"Luke" , "24",
"John" , "21",
"Acts" , "28",
"Romans" , "16",
"1-Corinthians" , "16",
"2-Corinthians" , "13",
"Galatians" , "6",
"Ephesians" , "6",
"Philippians" , "4",
"Colossians" , "4",
"1-Thessalonians" , "5",
"2-Thessalonians" , "3",
"1-Timothy" , "6",
"2-Timothy" , "4",
"Titus" , "3",
"Philemon" , "1",
"Hebrews" , "13",
"James" , "5",
"1-Peter" , "5",
"2-Peter" , "3",
"1-John" , "5",
"2-John" , "1",
"3-John" , "1",
"Jude" , "1",
"Revelation" , "22"
);
for $k (sort keys %maxChaps) {
print "#$k has $maxChaps{$k} chapters\n";
$book = $k;
$maxChap = $maxChaps{$k};
$chap=1;
$zero="_0";
while ($chap <= $maxChap) {
$zero ="_" if ($chap >9);
$bookChap=$book . "_" . $chap;
print "curl https://www.kingjamesbibleonline.org/",$bookChap,"_1611/ >",$book,$zero,$chap,".html\n";
$chap ++;
}}