- JSYNC←→YAML間のデータ相互変換仕様は漏れ・矛盾ない？ #JSYNC
３番目は、「!type &address」という文字列型の値が入った配列
- 做访问日志
#!/usr/local/bin/perl ###################################################################### # access log creator # kubo, yoshihito # 2010.03.07 ######################################################################
- 古橋貞之の日記
# websocketサーバへのrpcセッションを作成
$ws = messagepack :: rpc :: client .new( ' 127.0.0.1 ' , 18800 ) # プッシュ配信
$ws .call( :push_data , { hello = world }.to_json)
- 節分の日取りをプログラムで自動計算しました
#!/usr/bin/perl # copyrignt (c) 2011 お市のかた # created by お市のかた on feb. 5, 2011 @hiduke = ( { start = 1873 , end = 1884 , 1 = 3 , 2 = 3 , 3 = 3 , 0 = 3 }, { start = 1882 , end = 1900 , 1 = 2 , 2 = 3 , 3 = 3 , 0 = 3 }, { start = 1901 , end = 1917 , 1 = 3 , 2 = 4 , 3 = 4 , 0 = 4 }, { start = 1915 , end = 1954 , 1 = 3 , 2 = 3 , 3 = 4 , 0 = 4 }, { start = 1952 , end = 1987 , 1 = 3 , 2 = 3 , 3 = 3 , 0 = 4 }, { start = 1985 , end = 2024 , 1 = 3 , 2 = 3 , 3 = 3 , 0 = 3 }, { start = 2022 , end = 2057 , 1 = 2 , 2 = 3 , 3 = 3 , 0 = 3 }, { start = 2055 , end = 2090 , 1 = 2 , 2 = 2 , 3 = 3 , 0 = 3 }, { start = 2088 , end = 2100 , 1 = 2 , 2 = 2 , 3 = 2 , 0 = 3 }, { start = 2101 , end = 2104 , 1 = 3 , 2 = 3 , 3 = 3 , 0 = 4 }, ); for($l =0; $l @hiduke; $l++) { $start = $hiduke[$l]{start}; $end = $hiduke[$l]{end}; for($year = $start; $year = $end; $year++) { if(!$year_check{$year}) { $year_mod = $year % 4; print $year $hiduke[$l]{$year_mod}。。n ; $year_check{$year} = 1; } } }
- べにんじょのやっぽ
#!/usr/bin/env perl
use strict ;
use warnings ;
use benchmark qw/cmpthese timethese/ ;
|
