Skip to content

Instantly share code, notes, and snippets.

View mamemomonga's full-sized avatar
🏠
Working from home

Shotaro Takahashi mamemomonga

🏠
Working from home
View GitHub Profile
@mamemomonga
mamemomonga / ShiftResistorSPI.ino
Created March 21, 2015 16:54
SN74HC595 をつかったLチカ
#include <SPI.h>
// SN74HC595 をつかったLチカ
// AVRボート
// Arduino | SN74HC595
// ---------|----------------
// SS(D10) | RCLK(12)
// MOSI(D11)| SER(14)
// MISO(D12)| NC(接続しない)
@mamemomonga
mamemomonga / gist:0e7ec7ea7f88bc1389ee
Last active September 1, 2015 06:28
Debianから「Windowsファイル共有」サーバへ接続する
# locale
LANG=ja_JP.UTF-8
LANGUAGE=
LC_CTYPE="ja_JP.UTF-8"
LC_NUMERIC="ja_JP.UTF-8"
LC_TIME="ja_JP.UTF-8"
LC_COLLATE="ja_JP.UTF-8"
LC_MONETARY="ja_JP.UTF-8"
LC_MESSAGES=en_US.UTF8
LC_PAPER="ja_JP.UTF-8"
@mamemomonga
mamemomonga / gist:108c53c97510425281f6
Created September 1, 2015 06:31
ssh-agent転送を有効にして、接続先のscreenを利用する。
$ ssh -t -A username@hostname 'screen -D -RR'
@mamemomonga
mamemomonga / itunes_setinfo.pl
Created August 22, 2012 04:33
library.ymlからArtist Album Name TrackNumberをキーにしてiTunesLibraryを設定する
#!/usr/bin/env perl
# library.ymlからArtist Album Name TrackNumberをキーにしてiTunesLibraryの
# Rating PlayedCount DateAdded DateAdded PlayedDate を設定する。
# Windows用 Perl 5.10.1 cygwin
use 5.10.0;
use strict;
use warnings;
use utf8;
use Win32::OLE;
use Win32::OLE::Variant;
@mamemomonga
mamemomonga / itunes_getinfo.pl
Created August 22, 2012 04:32
iTunesLibraryからRatingなどを一括抽出し、library.ymlに保存
#!/usr/bin/env perl
# iTunesLibraryからRatingなどを一括抽出し、library.ymlに保存。
# Windows用 Perl 5.10.1 cygwin
use 5.10.0;
use strict;
use warnings;
use utf8;
use Win32::OLE;
use Win32::OLE::Variant;
use Encode;
@mamemomonga
mamemomonga / CheckAndGetURL.php
Created October 15, 2015 10:29
HEADで存在をチェックしてGETでファイルを取得
<?php
class CheckAndGetURL {
private $url;
// HEADのレスポンスで検索するヘッダの正規表現
private $headers_match=[
"^HTTP/1\.1 200 OK$",
"^Content-Type: application/octet-stream$",
@mamemomonga
mamemomonga / uutrans.pl
Last active December 14, 2015 09:09
uuencodeしてターミナル経由でファイルを送信する。送信元はOSX専用。
#!/usr/bin/env perl
#
# uuencodeしてターミナル経由でファイルを送信する。
# $ uutrans.pl hoge.jpg
# を実行するとクリップボードにデータがコピーされるので、送信先で
# $ perl
# を実行してペーストすると、そこにデータが保存される。
#
# 参考: http://blog.livedoor.jp/dankogai/archives/50683970.html
@mamemomonga
mamemomonga / scrnssh.pl
Last active December 14, 2015 09:09
gnu screenを使用しているときに、別のウィンドウでssh接続。
#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');
if($#ARGV==-1) {
print "USAGE: $0 [title] [ssh command]\n";
print " $0 [ssh command])\n";
@mamemomonga
mamemomonga / random_passwords.pl
Created March 1, 2013 09:09
ランダムなパスワードを30個作る。間違えやすい文字を除外して作る。
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Math::Random::MT;
sub random_password {
my $len=shift || 10;
my $gen=Math::Random::MT->new();
@mamemomonga
mamemomonga / rewrite_ps1.md
Created December 15, 2015 21:43
プロンプトの書き換え

プロンプトの書き換え

Linux(CentOS)

[root@localhost ~]$ echo "export PS1=\"$PS1\"" >> .bashrc
[root@localhost ~]$ vim .bashrc

  export PS1="[\u@\h(hoge) \W]\$ "

再ログイン