[B! codes] satoshipã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

satoship id:satoship

codesã«é–¢ã™ã‚‹satoshipã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (29)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

ã‚¿ã‚¤ãƒ ãƒ—ãƒã‚ã‚· - mizuno_takaakiã®æ—¥è¨˜
å…ˆæ—¥ã€ä¼šç¤¾ã§ãƒ‰ãƒ©ãˆã‚‚ã‚“ã®ç§˜å¯†é“å…·ã‹ä½•ã‹ã®è©±ã‚’ã—ã¦ã„ã‚‹å£°ãŒèžã“ãˆã¦ãã¦ã€ãµã¨ã€Œã‚¿ã‚¤ãƒ ãƒ—ãƒã‚ã‚·ã€ã¨ã„ã†è¨€è‘‰ãŒæµ®ã‹ã³ã¾ã—ãŸã€‚æµ®ã‹ã‚“ã ã¯ã„ã„ã‘ã©ãªã‚“ãªã‚“ã ãã‚Œã€ã¨ã„ã†ã“ã¨ã§è€ƒãˆã‚‹ã¨ã€ã‚¦ã‚§ãƒ–ãƒšãƒ¼ã‚¸ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ã¨æ™‚ç©ºã‚’è¶…ãˆã¦éŽåŽ»ã®ã‚¦ã‚§ãƒ–ãƒšãƒ¼ã‚¸ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ã¦ã—ã¾ã†ãƒ—ãƒã‚ã‚·ãªã®ã‹ãªãƒ¼ã€ã¨æ€ã£ãŸã®ã§ã€HTTP::Proxyã¤ã‹ã£ã¦ä½œã£ã¦ã¿ã¾ã—ãŸã€‚ ä½œã£ãŸãƒ—ãƒã‚ã‚·ã‚’ã©ã“ã‹ã«ç«‹ã¦ã¦ã€ãƒ–ãƒ©ã‚¦ã‚¶ã§è¨å®šã‚’ã—ãŸã‚‰ã€ãŸã¨ãˆã°ã¯ã¦ãªã®ãƒˆãƒƒãƒ—ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ã¨ã€ãšã„ã¶ã‚“å‰ã®æ‡ã‹ã—ã„ãƒ‡ã‚¶ã‚¤ãƒ³ã§è¦‹ãˆã¦ã—ã¾ã„ã¾ã™ã€‚ Googleã ã£ã¦ã“ã®ã¨ãŠã‚Šã€‚ ã“ã‚“ãªãƒ—ãƒã‚°ãƒ©ãƒ ã§å‹•ã„ã¦ã¾ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Proxy; use HTTP::Proxy::HeaderFilter::simple; use Getopt
satoship 2007/06/20
web

codes
ãƒªãƒ³ã‚¯
çµåŸŽæµ©ã®ã¯ã¦ãªæ—¥è¨˜ã€€RetroTubeã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãŒå…¬é–‹
id:quill3ã•ã‚“ã«ã‚ˆã‚‹ã€ŒRetroTubeã€ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãŒå…¬é–‹ã•ã‚Œã¦ã„ã¾ã™ã€‚æ—¥çµŒã‚½ãƒ•ãƒˆã‚¦ã‚¨ã‚¢èªŒ(2007å¹´8æœˆå·)ã®ã€ŒRetroTubeé–‹ç™ºè¨˜ã€ã§è§£èª¬ãªã•ã‚‹ã‚‰ã—ã„ã§ã™ã€‚ç´ æ™´ã‚‰ã—ã„ã€‚ http://d.hatena.ne.jp/quill3/20070602#p1 http://d.hatena.ne.jp/quill3/20070603#p1 via http://www.machu.jp/diary/20070605.html#p01 ãªãŠã€æ¬¡å·äºˆå‘Šã®å†™çœŸã«ã‚‚æ–‡å—ãŒè¦‹ãˆã¦ã„ã¾ã™ãŒã€ã“ã®å·ã®æ—¥çµŒã‚½ãƒ•ãƒˆã‚¦ã‚¨ã‚¢èªŒã®ç‰¹é›†ã¯Rubyã§ã™ã€‚ã¾ã¤ã‚‚ã¨ã‚†ãã²ã‚ã•ã‚“ã¨çµåŸŽæµ©ã®ã€Œå¯¾è«‡ã€ã‚‚æŽ²è¼‰ã•ã‚Œã‚‹äºˆå®šã€‚
satoship 2007/06/14
ruby

codes
ãƒªãƒ³ã‚¯
COBOLæŠ€è¡“è€…ã®æ†‚é¬± [RetroTubeé–‹ç™º]ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰å…¬é–‹
ä»Šå¹´åˆã‚ã«ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸRetroTubeã§ã™ãŒã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰å…¬é–‹ã™ã‚‹ã¨å®£è¨€ã—ã¤ã¤ã€ãŠåŒ–ç²§ç›´ã—ã™ã‚‹ä½™è£•ãŒå–ã‚Œãªãã¦ã“ã‚Œã¾ã§ã‚ºãƒ«ã‚ºãƒ«ã¨ãã¦ã—ã¾ã„ã¾ã—ãŸã€‚ æ°—ãŒä»˜ã‘ã°ã‚‚ã†ï¼–æœˆâ€¦ã“ã‚Œã§ã¯ã„ã‹ã‚“ã¨ã„ã†ã“ã¨ã§ã€ä¸€å¿µç™ºèµ·ã—ã¦ãªã‚“ã¨ã‹çš†æ§˜ã®ãŠç›®ã«è§¦ã‚Œã¦ã‚‚æ¥ãšã‹ã—ããªã„ç¨‹åº¦ã«ã¾ã§æ•´å½¢ã™ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ ã§ã™ã®ã§ã€æœ¬æ—¥ã‚ˆã‚Šæ•°æ—¥é–“ã«æ¸¡ã£ã¦å…¬é–‹ã—ã¦ã„ããŸã„ã¨æ€ã„ã¾ã™ã€‚GPLã§å…¬é–‹ã—ã¾ã™ã€‚ RetroTubeã®ã‚·ã‚¹ãƒ†ãƒ ã¯ã€ãƒãƒƒãƒéƒ¨åˆ†ã¨ã‚ªãƒ³ãƒ©ã‚¤ãƒ³éƒ¨åˆ†ã®äºŒã¤ã«å¤§ããåˆ†ã‹ã‚Œã¦ã„ã‚‹ã®ã§ã€ã¾ãšã¯ãƒãƒƒãƒéƒ¨åˆ†ã‹ã‚‰æŽ²è¼‰ã—ã¾ã™ã€‚ ãƒªã‚¹ãƒˆï¼‘ã€œï¼”ã¯ã€ãã‚Œãžã‚ŒéŸ³æ¥½ãƒ»ã‚¢ãƒ‹ãƒ¡ãƒ»é‚¦ç”»ãƒ»æ´‹ç”»ã®å„ã‚«ãƒ†ã‚´ãƒªã«ã¤ã„ã¦ã€YouTubeã‹ã‚‰ä¸€æ‹¬æ¤œç´¢ã—ã¦çµæžœã‚’å‡ºåŠ›ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã§ã™ã€‚ ãƒªã‚¹ãƒˆï¼•ã¯ã€ä¸Šè¨˜æ¤œç´¢çµæžœã‹ã‚‰æ–°ç€æƒ…å ±ã‚’å‡ºåŠ›ã™ã‚‹ã‚‚ã®ã§ã™ã€‚ ã‚ã¨ã€ã“ã“ã‹ã‚‰ã¯è¶…é‡è¦ãªãŠçŸ¥ã‚‰ã›ã«ãªã£ã¦ã—ã¾ã†ã®ã§ã™ãŒã€æ—¥çµŒã‚½ãƒ•ãƒˆã‚¦ã‚¨ã‚¢ï¼˜æœˆå·ï¼ˆ6/23ç™ºå£²ï¼‰ã‹ã‚‰ã€çŸæœŸé›†ä¸é€£
satoship 2007/06/06
ruby

codes
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
satoship 2007/05/25
perl

codes
ãƒªãƒ³ã‚¯
TAKESAKO @ Yet another Cybozu Labs: FizzBuzz - Golf Challenge
FizzBuzzãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã®ãŒæµè¡Œã£ã¦ã„ã‚‹ã¿ãŸã„ãªã®ã§ç§ã‚‚å‚åŠ ã—ã¦ã¿ã‚‹ã“ã¨ã«ã€‚ Perléƒ¨é–€ 1. ç›®æŒ‡ã›æœ€çŸ ï¼ˆperl -eã‚‚å«ã‚ã¦56byteï¼‰ perl -e'die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/}1..1e2' â€» perl -lã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’ä½¿ã‚ãšã«æœ€çŸã‚’ç›®æŒ‡ã™ã€‚æ¨™æº–ã‚¨ãƒ©ãƒ¼å‡ºåŠ›ãŒNGã®å ´åˆã¯printã‚’ä½¿ã£ã¦57byteã« perl -e'print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2' â€» anarchy golf - FizzBuzz ã§æ›ç®—ã™ã‚‹ã¨48byteã§Perlæœ€çŸ (perl -eã‚’å«ã‚ãªã„) print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2 ã“ã‚Œã ã¨ perl FizzBuzz.pl ã¨å®Ÿè¡Œã§ãã¦ Code Golf
satoship 2007/05/18
FizzBuzz

perl

codes

summary
ãƒªãƒ³ã‚¯
https://labs.cybozu.co.jp/blog/kazuho/archives/2007/05/fizzbuzz_perl_50.php
satoship 2007/05/18
FizzBuzz

perl

codes
ãƒªãƒ³ã‚¯
HTML::Templateã§å›°ã£ã¦ã„ã¾ã™â†’è§£æ±º - çµåŸŽæµ©ã®ã¯ã¦ãªãƒ–ãƒã‚°
Perlã®HTML::Templateãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã£ã¦ã€hashrefã®arrayrefã—ã‹æ‰±ãˆãªã„ã®ã§ã—ã‚‡ã†ã‹ã€‚ä»¥ä¸‹ã«ä¾‹ã‚’ç¤ºã—ã¾ã™ã€‚ã‚µãƒ³ãƒ—ãƒ«1ã¯ã‚ˆã„ã®ã ã‘ã‚Œã©ã€ã‚µãƒ³ãƒ—ãƒ«2ã¯ã©ã†ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆã‚’æ›¸ã‘ã°ã‚ˆã„ã‹ã€ã¨ã„ã†è©±é¡Œã§ã™ã€‚ã‚µãƒ³ãƒ—ãƒ«2ã¯hashrefã®hashrefã§ã™ãã€‚ã‚‚ã—ã©ãªãŸã‹æƒ…å ±ãŒã‚ã‚Œã°ã”æ•™ç¤ºãã ã•ã„ã€‚ ã‚µãƒ³ãƒ—ãƒ«1: ï¼ˆã“ã‚Œã¯OKï¼‰ use strict; use warnings; use HTML::Template; my $data1 = [ { NAME => 'Alice', AGE => 23 }, { NAME => 'Bobby', AGE => 18 }, { NAME => 'Chris', AGE => 17 }, ]; my $t = HTML::Template->new( scalarref => \<<'EOD', <TMPL_LOOP NAME=US
satoship 2007/05/18
perl

codes
ãƒªãƒ³ã‚¯
XML::Simpleã®XMLinã§ã€UTF-8 flagãŒonã«ãªã‚‹ã¨ãã¨ãªã‚‰ãªã„ã¨ããŒã‚ã‚‹ã®ã¯ãªãœã§ã—ã‚‡ã†ï¼Ÿâ†’è§£æ±º - çµåŸŽæµ©ã®ã¯ã¦ãªãƒ–ãƒã‚°
ã„ã¤ã‚‚æ•™ãˆã¦ã‚¯ãƒ³ã§ç”³ã—è¨³ã‚ã‚Šã¾ã›ã‚“ã€‚Perlã®UTF-8 flagã«è©³ã—ã„æ–¹ã«è³ªå•ã§ã™ã€‚ ä»¥ä¸‹ã®CGIã‚’Windowsã§å‹•ã‹ã—ãŸã¨ãã¨ã€Freebsdã§å‹•ã‹ã—ãŸã¨ãã«æŒ¯ã‚‹èˆžã„ãŒå¤‰ã‚ã‚‹ç†ç”±ã‚’çŸ¥ã‚ŠãŸã„ã¨æ€ã£ã¦ã„ã¾ã™ã€‚ sample.cgi #!/usr/bin/perl use strict; use warnings; use Encode; use Data::Dumper; use XML::Simple; my $ref = XMLin('input.xml'); print "Content-type: text/html; charset=UTF-8\n\n"; print '<pre>'; print Dumper($ref); if (utf8::is_utf8($ref->{name}->[0])) { print 'ON'; } else { print 'OFF'; }
satoship 2007/05/18
perl

codes
ãƒªãƒ³ã‚¯
ruby & perl - è»½é‡ãƒ—ãƒã‚»ã‚¹ã‚’threadã§ä»£ç”¨ : 404 Blog Not Found
2007å¹´05æœˆ18æ—¥03:30 ã‚«ãƒ†ã‚´ãƒª ruby & perl - è»½é‡ãƒ—ãƒã‚»ã‚¹ã‚’threadã§ä»£ç”¨ erlangã§å”¯ä¸€èŒãˆã‚‹è»½é‡ãƒ—ãƒã‚»ã‚¹ã§ã™ãŒã€ã“ã‚Œã¯threadã§ã‚‚æ¯”è¼ƒçš„ç°¡å˜ã«ä»£ç”¨ã¯ã§ãã¾ã™ã€‚ Rubyist Magazine - Rubyist ã®ãŸã‚ã®ä»–è¨€èªžæŽ¢è¨ª ã€ç¬¬ 10 å›žã€‘ Erlangã§ç´¹ä»‹ã•ã‚Œã¦ã„ãŸErlang Landã®ãƒ•ã‚£ãƒœãƒŠãƒƒãƒæ•°ã‚’éžåŒæœŸã§è¨ˆç®—ã™ã‚‹ä¾‹ã¯ã€rubyã§æ›¸ãã¨ã“ã‚“ãªæ„Ÿã˜ã«ãªã‚‹ã§ã—ã‚‡ã†ã€‚ thrfib.rb require 'thread' require 'Common' def worker(n, q) return Thread.new do q.push("fib(#{n}) = #{fib(n)}") end end def manager(n, q) Thread.new do n.times { puts q.shift } end end
satoship 2007/05/18
perl

codes
ãƒªãƒ³ã‚¯
Cache::Fileãƒ¡ãƒ¢
Cache::Fileãƒ¡ãƒ¢ 2007-04-29-1 [Programming] CGI + HTML::Template ã§ Cache::File ã‚’ä½¿ã†ã¨ãã®è‡ªåˆ†ç”¨ãƒ¡ãƒ¢ã€SYNOPSISã€‚ my $cache_root_root = "/home/yto/www/foobar/cache"; my $cache_page = Cache::File->new(cache_root => $cache_root_root."/page", cache_umask => 000, default_expires => '48 hours', size_limit => 10000000, ); if (defined $cache_page and $key !~ /^\s*$/) { my $data = $cache_page->get($key); if ($data) { pri
satoship 2007/05/17
perl

codes
ãƒªãƒ³ã‚¯
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
satoship 2007/05/16
perl

codes
ãƒªãƒ³ã‚¯
perl - telnetã‚³ãƒžãƒ³ãƒ‰ã‚’è‡ªä½œã™ã‚‹ : 404 Blog Not Found
2007å¹´05æœˆ11æ—¥12:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - telnetã‚³ãƒžãƒ³ãƒ‰ã‚’è‡ªä½œã™ã‚‹ Perl Cookbook (English) Christiansen / Torkington [é‚¦è¨³: Perlã‚¯ãƒƒã‚¯ãƒ–ãƒƒã‚¯] ãªã„ã‚‚ã®ã¯è‡ªä½œã—ã¦ã¿ã‚‹ã¨ã„ã†ã“ã¨ã§ã€‚ Vista ã¯ telnet ã‚³ãƒžãƒ³ãƒ‰ãŒç„¡åŠ¹åŒ–ã•ã‚Œã¦ã„ã‚‹ ã¨ã“ã‚ãŒ Cygwin ã‹ã‚‰ telnet ã‚³ãƒžãƒ³ãƒ‰ãŒä½¿ãˆãªãã¦ç„¦ã£ãŸã€‚ Cygwin ã® setup ã‚’ç¢ºèªã—ãŸã‚Š PATH ã‚’ç¢ºèªã—ãŸã‚Šã€‚ ã‚³ãƒžãƒ³ãƒ‰ãƒ—ãƒãƒ³ãƒ—ãƒˆã‹ã‚‰ã‚‚é§„ç›®ã€‚ã–ã£ã¨ã“ã‚“ãªã¨ã“ã‚ã‹ã€‚ ptelnet.pl #!/usr/local/bin/perl use strict; use warnings; use IO::Socket::INET; my $addr = shift || die "$0 host [port]
satoship 2007/05/14
perl

network

codes
ãƒªãƒ³ã‚¯
Emacs Lisp auto-compile.elã‚’å…¬é–‹ã—ã¾ã—ãŸ - higepon blog
è‡ªä½œã® Emacs Lisp auto-compile.el ã‚’å…¬é–‹ã—ã¾ã—ãŸã€‚ ã“ã‚Œã¯ä½•ã‹? C, C++ãªã©ã®ã‚³ãƒ¼ãƒ‰ã‚’Emacsä¸Šã§ç·¨é›†ã—ã¦ã„ã‚‹ã¨ãã«ã€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä¿å˜ã—ãŸã‚¿ã‚¤ãƒŸãƒ³ã‚°ã§ã€ãƒãƒƒã‚¯ã‚°ãƒ©ã‚¦ãƒ³ãƒ‰ã§ make ã‚³ãƒžãƒ³ãƒ‰ãŒè‡ªå‹•ã§å®Ÿè¡Œã•ã‚Œã¾ã™ã€‚ ä»¥ä¸‹ã®ã‚ˆã†ãªãƒ¡ãƒªãƒƒãƒˆãŒã‚ã‚‹ã¨æ€ã‚ã‚Œã¾ã™ã€‚ ã„ã¡ã„ã¡ terminal ã§ makeã—ãªãã¦è‰¯ã„ã®ã§ã€é–‹ç™ºåŠ¹çŽ‡ãŒã‚ãŒã‚‹ ä¿å˜æ™‚ã«è¡Œã‚ã‚Œã‚‹ã®ã§ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã‚¨ãƒ©ãƒ¼ãŒæ—©ã„æ®µéšŽã§ç™ºè¦‹ã§ãã€é–‹ç™ºåŠ¹çŽ‡ãŒã‚ãŒã‚‹ ã“ã®ã‚ˆã†ãªæ„Ÿã˜ C-x C-s ã§ä¿å˜ã™ã‚‹ã¨ make ãŒè‡ªå‹•ã§å®Ÿè¡Œã•ã‚Œã¾ã™ ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ãŒçµ‚ã‚ã‚Œã° OK ãŒã§ã¾ã™ï¼ˆã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã™ã‚Œã°è¡¨ç¤ºã•ã‚Œã¾ã™ï¼‰ ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«æ–¹æ³• sf.netã‹ã‚‰ auto-compile.el ã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã—ãƒãƒ¼ãƒ‰ãƒ‘ã‚¹ãŒé€šã£ã¦ã„ã‚‹å ´æ‰€ã«ç½®ãã€‚ .emacsã« (require 'auto-compile) ;; auto-comp
satoship 2007/05/05
emacs

ã‚ã¨ã§

codes
ãƒªãƒ³ã‚¯
WEB DB PRESS vol.38 - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
WEB+DB PRESS Vol.38 ã®è¦‹æœ¬èªŒãŒå±Šãã¾ã—ãŸã€‚é€£è¼‰ã‚‚ä»Šå›žã§7å›žç›®ã€‚ä»Šå›žã¯ POE ã®è©±ã®å¾Œç·¨ã§ã™ã€‚è¤‡æ•°ã® HTTP ã‚µãƒ¼ãƒãƒ¼ã«éžåŒæœŸã§åŒæ™‚ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ POE::Component::* ã«é ¼ã‚‰ãšã¤ãã‚Šã€ãã®å¾Œ POE::Component ã‚’ç´¹ä»‹ã—ã¤ã¤ IRC bot ã‚’ä½œã‚‹ã€ã¨ã„ã†å†…å®¹ã«ãªã£ã¦ã¾ã™ã€‚å…ˆæ—¥ã®å‰ç·¨ã® vol.37ã€ãã‚Œã‹ã‚‰å…ˆæ—¥ã® YAPC::Asia ã®è³‡æ–™ã¨ã‚ã‚ã›ã¦ãŠèªã¿ã„ãŸã ã‘ã‚‹ã¨ç†è§£ãŒæ·±ã¾ã‚‹ã‹ãªã¨æ€ã„ã¾ã™ã€‚ ä»Šæœˆå·ã¯æ–°é€£è¼‰ãŒè‰²ã€…å§‹ã¾ã£ã¦ãŸã‚Šã—ã¦é–¢å¿ƒãŒé«˜ã„ã‚ã‘ã§ã™ãŒã€æ–å›ºguy å°é£¼å¼¾ã•ã‚“ (http://blog.livedoor.jp/dankogai/) ã® Alpha Geek ã«é€¢ã„ãŸã„ã®ã‚²ã‚¹ãƒˆãŒITæˆ¦è¨˜ã® id:amachang ã¨ã‚ã®"ã¯ã¾ã¡ã¡ã‚ƒã‚“"ã§ã€ã¯ã¾ã¡ã¡ã‚ƒã‚“ã®å†™çœŸãŒè¼‰ã£ã¦ã„ã¾ã—ãŸã€‚ã¯ã¾ã¡ã¡ã‚ƒã‚“ã®é¡”ãŒè¦‹ãŸã„äººã¯
satoship 2007/04/20
perl

codes
ãƒªãƒ³ã‚¯
404 Blog Not Found:CPAN - HTTP::Response::Encoding Released!
2007å¹´04æœˆ17æ—¥22:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages CPAN - HTTP::Response::Encoding Released! HTTP-Response-Encoding ã‚’ Release ã—ãŸã®ã§ãŠçŸ¥ã‚‰ã›ã—ã¾ã™ã€‚ on CPAN (coming soon) http://www.dan.co.jp/~dankogai/cpan/HTTP-Response-Encoding-0.03.tar.gz ã©ã†ã„ã†ã‚‚ã®ã‹ã¨ã„ã†ã¨ã€ã“ã†ã„ã†ã‚‚ã®ã§ã™ã€‚ use LWP::UserAgent; use HTTP::Response::Encoding; my $ua = LWP::UserAgent->new(); my $res = $ua->get("http://www.example.com/"); warn $res->encoding; prin
satoship 2007/04/18
perl

codes
ãƒªãƒ³ã‚¯
404 Blog Not Found:javascript - å‹æ‰‹ã«æ·»å‰Š - JavaScriptå…¥é–€
2007å¹´04æœˆ12æ—¥23:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages javascript - å‹æ‰‹ã«æ·»å‰Š - JavaScriptå…¥é–€ é‡ˆè¿¦ã«èª¬æ³•ã‚’æ‰¿çŸ¥ã§ã€‚ ITæˆ¦è¨˜ - ç¤¾å†…å‹‰å¼·ä¼šè³‡æ–™ amachang - JavaScript å…¥é–€Object.prototype = { /* ... */ }ã¯é¿ã‘ã‚‹ã¹ã— ã¿ã«ãã„ã®ã§ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’å…¥ã‚Œæ›¿ãˆã‚‹æ–¹å¼ã« Box.prototype = { speed: 4, move: function() { this.left += this.speed; this.element.style.left = this.left + 'px'; if (this.left > 400) clearInterval(this.id); }, start: function() { var self = this; this.id = s
satoship 2007/04/13
ã€ŒJavaScriptã«é™ã‚‰ãšã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ãŒä½¿ã„ãã†ãªæ©Ÿèƒ½ã¯ã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ã«å®Ÿè£…ã•ã›ã‚‹ã®ã§ã¯ãªãã‚¯ãƒ©ã‚¹/ãƒ—ãƒãƒˆã‚¿ã‚¤ãƒ—å´ã§ç”¨æ„ã—ã¦ãŠãã¹ã—ã€‚ã€

javascript

codes
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - å‹æ‰‹ã«æ·»å‰Š - Hatena::API::Auth
2006å¹´04æœˆ24æ—¥21:20 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - Hatena::API::Auth ã¨ã„ã†ã‚ã‘ã§ã€å¥½è©•ã«ã¤ãç¶šã‘ã¾ã™ã€å‹æ‰‹ã«æ·»å‰Šã®ã‚³ãƒ¼ãƒŠãƒ¼ã€‚ ä»Šå›žã¯ãƒãƒ†ãƒŠã‚ªãƒ¤ä½œã€Hatena::API::Auth 0.02ã§ã™ã€‚ ä»¥ä¸‹ã€ã‚½ãƒ¼ã‚¹ã®ä¸€éƒ¨ã‚’æŠœãå‡ºã—ãŸã‚‚ã®ã§ã™ã€‚ 1: package Hatena::API::Auth; 2: use strict; 3: use warnings; 4: our $VERSION = 0.02; 5: 6: use base qw (Class::Accessor::Fast Class::ErrorHandler); 22: 23: __PACKAGE__->mk_accessors(qw(api_key secret)); 24: 67: sub login { 68: my $self =
satoship 2007/04/12
perl

codes

tips

naoya
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ - ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚äº†æ—¥ã‚’2020å¹´1æœˆ31æ—¥(é‡‘)ã«æ±ºå®šã—ã¾ã—ãŸ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’ç›®å‡¦ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã‚’çµ‚äº†äºˆå®šã§ã‚ã‚‹æ—¨ã‚’ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019å¹´æœ«ã‚’ç›®å‡¦ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æä¾›ã‚’çµ‚äº†ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã“ã®ãŸã³ã€æ£å¼ã«çµ‚äº†æ—¥ã‚’æ±ºå®šã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”ç¢ºèªãã ã•ã„ã€‚ çµ‚äº†æ—¥: 2020å¹´1æœˆ31æ—¥(é‡‘) ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1æœˆ31æ—¥(é‡‘) çµ‚äº†æ—¥ä»¥é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“ã€‚æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„ã€‚ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„ã¦ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ ã”åˆ©ç”¨ã®ã¿ãªã•ã¾ã«ã¯ã”è¿·æƒ‘ã‚’ãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 è¿½è¨˜ ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—æ—¥è¨˜ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2æœˆ28
satoship 2007/04/12
perl

codes

ã‚ã¨ã§
ãƒªãƒ³ã‚¯
perl - å‹æ‰‹ã«æ·»å‰Š - æ¡ä»¶åˆ†å² : 404 Blog Not Found
2006å¹´12æœˆ05æ—¥05:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - æ¡ä»¶åˆ†å² ã¨ã„ã†ã‚ã‘ã§ã€ã²ã•ã‹ãŸã¶ã‚Šã®å‹æ‰‹ã«æ·»å‰Šã®ã‚³ãƒ¼ãƒŠãƒ¼ã¯ã€ã“ã¡ã‚‰ã€‚ CodeZineï¼šPerlã§ä½œã‚‹ãƒ¢ãƒã‚¤ãƒ«ã‚µã‚¤ãƒˆã®ã‚³ãƒ„ï¼šç¬¬5å›ž ï¼ˆãƒ¢ãƒã‚¤ãƒ«, XHTML, Perlï¼‰ å¤šå°‘é•·ã„åˆ¤åˆ¥ã¨ãªã£ã¦ã—ã¾ã„ã¾ã—ãŸã®ã§ç”¨é€”ã«åˆã‚ã›ã¦é–¢æ•°åŒ–ã—ã¦ã‚‚ã‚ˆã„ã§ã—ã‚‡ã†ã€‚ ã•ã‚‰ã«ã™ã£ãã‚Šã¨ãƒã‚¸ãƒƒã‚¯ã‚’æ›¸ãå‡ºã™æ–¹æ³•ãŒã„ãã¤ã‚‚ã‚ã‚Šã¾ã™ã€‚ use HTTP::MobileAgent; my $agent = HTTP::MobileAgent->new; if ($agent->is_docomo){ if ($agent->is_foma){ # XHTMLå¯¾å¿œ } } elsif ($agent->is_ezweb){ if ($agent->is_win){ # XHTMLå¯¾å¿œ } } elsif
satoship 2007/04/12
æ¡ä»¶åˆ†å²ã®æ›¸ãæ–¹ã€‚ãŸã‚ã«ãªã‚‹ã€‚

perl

tips

codes
ãƒªãƒ³ã‚¯
Test::Class - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
æœ€è¿‘ Perl ã§ãƒ†ã‚¹ãƒˆã‚’æ›¸ãã¨ãã« Test::Class ã‚’ä½¿ã£ã¦ã¾ã™ã€‚(ã‚‚ã—ã‹ã—ã¦å¸¸è˜?) ã“ã‚Œã¾ã§ã¯ *.t ã§ Test::More ã‚’ãã®ã¾ã¾ä½¿ã£ã¦ãŸã‘ã©ã€ãƒ†ã‚¹ãƒˆãŒå¤§ãããªã£ã¦ãã‚‹ã¨ã‚³ãƒ¼ãƒ‰ãŒåˆ†ã‹ã‚Šã«ãããªã£ãŸã‚Šã€è‡ªåˆ†ã§ã‚ã‚Œã“ã‚Œã—ãªãã‚ƒã„ã‘ãªã„ã“ã¨ãŒå¤šãã¦ã‚ã‚“ã©ãã•ã„ã€‚ Test::Class ã¯ xUnit ã‚¹ã‚¿ã‚¤ãƒ«ã§ Perl ã®ãƒ†ã‚¹ãƒˆã‚’æ›¸ã‘ã‚‹ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ã§ã™ã€‚xUnit ãª Perl å®Ÿè£…ã¨ã„ãˆã° Test::Unit ã‚‚ã‚ã‚‹ã‚“ã§ã™ãŒã€ãƒ†ã‚¹ãƒˆç”¨ã®é–¢æ•°ã‚‚ Test::Unit ã®æµå„€ã«å¾“ã†å¿…è¦ãŒã‚ã£ã¦ã¡ã‚‡ã£ã¨å«Œã€‚Test::Class ã¯ Test::More ã¨ Test::Harness ã¨ã‹ã€æ™®æ®µä½¿ã„æ…£ã‚Œã¦ã‚‹ Perl ã‚‰ã—ã„ãƒ†ã‚¹ãƒˆã‚¹ã‚¿ã‚¤ãƒ«ã‚’ä½¿ã„ã¤ã¤ xUnit ã§ãã‚‹ã¨ã„ã†ç‚¹ãŒè‰¯ã„ã§ã™ã€‚ ä½¿ã„æ–¹ã§ã™ãŒã€ Test::Class ã‚’ç¶™æ‰¿ã—ãŸãƒ†ã‚¹ãƒˆã‚¯ãƒ©ã‚¹ã‚’ä½œã‚Š ãƒ†ã‚¹ãƒˆç”¨
satoship 2007/04/12
perl

testing

codes
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸