Help for this page

Select Code to Download


  1. or download this
        ...
    my @saved_verses = @verses;
    $bible{$book}{$chapter}{'verses'} = \@saved_verses;
    @verses = (); # use again for next chapter
  2. or download this
        my $n = 0;
    $bible{$bookname}{$chapter}{'verses'}[$n];
...
    join("\n\n",$bible{$bookname}{$chapter}{'verses'}[0..$#{$bible{"$b
+ookname"}{"$chapter"}{'verses'}}]);
    join("\n\n",$bible{$bookname}{$chapter}{'verses'});
    # I get instead ARRAY(0x[0-9]*) or Argument "" isn't numeric in ar
+ray element at ...