mamemomonga

#!/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

#!/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

#!/usr/bin/env perl
# 
# uuencodeしてターミナル経由でファイルを送信する。
#   $ uutrans.pl hoge.jpg
# を実行するとクリップボードにデータがコピーされるので、送信先で
#   $ perl
# を実行してペーストすると、そこにデータが保存される。
# 
# 参考: http://blog.livedoor.jp/dankogai/archives/50683970.html

mamemomonga

#!/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

#!/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

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');
use File::Path;

# 参考
# http://msyk.net/macos/jaguar-localize/

mamemomonga

// vim:set fenc=utf-8 ff=unix ft=javascript:
/**
 * @preserve
 * ExponentialEndlessSummer.js for Reblog Machine
 * https://gist.github.com/mamemomonga/6090387
 * from "Exponential Endless Summer 2014" by saitamanodoruji
 *    http://tumblr.g.hatena.ne.jp/saitamanodoruji/20140831/1409496698
 */

'use strict';

mamemomonga

@echo off
rem ---------------------------------------------------------------------------
rem Windows7 x64 バッチファイルからcygwin64 PerlでHello World!
rem Shift_JIS(cp932)で保存すること
rem ---------------------------------------------------------------------------

set OPATH=%PATH%
set PATH=C:\cygwin64\bin;%PATH%
for /F "usebackq" %%s in (`cygpath -u %0`) do SET UPATH=%%s
perl -x -S %UPATH% %*

mamemomonga

@echo off
rem ---------------------------------------------------------------------------
rem Windows7 x64 バッチファイルからActive Perl(64bit)でHello World!
rem Shift_JIS(cp932)で保存すること
rem ---------------------------------------------------------------------------
set OPATH=%PATH%
set PATH=C:\Perl64\bin;%PATH%
perl -x -S %0 %*
goto endofperl
@rem ';

mamemomonga

tumblr reblogging enviroment Advent Calendar 2013

http://www.adventar.org/calendars/168

10日目 PhantomJS入門 : PhantomJSでTumblrメンバー招待URLを取得する

http://blog.mamemomonga.com/2013/12/rblgenv2013-10.html