amatubu

#!/bin/sh

PERL518=`/usr/bin/perl -e 'print $] =~ m/^5.018/;'`
if [ "${PERL518}" = "1" ];
then
    exit 0
else
    exit 64
fi

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use v5.10;
use Getopt::Long qw(:config posix_default no_ignore_case);
use List::Util qw(min);

# usage:

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use bigint;

use LWP::Simple;

my $search_key = 208050656559285601386927895421059705239114932023754; # 探す key

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use IO::Socket;
use IO::Socket::SSL;
use Mozilla::CA;

amatubu

#!/bin/sh

rm -f ComicsData.sqlite.bak
cp ComicsData.sqlite ComicsData.sqlite.bak

sqlite3 ComicsData.sqlite < modify.sql

amatubu

package Triany::DICTI;

use strict;
use warnings;
use utf8;

use Triany::TLLI;

use Math::Random::MT qw/rand/;

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

# スパイスのグループ
my @spices_strings = (
    # グループ C
    "Nercitoma Maceor Limeminnor Loveaneic Pamacetah Labcara Lovema Nillaneric Beba Rosery Spicechootal Qulabry Limemin Achiomaseic Mata Corma Ginitah Citograor Matatal Bebalemoma Licotaor Stachoooc Rumin Citoat Cardoquist Rinacardory Monmyraist Glaru Sumaricetah Myrarice Rosemaceoc Tamaoc Riceso Mahseoc",

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

# 片方の皿に入れるスパイスの候補
my @spices_strings = (
    "Tamaoc",
    # グループ A

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my %spices;
my %blends;

# ブレンドリストを開く

amatubu

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my %spices;
my %blends;

# ブレンドリストを開く