| use strict; | |
| use warnings; | |
| use IO::Handle; | |
| sub fork_exec { | |
| my @args = @_; | |
| my $handles = []; | |
| if (ref($args[$#args]) eq 'GLOB') { | |
| my $stdin = pop @args; |
| # Use the Apache rewrite engine to redirect downloads to our script. | |
| RewriteEngine On | |
| RewriteBase / | |
| RewriteRule ^repo/((Packages|Release)(.*)?)$ /repo/counter.php?filename=$1 [L,QSA] | |
| RewriteRule ^repo/downloads/(.*)\.deb$ /repo/counter.php?filename=$1 [L,QSA] |
Ruby の HTTP クライアントライブラリ Faraday が便利そう
API ラッパの開発には [RestClient gem][rest_client_gem] だとか
OAuth の必要なものは [Net/HTTP][net_http] + [OAuth gem][oauth_gem] を使ってた
[Twitter gem][twitter_gem] や [Instagram gem][instagram_gem] など API ライブラリのソースを読んでみると
[Faraday gem][faraday_gem] というものがよく使われてた
| -- show running queries (pre 9.2) | |
| SELECT procpid, age(clock_timestamp(), query_start), usename, current_query | |
| FROM pg_stat_activity | |
| WHERE current_query != '<IDLE>' AND current_query NOT ILIKE '%pg_stat_activity%' | |
| ORDER BY query_start desc; | |
| -- show running queries (9.2) | |
| SELECT pid, age(clock_timestamp(), query_start), usename, query | |
| FROM pg_stat_activity | |
| WHERE query != '<IDLE>' AND query NOT ILIKE '%pg_stat_activity%' |
| Tracking memory leaks: | |
| Devel::Arena - sv_stats() returns arena structures used for SV allocation | |
| * Devel::Cycle - find_cycle($ref) returns all cycles found in $ref and the perl variables they point to | |
| Devel::Gladiator - walk Perl variable arena | |
| Devel::Leak - deprecated by Devel::LeakTrace::Fast | |
| Devel::LeakTrace - deprecated by Devel::LeakTrace::Fast | |
| * Devel::LeakTrace::Fast - prints leaked SV's and line numbers at END. | |
| Data::Structure::Util - has_circular_ref($ref) returns ref to link in $ref that is circular or false. | |
| Test::LeakTrace - no_leaks_ok(), etc. |
Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU
Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys
Consumer key: CjulERsDeqhhjSme66ECg
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Encode; | |
| use YAML::Syck; | |
| use TokyoCabinet; | |
| use Text::KyTea; | |
| use Unicode::Japanese; |
| #!/bin/sh | |
| TABLE_SCHEMA=$1 | |
| TABLE_NAME=$2 | |
| mytime=`date '+%y%m%d%H%M'` | |
| hostname=`hostname | tr 'A-Z' 'a-z'` | |
| file_prefix="trimax$TABLE_NAME$mytime$TABLE_SCHEMA" | |
| bucket_name=$file_prefix | |
| splitat="4000000000" | |
| bulkfiles=200 |
| # 少し凝った zshrc | |
| # License : MIT | |
| # http://mollifier.mit-license.org/ | |
| ######################################## | |
| # 環境変数 | |
| export LANG=ja_JP.UTF-8 | |
| # 色を使用出来るようにする |
| http { | |
| include /etc/nginx/mime.types; | |
| default_type application/octet-stream; | |
| log_format ltsv 'domain:$host\t' | |
| 'host:$remote_addr\t' | |
| 'user:$remote_user\t' | |
| 'time:$time_local\t' | |
| 'method:$request_method\t' | |
| 'path:$request_uri\t' |