use strict;
use warnings;
use utf8;
use DBIx::Custom;

my $word ='主';
my $word_length = length $word;
my $word_q = quotemeta($word);

my $dbi = DBIx::Custom->connect(
  dsn => "dbi:SQLite:dbname=../db/bible.db",
  option => {sqlite_unicode => 1}
);

for (my $i = 0; $i < 66; $i++) {
  my $num = sprintf "%02d", $i + 1;
  
  my $content = $dbi->select(
    'content_no_tag',
    table => 'book',
    where => {id => $num}
  )->value;

  my $content_length = length $content;

  $content =~ s/$word//g;

  my $content_length_no_word = length $content;

  my $word_count = ($content_length - $content_length_no_word) / $word_length;

  print "$num:$word_count\n";
}

1;