ALTER TABLE `subject` CHANGE num num int(11) NOT NULL; alter table subject drop primary key; SET @i := 0; UPDATE subject SET num = (@i := @i +1) ORDER BY created; ALTER TABLE subject CHANGE num num int auto_increment, ADD PRIMARY KEY(num);…

https://www.spriters-resource.com/nes/ファミコン系ゲームつくりたいとき用の素材サイト

いまさらperlつかってるひとなんて化石なんだろうなあとおもいつつーperlだいすき https://www.h-fj.com/blog/archives/2013/02/27-152952.phpuse Data::Dumper use CGI::Cookie; use PHP::Serialization qw( unserialize );my %ck = fetch CGI::Cookie;; my…

yum -y install perl-Net-SSLeay perl-Crypt-SSLeay perl-IO-Socket-SSL cpanm LWP::Protocol::https

yum -y install mecab mecab-ipadic mecab-devel cpanm Text::MeCab

時間のかかる処理を{}で括って$pm->start and next;と$pm->finish;で待機させる count1は10秒で終わる、count2は5秒で終わる処理を並列処理するサンプル #!/usr/bin/perl use Parallel::ForkManager; my $pm = Parallel::ForkManager->new(2); ## 処理1 { $p…

#!/usr/bin/perl use HTTP::Tiny; use Digest::SHA qw/hmac_sha256_hex/; use strict; my $ACCESS_KEY = ACCESS_KEY; my $SECRET_KEY = SECRET_KEY; my $dt = time*10000; my $url = "https://coincheck.com/api/ticker"; my $signature = hmac_sha256_hex($…