Skip to content

Instantly share code, notes, and snippets.

View Maki-Daisuke's full-sized avatar

Daisuke (yet another) Maki Maki-Daisuke

View GitHub Profile
@Maki-Daisuke
Maki-Daisuke / concat_ts
Created June 4, 2025 12:30
Concatenate multiple .TS files into one .TS file using Ffmpeg
#!/usr/bin/env perl
use File::Temp qw/ tempfile /;
use File::Spec;
sub usage {
"Usage: $0 INPUT_FILE... OUTPUT_FILE"
}
my $ffmpeg = `which ffmpeg` || `which ffmpeg.exe` or die "Can't find ffmpeg\n\n@{[ usage ]}";
package main
import (
"testing"
)
const ARRAY_SIZE = 100000
func mkArray() []int {
arr := make([]int, ARRAY_SIZE)
@Maki-Daisuke
Maki-Daisuke / Cygwin.bat
Created February 27, 2011 17:22
Cygwin-zshを使う場合の設定ファイル例
@echo off
REM VisualStudioの環境変数を設定する
call "c:\Program Files\Microsoft Visual Studio 9.0\VC\vcvarsall.bat" x86
REM CygwinコンソールでWindows式のファイルパスを使ったときに警告を出さない
set CYGWIN=nodosfilewarning
C:
chdir C:\cygwin\bin
@Maki-Daisuke
Maki-Daisuke / digists_test.go
Created December 11, 2022 15:15
Incomplete Regular Expression engine implementation written by ChatGPT
package regexp
import "testing"
func TestCompile(t *testing.T) {
// 正規表現パターンをコンパイルする
re, err := Compile("^[0-9]+$")
if err != nil {
// コンパイルに失敗した場合はテスト失敗
t.Errorf("Compile failed: %v", err)
#!/usr/bin/zsh
if which zsh; then
chsh -s `which zsh`
else
echo "Run this script on Zsh!"
exit 1
fi
# Install zprezto
@Maki-Daisuke
Maki-Daisuke / main.go
Created July 9, 2022 03:30
fill-drive
package main
import (
"fmt"
"log"
"math"
"math/rand"
"os"
"time"
@Maki-Daisuke
Maki-Daisuke / concat_ts
Created May 12, 2022 06:27
Concatenate multiple .ts files into a single file using Ffmpeg
#!/usr/bin/env perl
use File::Temp qw/ tempfile /;
use File::Spec;
sub usage {
"Usage: $0 INPUT_FILE... OUTPUT_FILE"
}
my $ffmpeg = `which ffmpeg` || `which ffmpeg.exe` or die "Can't find ffmpeg\n\n@{[ usage ]}";
@Maki-Daisuke
Maki-Daisuke / giploy
Last active December 27, 2015 14:19
カレントディレクトリ以下の Git の管理下にあるファイルのみを、指定したディレクトリにコピーするコマンドを実装してみました。 環境変数 GIPLOY_DEST でもコピー先を指定できるので、post-comit hook に登録することもできます。
#!/usr/bin/env perl
use strict;
use warnings;
our $VERSION = '0.01';
use constant DEBUG => (!!$ENV{DEBUG});
use Getopt::Std;
@Maki-Daisuke
Maki-Daisuke / pre-commit
Created November 6, 2013 13:03
コメントのとおりですが、コミット用にステージされていないファイルの変更や、Gitの管理下におかれていないファイルがあると、コミットを拒否する pre-commit スクリプトです。 ちょっと厳しすぎる気もしますが……
#!/bin/sh
#
# A simple script to reject commit when there is an unstaged changes
# or an untracked file.
#
# To enable this script, copy this into .git/hooks in your working dir.
if `git status |grep -q 'Changes not staged for commit:'`
then
echo '[!!ERROR!!] Threre is a modified but unstaged file!'
@Maki-Daisuke
Maki-Daisuke / gist:1108386
Created July 26, 2011 23:54
mp / json / storable on perl v5.14.1 built for darwin-2level
-- serialize
JSON::XS: 2.3
Data::MessagePack: 0.34
Storable: 2.30
Benchmark: running json, mp, storable for at least 1 CPU seconds...
json: 1 wallclock secs ( 1.08 usr + 0.00 sys = 1.08 CPU) @ 12444.44/s (n=13440)
mp: 2 wallclock secs ( 1.07 usr + 0.00 sys = 1.07 CPU) @ 11821.50/s (n=12649)
storable: 1 wallclock secs ( 1.06 usr + 0.00 sys = 1.06 CPU) @ 14490.57/s (n=15360)
Rate mp json storable
mp 11821/s -- -5% -18%