Skip to content

Instantly share code, notes, and snippets.

@nipotan
nipotan / mixch-live-notify.sh
Created December 8, 2023 02:31
あなたの推し様が配信開始したら LINE に通知が来るやつ
#!/bin/sh
LIVER_ID=17861268
LIVER_NAME=ゆかりん
LINE_NOTIFY_TOKEN=SEtYoUrpeRsOnaLLInEnOtiFysaCceSStOkeNaTHEre
function get_last_started_at () {
live_status_file=$HOME/.mixch_${LIVER_ID}_started_at
if [ ! -f $live_status_file ]
then
@nipotan
nipotan / gist:3a707f7e7d3eddba194104fae4317b0f
Created August 26, 2022 03:04
bluesea sub channel's membership only archive video ids
rAzB5a4K5Q8
MBjDhdmRBeU
_8k62x3J3Uc
ygR-Lw_JHK0
4-q9iZzmRy0
vSR6nN2NvNc
dtlJn7Fvi80
15ue8P5nSgU
53TCpmi8Kk0
TyoBzz_b-1s
package Acme::Ecchi;
use strict;
use warnings;
use utf8;
use Mouse;
use Imager;
use Imager::Color;
has width => (
@nipotan
nipotan / jobcan-to-moneyforward.pl
Last active October 23, 2020 04:41
ジョブカン勤怠管理からマネーフォワードクラウド勤怠に打刻データを移す
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Text::CSV_XS;
use File::Basename;
use File::Spec;
# 下記 URL から従業員別にダウンロードした CSV ファイルを
#!/usr/bin/env perl
package InsideOut;
use strict;
use warnings;
our %obj;
sub new {
@nipotan
nipotan / winmail.pl
Last active October 2, 2019 08:47
Extract attachment files from winmail.dat
#!/usr/bin/env perl
use strict;
use warnings;
use Convert::TNEF;
use File::Basename;
use File::Spec;
use File::Temp qw(tempdir);
use Encode;
diff -urN Calendar-Japanese-Holiday-0.04/lib/Calendar/Japanese/Holiday.pm Calendar-Japanese-Holiday-0.05/lib/Calendar/Japanese/Holiday.pm
--- Calendar-Japanese-Holiday-0.04/lib/Calendar/Japanese/Holiday.pm 2015-01-06 21:16:19.000000000 +0900
+++ Calendar-Japanese-Holiday-0.05/lib/Calendar/Japanese/Holiday.pm 2019-01-17 12:46:16.729209680 +0900
@@ -13,14 +13,61 @@
our @EXPORT = qw(getHolidays isHoliday);
-our $VERSION = '0.04';
+our $VERSION = '0.05';
@nipotan
nipotan / derao.js
Last active June 22, 2017 04:52
derao - decrypt numeric ciphertext of natsu-no-rao
/*
日清ラ王 夏のラ王の数字の羅列を文字列に変換する
http://www.rao.jp/natsuno_rao/
*/
var pokebell = '0ワオン゛゜6789EアイウエオABCDJカキクケコFGHIOサシスセソKLMNTタチツテトPQRSYナニヌネノUVWX/ハヒフヘホZ?!-★マミムメモ¥&♥☎.ヤ(ユ)ヨ*# .5ラリルレロ1234';
var chars = pokebell.split('');
var charMap = [];
for (var i = 0; i < 10; i++) charMap.push(chars.splice(0, 10));
@nipotan
nipotan / dollele
Last active November 10, 2016 09:37
どるえれの曲っぽいのをランダムで生成して、実在する曲だったら味方になって終了するプログラム
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
{
binmode STDOUT, ':utf8';
local $| = 1;
for (var i = 0; i < questionArr.length; i++) {
var qa = $.grep(questionArr[i].split(/\n/), function(n){
return n !== '' && ! n.match(/^\(0\)/);
});
qa[0] = qa[0].replace(/^(.+)_(ANT|SYN)$/, function(){
return '「' + RegExp.$1 + '」の' + (RegExp.$2 === 'ANT' ? '対' : '類') + '義語は';
});
qa[1] = qa[1].replace(/^\(1\)(.+)/,'「$1」');
console.log(qa.join(''));
}