Skip to content

Instantly share code, notes, and snippets.

@tsuchm
tsuchm / playlist.pl
Created November 14, 2022 13:18
Script to parse AVCHD playlist format
#!/usr/bin/perl
=head1 OBJECT OF THIS SCRIPT
Panasonic 製デジタルビデオカメラが,SD カードに動画を格納する時,動画データのファイル名は連番になっている.
これを,日付(8桁)-連番というファイル名に変更するために必要な情報を取り出す.
=head1 SYNOPSIS
perl playlist.pl PRIVATE/AVCHD/BDMV/PLAYLIST/00000.MPL
@tsuchm
tsuchm / sshuttle.service
Last active July 8, 2022 02:08
Systemd unit file to establish VPN with sshuttle command
# (0) Replace the gateway server name and the subnet address with your own values.
# (1) Put this file into ~/.config/systemd/user/sshuttle.service
# (2) Invoke `systemctl --user daemon-reload`
# (3) Invoke `systemctl --user start sshuttle.service`
[Unit]
Description=sshuttle
Requires=gpg-agent-ssh.socket
After=gpg-agent-ssh.socket
#!/usr/bin/perl
=head1 NAME
auto-responder - 受信したメールに自動返信する
=head1 SYNOPSIS
C<.forward> の中で
#!/usr/bin/python3
"""
Parallelize MeCab
$ wc -l corpus.txt
2761174 corpus.txt
$ time ./parallel-mecab.py corpus.txt >/dev/null
real 0m12.610s
@tsuchm
tsuchm / deb-multimedia-playbook.yml
Last active August 16, 2020 14:02
Playbook to install VLC and libdvdcss2
- name: Check multimedia keyring
command: dpkg-query -W deb-multimedia-keyring
register: multimedia_keyring
changed_when: multimedia_keyring.rc == 1
failed_when: multimedia_keyring.rc > 1
check_mode: no
- name: Retrieve deb-multimedia-keyring
get_url:
url: http://www.deb-multimedia.org/pool/main/d/deb-multimedia-keyring/deb-multimedia-keyring_2016.8.1_all.deb
@tsuchm
tsuchm / decode2text.sh
Created July 31, 2020 00:43
Decoder for attached files of Dovecot
#!/bin/sh
# Example attachment decoder script. The attachment comes from stdin, and
# the script is expected to output UTF-8 data to stdout. (If the output isn't
# UTF-8, everything except valid UTF-8 sequences are dropped from it.)
# The attachment decoding is enabled by setting:
#
# plugin {
# fts_decoder = decode2text
dn: cn=mydovecotperson,cn=schema,cn=config
objectClass: olcSchemaConfig
cn: mydovecotperson
olcAttributeTypes: ( 1.3.6.1.4.1.7165.1.1.5.1 NAME 'mailPassword' SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 SINGLE-VALUE )
olcAttributeTypes: ( 1.3.6.1.4.1.7165.1.1.5.2 NAME 'mailForward' SYNTAX 1.3.6.1.4.1.1466.115.121.1.15 )
olcObjectClasses: ( 1.3.6.1.4.1.7165.1.1.6.1 NAME 'myDovecotPerson' SUP top AUXILIARY MAY ( mailPassword $ mailForward ) )
acl all src 0.0.0.0/0.0.0.0
acl localhost src 127.0.0.1/255.255.255.255
acl examplenet src 198.51.100.0/255.255.255.0
http_access allow localhost
http_access allow examplenet
http_access deny all
# anonymous proxy
visible_hostname unkown
@tsuchm
tsuchm / sample.yml
Created July 9, 2020 13:55
Sample Ansible playbook of finalize task which is invoked when a task occurs a modification
- name: first task
register: current_task
- set_fact:
taskset_changed: "{{ current_task.changed }}"
- name: second task
register: current_task
- set_fact:
@tsuchm
tsuchm / buildah.yml
Created July 3, 2020 05:24
Ansible playbook to install buildah and podman
# https://github.com/containers/buildah/blob/master/install.md
- name: Add buildah repository key
apt_key:
url: https://download.opensuse.org/repositories/devel:kubic:libcontainers:stable/Debian_10/Release.key
state: present
- name: Enable buildah repository
apt_repository:
repo: deb http://download.opensuse.org/repositories/devel:/kubic:/libcontainers:/stable/Debian_10/ /