ywindish

# crontab とかで 0:00 に実行するといい感じ
# encoding: utf-8
require 'mastodon'
require 'date'

message = "らんだむに投稿されるよ"

url = "https://mastodon.example.com"
token = 'xxxxxx'

ywindish

Keybase proof

I hereby claim:

• I am ywindish on github.
• I am yamako (https://keybase.io/yamako) on keybase.
• I have a public key ASByHnN_BuC5uqi_ZuK2WcN6MDzLNuzt67VIBdKigyv3Qwo

To claim this, I am signing this object:

ywindish

#
# Perlのオブジェクト指向なコードを書いてみる
# http://codepad.org/z5axBdJP
#
use strict;
use warnings;

# 名前空間(パッケージ)の宣言。
# すべてのパッケージは暗黙のルートパッケージ main に属する。
package PerlOop;

ywindish

• mastodon.example は適当な Mastodon サーバ
• xxxxx はAPIアクセストークン

予約投稿のリストを得る

curl https://mastodon.example/api/v1/scheduled_statuses -H 'Authorization: Bearer xxxxx`

指定したIDの予約投稿を消す (仮に 123 とする)

ywindish

<?php
/**
 * Backlog Wikiをローカルにバックアップします
 * 要PHP5.3以降
 * usage: php getwikis.php
 * ref: https://github.com/atomita/backlog-v2
 * todo: ファイル周りのエラー処理がないので誰か直してください..
 */
require "vendor/autoload.php";
use \atomita\Backlog;

ywindish

require 'mastodon' # https://github.com/tootsuite/mastodon-api

message = '#hashtag'
pattern = '/path/to/image_files/*.jpg'

path = Dir.glob(pattern).sample

client = Mastodon::REST::Client.new(base_url: 'https://fedibird.com', bearer_token: ENV['MASTODON_TOKEN'])

media = client.upload_media(File.new(path))

ywindish

# perl -MEncode -e 'my $str="\x{4ee4}";print Encode::encode("utf-8", $str);print "\n"'
# => 令
# perl -MEncode -e 'my $str="\x{f9a8}";print Encode::encode("utf-8", $str);print "\n"'
# => 令

ywindish

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use Encode;

my $ua = LWP::UserAgent->new;
my $res = $ua->post(
  'https://notify-api.line.me/api/notify',

ywindish

#!/usr/bin/env perl
# 2ファイルのうちお互いにしか無い行を抽出します。
#
use strict;
use warnings;
use utf8;
use feature 'say';

my $file_left = './left.txt';
my $file_right = './right.txt';

ywindish

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use HTML::TreeBuilder;
use Encode;
use Data::Dumper;

my $url_base = 'http://hiroba.dqx.jp';