anktagcloud.pl -- Ank Pixiv Tool で取得した絵のタグから、自分の性癖を知るためのスクリプト

anktagcloud.pl

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use feature ":5.10";

my $dbh = DBI->connect("dbi:SQLite:dbname=ankpixiv.sqlite",
                       undef,
                       undef,
                       {
                           AutoCommit => 0,
                           RaiseError => 1,
                       });

my %count;
eval {
    my $ary_ref = $dbh->selectall_arrayref("SELECT tags FROM histories where tags like '%R-18%';");
    for my $row (@$ary_ref) {
        for (split ' ', $row->[0]) {
            $count{$_}++;
        }
    }
};
if ($@) {
    $dbh->disconnect;
    die "Error: $@";
}
$dbh->disconnect or warn $!;

say "$count{$_}\t$_" for (sort {$count{$b} <=> $count{$a}} keys %count);