個人ã§å‡ºæ¥ã‚‹Webサービスã®ä½œã‚Šæ–¹(YAPC::ASIA 2013) @koba04
個人ã§å‡ºæ¥ã‚‹Webサービスã®ä½œã‚Šæ–¹(YAPC::ASIA 2013)
個人ã§å‡ºæ¥ã‚‹Webサービスã®ä½œã‚Šæ–¹(YAPC::ASIA 2013) @koba04
æ–‡å—コード変æ›ãƒŸã‚¹ã«ã‚ˆã‚‹æ–‡å—化ã‘パターンã¨æƒ³å®šã•ã‚Œã‚‹åŽŸå› - drk7jp
ã¨ã‚るシステムã§ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‹ã‚‰å¼•ã„ã¦ããŸãƒ‡ãƒ¼ã‚¿ã®è¡¨ç¤ºãŒæ–‡å—化ã‘ã™ã‚‹ã¨ã„ã†ä¸å…·åˆãŒã‚ã‚Šã¾ã—ãŸã€‚ データベース内ã®ãƒ‡ãƒ¼ã‚¿ã¨ã—ã¦ã¯æ–‡å—化ã‘ã—ã¦ã„ãªã„状態ã§æ ¼ç´ã•ã‚Œã¦ã„ã‚‹ã“ã¨ã¯ã‚ã‹ã£ã¦ã„ãŸã®ã§ã€ã©ã“ã‹ã—らã®æ–‡å—変æ›ã§åŒ–ã‘ã¦ã„ã‚‹ã“ã¨ã¯ã‚ã‹ã£ã¦ã„ã¾ã™ã€‚ã¾ãšã¯ã©ã®èª¤å¤‰æ›ã«ã‚ˆã‚Šæ–‡å—化ã‘ã™ã‚‹ã®ã‹åŽŸå› 切り分ã‘ã®ãŸã‚ã«ã€decode/encode ã®çµ„ã¿åˆã‚ã›ã«ã‚ˆã‚‹æ–‡å—化ã‘パターン一覧を作りã¾ã—ãŸã€‚ãŠã‹ã’ã•ã¾ã§ã©ã®ãƒ‘ターンã«é¡žã™ã‚‹ã‚‚ã®ã‹åˆ¤åˆ¥ã™ã‚‹ã“ã¨ãŒã§ãã€ç„¡äº‹ã«æ”¹ä¿®ã™ã‚‹ã“ã¨ãŒã§ãã¾ã—ãŸã€‚ ãã®è©±ã¯ã¾ãŸåˆ¥ã«ã™ã‚‹ã¨ã—ã¦ã€ä»Šã‚‚昔も変ã‚らãšæ–‡å—化ã‘ã«æ‚©ã‚€äººã¯æ„外ã¨å¤šã„ã¨æ€ã„ã¾ã™ã€‚誤変æ›çµæžœä¸€è¦§ã¯åŽŸå› 解æžã®å‚考ã«ãªã‚‹ã¨æ€ã„ã€è¨˜äº‹ã¨ã—ã¦ã¾ã¨ã‚ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚ æ–‡å—コード変æ›ãƒŸã‚¹ã«ã‚ˆã‚‹æ–‡å—化ã‘パターンをå¯è¦–化ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã¨ä¸€è¦§è¡¨ ã¾ãšã¯èª¤å¤‰æ›ã‚’生æˆã™ã‚‹ perl スクリプトã§ã™ã€‚プãƒã‚°ãƒ©ãƒ ã¯ã¨ã£ã¦ã‚‚ç°¡å˜ã§ã€ã€Œæ–‡å—化ã‘ã§
Perl ã‚’ crash ã•ã›ã‚‹æ–¹æ³• - モダンãªPerl入門
Perl ã‚’ Crash ã•ã›ãŸã„。ãã‚“ãªæ¬²æ±‚を抑ãˆãã‚Œãªã„ã‚ãªãŸã®ãŸã‚ã«ã€ã„ãã¤ã‹ã®æ–¹æ³•ã‚’æ•™ãˆã‚ˆã†ã€‚ ã„ã‚ã„ã‚㪠crash unpack ã§ä¸æ£ã‚¢ã‚¯ã‚»ã‚¹ perl -e 'unpack "p",0xdeadbeef' pack ã«ãŠã„㦠'p' 㯠A pointer to a null-terminated string. ã‚’æ„味ã™ã‚‹ã€‚ä¸æ£ãªãƒ¡ãƒ¢ãƒªé ˜åŸŸã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚Œã°æ»ã¬ã®ã¯ã‚ãŸã‚Šã¾ãˆã§ã‚る。 overload ã®ä¸ã§å†å¸°ã™ã‚‹ perl -e 'use overload q{""}=>sub{"$_[0]"};$a=bless{},main;"$a"' overload ã® stringify ã•ã›ã‚‹éƒ¨åˆ†ãªã©ã§ç„¡é™ãƒ«ãƒ¼ãƒ—ã«ãŠã¡ã„ã‚‹ã¨ã€segv ã™ã‚‹ã€‚ ã“ã®ãƒã‚°ã¯æ˜”ã‹ã‚‰çŸ¥ã‚‰ã‚Œã¦ãŠã‚Šã€ticket ãŒåˆ‡ã‚‰ã‚Œã¦ã„ã‚‹ãŒã€ãªãŠã£ã¦ã„ãªã„。 @INC ã®ä¸ã® coderef ã§å†å¸°ã™ã‚‹ perl
ç¶šãƒ»æŠ€è¡“çš„è² å‚µã®æŠŠæ¡ã¨æ”¹å–„を促ã™ãŸã‚ã« - mixi engineer blog
ã“ã‚“ã«ã¡ã¯, 先日Kansai.pmã§ç™ºè¡¨ã•ã›ã¦é ‚ã„ãŸgoccyã“ã¨äº”å¶‹ï¼ ãŸã‚“ã½ã½ã‚°ãƒ«ãƒ¼ãƒ—ã§ã™. 今回ã¯, å‰å›žç´¹ä»‹ã—ãŸæŠ€è¡“çš„è² å‚µã®æŠŠæ¡ã¨æ”¹å–„を促ã™ãŸã‚ã«ã®ç¶šç·¨ã¨ã—ã¦, 僕ãŒä½œã£ãŸPerl5コードã®ã‚³ãƒ”ペ検出器ã«ã¤ã„ã¦ç´¹ä»‹ã•ã›ã¦é ‚ãã¾ã™. ã¯ã˜ã‚㫠今やPerl, Rubyç‰ã•ã¾ã–ã¾ãªè¨€èªžã§, 便利ãªãƒ©ã‚¤ãƒ–ラリ群やフレームワークを利用ã§ãる時代ã«ãªã‚Šã¾ã—ãŸ. ã“れらを使ã†ã“ã¨ã§ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã®é–‹ç™ºã‚³ã‚¹ãƒˆã¯æ ¼æ®µã«ä¸‹ãŒã‚Š, ã‚ˆã‚Šç´ æ—©ã開発ã™ã‚‹ã“ã¨ãŒã§ãるよã†ã«ãªã£ã¦ã„ã¾ã™. ã—ã‹ã—, 当åˆäºˆå®šã•ã‚Œã¦ã„ãŸæ©Ÿèƒ½ã‚’実装ã—ã¦, 「よã—ã§ããŸã‹ã‚‰çµ‚ã‚ã‚Šï¼ã€ã¨ã„ã†ã‚ã‘ã«ã‚‚ã„ãã¾ã›ã‚“. 何ã‹ç‰©ã‚’生ã¿å‡ºã›ã°, å¿…ãšãれをä¿å®ˆãƒ»é‹ç”¨ã™ã‚‹ã‚³ã‚¹ãƒˆãŒç™ºç”Ÿã—ã¾ã™. 開発ã™ã‚‹ã“ã¨ãŒä¾¿åˆ©ã«ãªã£ãŸä»Š, 開発物をä¿å®ˆãƒ»é‹ç”¨ã™ã‚‹ã“ã¨ã‚’支æ´ã™ã‚‹ãƒ„ールも求ã‚られã¦ã„ã¾ã™. ã§ã™ãŒ, ä¿å®ˆã‚„é‹ç”¨, ã¨ã‚Šã‚ã‘ä¿å®ˆã«é–¢ã—ã¦æ”¯æ´ã™ã‚‹ãƒ„ールã¯ã
ãªãœå›½å†…ã§PerlãŒæ€¥é€Ÿã«èŽã‚“ã ã®ã‹
2005å¹´ Railsã®è¥²æ¥2005å¹´ã«çªå¦‚ç¾ã‚ŒãŸRailsã«ã‚ˆã£ã¦å›½å†…ã§Ruby利用者ãŒæ€¥å¢—ã—ãŸã®ãŒPerl滅亡ã¸ã®ç¬¬ä¸€æ©ã¨ãªã£ãŸã€‚書ãã‚„ã™ã•ã«ä½œè€…ãŒã¨ã“ã¨ã‚“ã“ã ã‚ã£ã¦ä½œã‚‰ã‚ŒãŸRubyã®é…力を一度知ã£ã¦ã—ã¾ã†ã¨Perlã®å¤ãã•ãèªã¿è¾›ã書ãè¾›ã„文法ã«èª°ã‚‚ãŒã†ã‚“ã–ã‚Šã—始ã‚る。 2007å¹´ JavaScriptブームAjaxã§å†ç™ºè¦‹ã•ã‚ŒãŸJavaScriptã®ãƒ–ームもPerl終焉ã«è‹¥å¹²ãªãŒã‚‰è²¢çŒ®ã—ã¦ã„る。ブラウザã¨ã„ã†PerlãŒå…¨ã手を出ã›ãªã„ジャンルã®çŽ‹è€…JavaScriptã®æŒã¤è¯ã‚„ã‹ã•ã«èª°ã‚‚ãŒæ†§ã‚Œã€ãã—ã¦æ‰‹å…ƒã®Perlã®å¤ãã•ã•ã«ååãŒå‡ºå§‹ã‚る。ä¸å™¨ç”¨ã§ä¸ç´°å·¥ãªã¨ã“ã‚ã‚‚å«ã‚ã¦æ„›ã—ã¦ã„ãŸå¥³æˆ¿ã¨ã¤ã¤ã¾ã—ãé€ã£ã¦ã„ãŸäººç”Ÿã«ã€çªç„¶ã´ã¡ã´ã¡ã®ãƒœã‚¤ãƒ³å¥³å大生ãŒè»¢ãŒã‚Šè¾¼ã‚“ã§æ¥ãŸã‚ˆã†ãªã‚‚ã®ã§ã‚る。 スマホ/ソーシャルゲームãƒãƒ–ルiPhoneå¸‚å ´ãŒæœ¬æ ¼çš„ã«ç«‹ã¡ä¸ŠãŒã‚Šã€Perlã¨ã¯å…¨ãã®ç„¡é–¢ä¿‚ã§ã‚るスマホ
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ションã®è§£æžã« Getopt::Long を使ã†æ™‚ã€çµ¶å¯¾ã«å¿˜ã‚Œã¦ã¯ã„ã‘ãªã„引数 - ãŸã”ã‚‚ã‚Šã™ãƒ¡ãƒ¢
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ションをparseã—よã†ã¨æ€ã†ã¨çµ„è¾¼ã¿ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã—ã¦ã¯ Getopt::Std 㨠Getopt::Long ãŒã‚る。ãŒã€long style option *1 ã¤ã¾ã‚Š --option-name ã®ã‚ˆã†ãªã‚ªãƒ—ションを解釈ã—ã¦ãれるã®ã¯ Getopt::Long ã ã‘ã 。ãªã®ã§æ™®é€šã¯ã“ã¡ã‚‰ã‚’使ãŠã†ã€‚ ãŸã 㗠絶対ã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã€ã¤ã¾ã‚Šä»¥ä¸‹ã®ã‚ˆã†ã«ã—ã¦ä½¿ã£ã¦ã¯ã„ã‘ãªã„。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); ã“ã‚Œãƒ€ãƒ¡ï¼ çµ¶å¯¾ãƒ€ãƒ¡ï¼ æ»ã¬ï¼ 最åˆã«çµè«–を書ã å¿…ãšä»¥ä¸‹ã®ã‚ˆã†ã«
tips - モãƒã‚¤ãƒ«ã«ã¯é«˜ç”»è³ªã™ãŽã‚‹H.264動画を劣化ゼãƒã§å†ç”Ÿå¯èƒ½ã« : 404 Blog Not Found
2012å¹´09月01æ—¥07:45 カテゴリTipsiTech tips - モãƒã‚¤ãƒ«ã«ã¯é«˜ç”»è³ªã™ãŽã‚‹H.264動画を劣化ゼãƒã§å†ç”Ÿå¯èƒ½ã« å³ã®ã€Œã“ã®ãƒ‡ãƒã‚¤ã‚¹ã§ã¯ã“ã®å‹•ç”»ã¯å†ç”Ÿã§ãã¾ã›ã‚“ã€çŠ¶æ…‹ã‚’ã€ãŸã£ãŸä¸€ãƒã‚¤ãƒˆå¤‰æ›´ã™ã‚‹ã ã‘ã§ç›´ã—ã¾ã™ã€‚ 以下ã®Perl Scriptã§ã€ã“ã†ã™ã‚‹ã ã‘ã§ã™ # デフォルトã§ã¯level 4.1 ã«å¤‰æ›´ % ch264level leveltoohigh.mp4 # level 3.1 ã«å¤‰æ›´ % ch264level -l31 leveltoohigh.mp4 ch264level.pl #!/usr/bin/env perl # # $Id: ch264level.pl,v 0.1 2012/08/31 18:13:16 dankogai Exp dankogai $ # use strict; use warnings; use Getopt::Std; ge
ãªã‚“ã¦ã“ã£ãŸâ€¦CPANモジュールをnode.jsã§å‹•ã‹ã—ã¦ã—ã¾ã†ãƒ©ã‚¤ãƒ–ラリ「node-perl〠- tokuhirom's blog
ãªã‚“ã¦ã“ã£ãŸâ€¦CPANモジュールをnode.jsã§å‹•ã‹ã—ã¦ã—ã¾ã†ãƒ©ã‚¤ãƒ–ラリ「node-perl〠https://github.com/tokuhirom/node-perl/ ã“ã“最近ã€ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžåŒå£«ã®å£ãŒå¾ã€…ã«ç ´å£Šã•ã‚Œã¦ã„ã‚‹æ°—ãŒã—ã¾ã™ã€‚ã‚るプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžä¸Šã§åˆ¥ãªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã‚’å‹•ãよã†ã«ã—ãŸã‚Šã€ç½®ãæ›ãˆã¦ã—ã¾ã£ãŸã‚Šã™ã‚‹ã‚ˆã†ãªé¡žã§ã™ã€‚今回ã¯ãã®ä¸€ã¤ã€CPAN moduleã‚’node.js上ã§å‹•ã‹ã™ã¨ã„ã†ã€ã‹ãªã‚Šç„¡èŒ¶ãªæ°—ãŒã—ãªãã‚‚ãªã„ã€ãã‚“ãªã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢node-perlを紹介ã—ã¾ã™ã€‚ var Perl = require('../index.js').Perl; var perl = new Perl(); perl.use('LWP::UserAgent'); var ua = perl.getClass('LWP::UserAgent').new(); var res
複数ホスト㫠ssh ã—ãªãŒã‚‰ tail -F ã™ã‚‹ã¨ãã«ã¯ã“ã†ã—ãŸã‚‰ã©ã†? - tokuhirom's blog
複数ホスト㫠ssh ã—ãªãŒã‚‰ tail -F ã™ã‚‹ã¨ãã«ã¯ã“ã†ã—ãŸã‚‰ã©ã†? ã„ã‚ã„ã‚方法ãŒã‚ã‚‹ã¨ãŠã‚‚ã†ã®ã§ã™ãŒã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—トã§ã™ã¾ã›ã‚‹ã®ã¯ã©ã†ã§ã—ょã†ã‹? #!/bin/bash function kill_children { # jobs -l | perl -ne 'print "kill $1\n" if /^\S+?\s+(\d+)/' | sh; pkill -P $$; wait; } trap "kill_children" EXIT HOSTS="192.168.1.1 192.168.1.2" for host in $HOSTS do ssh $host tail -F /service/foo/log/main/current & done wait ã¡ã‚‡ã£ã¨ç®‡æ¡æ›¸ãã§è§£èª¬ã™ã‚‹ã¨ä»¥ä¸‹ã®ã‚ˆã†ãªã“ã¨ã‚’ãŠã“ãªã£ã¦ã„ã¾ã™ã€‚ & ã§ãƒãƒƒã‚¯ã‚°ãƒ©ã‚¦ãƒ³ãƒ‰ã‚¸ãƒ§ãƒ–ã‚’ã¯
DBæ“作ツール Emacs DBI を作ã£ã¦ã¿ãŸ - æŠ€è¡“æ—¥è¨˜ï¼ kiwanami
去年ã‹ã‚‰ã»ãã¼ãã¨ä½œã£ã¦ããŸã€Emacsã‹ã‚‰DBã‚’æ“作ã§ãるツール Emacs DBI を紹介ã—ã¾ã™ã€‚ Emacs DBI ã®ç°¡å˜ãªç´¹ä»‹ ã“ã®ãƒ„ールã®ç›®çš„ã¯ã€ã‚¯ãƒã‚¹ãƒ—ラットフォームã§ä¾¿åˆ©ãªDBæ“作環境を実ç¾ã™ã‚‹ã“ã¨ã§ã™ã€‚ pgAdmin ã‚„ MySQL Query Browser ã®ã‚ˆã†ãªGUIã®è‰¯ã•ã‚’CUIã§å®Ÿç¾ã—ã¦ã¿ã‚ˆã†ã¨ã—ã¦ã¿ã¾ã—ãŸã€‚ã™ãªã‚ã¡ã€ã¼ãã®ã‹ã‚“ãŒãˆãŸã•ã„ãょã†ã®DBツールã§ã™ã€‚ã¡ãªã¿ã«ã€ã“ã®ãƒ„ールã«ã¨ã£ã¦Emacsã¯ãŸã ã®å®Ÿè¡Œç’°å¢ƒã§ã™ã€‚Emacs使ã‚ãªã„人ã§ã‚‚使ã†ã¨ä¾¿åˆ©ã ã¨æ€ã„ã¾ã™ã€‚ ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ç”»é¢ e2wmã§3ペインã®ç”»é¢ æ©Ÿèƒ½æ¦‚è¦ ä»¥ä¸‹ã®ã‚ˆã†ãªæ©Ÿèƒ½ãŒã‚ã‚Šã¾ã™ã€‚ Emacsã¨DB接続å¯èƒ½ãªPerlãŒå‹•ã‘ã°ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã§ã‚‚何処ã§ã‚‚å‹•ã DB定義ã€ãƒ†ãƒ¼ãƒ–ル定義ãŒã™ã見れる auto-complete ã«ã‚ˆã‚‹SQL補完 接続先DBã«ã‹ã‚‰ã‚ーワードã€åž‹åã€ãƒ†ãƒ¼ãƒ–ルåã€ã‚«ãƒ©ãƒ åãªã©
ゆーã™ã‘ã¹ãƒ¼æ—¥è¨˜
サã‚ã¨ã¯å½¼å¥³ã®è‡ªå®…è¿‘ãã€æ¹˜å—å°é§…å‰ã®ã‚¹ãƒ¼ãƒ‘ーマーケットã§å¾…ã¡åˆã‚ã›ã‚’ã—ãŸã€‚彼女ã¯è‡ªè»¢è»Šã§å¾Œã‹ã‚‰è¿½ã„ã¤ãã¨è¨€ã„ã€åƒ•ã¯å¤§ããªã‚³ã‚¤ãƒ³ãƒ‘ーã‚ングã¸è»Šã‚’åœã‚ãŸã€‚ç…™è‰ã‚’一本å¸ã£ã¦ã‹ã‚‰ã‚¹ãƒ¼ãƒ‘ーマーケットã¸å‘ã‹ã†ã¨ã€ã²ã£ãã‚Šãªã—ã«ä¸»å©¦çš„ãªå¥³æ€§ã‹ãŠã°ã‚ã¡ã‚ƒã‚“ãŒå…¥ã‚Šå£ã‚’出ãŸã‚Šå…¥ã£ãŸã‚Šã—ã¦ã„ãŸã€‚時刻ã¯åˆå¾Œ5時ã«ãªã‚‹ã€‚時計ã‹ã‚‰ç›®ã‚’上ã’ã‚‹ã¨ã€å¾…ãŸã›ã¡ã‚ƒã£ãŸã‚ãã¨å¤§ã—ã¦æ‚ªã³ã‚Œã¦ãªã„様åã§ã‚µã‚ãŒæ‰‹ã¶ã‚‰ã§ã‚„ã£ã¦ããŸã€‚ ãŠç¤¼ã«æ–™ç†ã‚’作るã¨ã¯ã„ãˆã€ã‚µã‚ã®å®¶ã«ã¯é£ŸæãŒå分足りã¦ã„ãªã„らã—ãã€ã“ã†ã—ã¦ã‚¹ãƒ¼ãƒ‘ーマーケットã«å¯„ã‚‹ã“ã¨ã«ãªã£ãŸã€‚サã‚ã¯é‡Žèœã‚³ãƒ¼ãƒŠãƒ¼ã‹ã‚‰ç²¾è‚‰ã‚³ãƒ¼ãƒŠãƒ¼ã¾ã§ã€ã¾ã‚‹ã§å„ªç§€ãªã‚«ãƒ¼ãƒŠãƒ“ã«å°Žã‹ã‚Œã‚‹ã‚ˆã†ã«ç„¡é§„ãªã点検ã—ã¦ã„ã£ãŸã€‚欲ã—ã„食æãŒã‚ã‚‹ã¨ã€2秒間程度ãれらをå‡è¦–ã—ã€ä¸€åº¦æ‰‹ã«å–ã£ãŸã˜ã‚ƒãŒã„もやら豚肉やらを迷ã†ã“ã¨ãªã僕ãŒæŒã£ã¦ã„ã‚‹ã‚«ã‚´ã«æ”¾ã‚Šè¾¼ã‚“ã 。最後ã«ã‚¢ãƒ«ã‚³ãƒ¼ãƒ«é£²æ–™ãŒå†·ã‚„ã•ã‚Œã¦ã„る棚ã®å‰ã¸è¡Œãã¨ã€ç§ãŒé£²ã‚€ã‹ã‚‰ã¨ãƒ
テã‚ストファイルを処ç†ã™ã‚‹ã¨ãã®Unixコマンドã¾ã¨ã‚ - nokunoã®æ—¥è¨˜
個人的ã«ãƒ†ã‚ストファイルを処ç†ã™ã‚‹ã“ã¨ãŒå¤šã„ã®ã§ã™ãŒï¼Œç°¡å˜ãªå‡¦ç†ãªã‚‰Unixã®ã‚³ãƒžãƒ³ãƒ‰ã‚’パイプã¨ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã§çµ„ã¿åˆã‚ã›ã¦ã§ãã‚‹ã“ã¨ãŒå¤šãã‚ã‚Šã¾ã™ï¼Žä»Šå›žã¯ãã‚“ãªãªã‹ã§ã‚‚ã¡ã‚‡ã£ã¨ãƒžãƒ‹ã‚¢ãƒƒã‚¯ãªTIPSã‚’ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸï¼Ž sortコマンドã§ã‚¿ãƒ–区切りã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’指定ã™ã‚‹æœ€è¿‘知ã£ã¦é©šæ„•ã—ãŸã®ãŒã“れ．sortコマンドã§ã‚¿ãƒ–区切りã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’指定ã—ãŸã„ã¨ãã¯ï¼ŒCtrl+v Tabã§ã‚¿ãƒ–æ–‡å—を入力ã—ã¦ã„ãŸã®ã§ã™ãŒï¼Œ$ sort -t $'\t' -k 2,2 ã®ã‚ˆã†ã«ã—ã¦ã‚¿ãƒ–区切りã§2番目ã®ã‚ーã§ã‚½ãƒ¼ãƒˆã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ï¼Ž 1000è¡ŒãŠãã«ãƒ‡ãƒ¼ã‚¿ã‚’サンプリングã™ã‚‹1000è¡ŒãŠãã«ãƒ•ã‚¡ã‚¤ãƒ«ã‹ã‚‰ãƒ‡ãƒ¼ã‚¿ã‚’サンプリングã—ãŸã„ã¨ãã¨ã‹ã¯ï¼Œperlã§ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’書ãã®ãŒé€Ÿã„よã†ã§ã™ï¼Ž$ perl -ne '$i++; print unless ($i % 1000)' æŸæ‰€ã®ã‚³ãƒ¼ãƒ‰ã‚´ãƒ«ãƒ•ã«ã‚ˆã‚‹ã¨ã“ã‚Œã ã‘çŸãã§ã
Perlã®å‹§ã‚（1） Class::Accessor::Fastを使ãŠã† - エンジニアブãƒã‚° - スカイアーク
onagataniã§ã™ ã“ã‚“ã«ã¡ã‚。 今回ã‹ã‚‰æ•°å›žã«åˆ†ã‘ã¦è‡ªåˆ†ã®ãŠå‹§ã‚ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’紹介ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ 内容ãŒãƒ¢ãƒ€ãƒ³ã˜ã‚ƒãªã„ï¼ã¨æ€ã†æ–¹ã‚‚ã„ã‚‹ã‹ã‚‚ã§ã™ãŒè‡ªåˆ†ã®å¥½ããªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’紹介ã—ã¾ã™ã®ã§æœ€æ–°ã®æŠ€è¡“ãŒçŸ¥ã‚ŠãŸã„æ–¹ã¯è¦‹ãªã„よã†ã«...。 一回目ã¯ã€ŒClass::Accessor::Fastã€ã§ã™ã€‚ ã“ã‚Œã¯ãªã«ã‹ã¨ã„ã†ã¨Perlã§ã‚¢ã‚¯ã‚»ã‚µã‚’自動生æˆã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ãŸã¨ãˆã°ã€ä¸‹è¨˜ã®ã‚ˆã†ãªå ´åˆã«ã¨ã¦ã‚‚便利ã§ã™ã€‚ MyClass.pm package MyClass; use strict; use warnings; sub new { my ($class, $args) = @_; my $self = { address => $args{address}, blog => $args{blog}, }; return bless $self, $class; } sub addr
KyTea (京都テã‚スト解æžãƒ„ールã‚ット)
English 京都テã‚スト解æžãƒ„ールã‚ット(KyTeaã€ã€Œã‚ューティーã€)ã¯ã€æ—¥æœ¬èªžãªã©ã€å˜èªž(ã¾ãŸã¯å½¢æ…‹ç´ )分割を必è¦ã¨ã™ã‚‹è¨€èªžã®ãŸã‚ã®ä¸€èˆ¬çš„ãªãƒ†ã‚スト解æžå™¨ã§ã™ã€‚ 特徴 ダウンãƒãƒ¼ãƒ‰ãƒ»ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ« プãƒã‚°ãƒ©ãƒ 仕様 解æžï¼šæ‰‹æ³•ã®è©³ç´°, 入出力ã®å½¢å¼, API å¦ç¿’：モデルå¦ç¿’, 入手å¯èƒ½ãªãƒ¢ãƒ‡ãƒ« KyTeaを使ã£ãŸåˆ†é‡Žé©å¿œ é–‹ç™ºæƒ…å ± 特徴 KyTeaã«ã¯ä»¥ä¸‹ã®æ©Ÿèƒ½ãŒæƒã£ã¦ã„ã¾ã™ï¼š å˜èªžåˆ†å‰²ï¼šåˆ†ã‹ã¡æ›¸ãã•ã‚Œã¦ã„ãªã„テã‚ストをé©å½“ãªå˜èªžã¾ãŸã¯å½¢æ…‹ç´ ã«åˆ†å‰²ã™ã‚‹ã€‚ èªã¿æŽ¨å®šãƒ»å“詞推定：ã‹ãªæ¼¢å—変æ›ã‚„音声èªè˜ã€éŸ³å£°ç”Ÿæˆã®ãŸã‚ã«å˜èªžã®ç™ºéŸ³ã‚’推定ã™ã‚‹ã“ã¨ãŒã§ãã€å“詞を推定ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚ ç·šå½¢SVMã‚„ãƒã‚¸ã‚¹ãƒ†ã‚£ãƒƒã‚¯å›žå¸°ãªã©ã‚’用ã„ã¦ãã‚Œãžã‚Œã®åˆ†å‰²ç‚¹ã‚„èªã¿ã‚’個別ã«æŽ¨å®šã™ã‚‹ãŸã‚ã€éƒ¨åˆ†çš„ã«ã‚¢ãƒŽãƒ†ãƒ¼ã‚·ãƒ§ãƒ³ã•ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã‚’利用ã—ã¦ãƒ¢ãƒ‡ãƒ«ã‚’å¦ç¿’ã™ã‚‹ã“ã¨ã‚‚å¯èƒ½ã§ã™ã€‚ 分類器ã®å¦ç¿’ã«ã¯LIBLINEARを使用ã—ã¦ã„
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
Perlã§ç´¯ä¹—計算ã®é€Ÿåº¦è¨ˆæ¸¬ã€œäºŒä¹—を計算ã™ã‚‹ãªã‚‰ï¼Ÿã€œ - ã»ã‚“ã¾ã®èµ°ã‚Šæ›¸ã技術メモ
Perlã§äºŒä¹—ã®è¨ˆç®—ã‚’ã™ã‚‹ãªã‚‰ $i ** 2 よりも $i * $i ã®æ–¹ãŒç´„2å€æ—©ã„。 実験 0〜1000000ã¾ã§ã®äºŒä¹—を計算ã™ã‚‹é€Ÿåº¦ ソース pow1.pl（*ã§è¨ˆç®—） #!/usr/bin/perl use strict; for (my $i = 0; $i < 1000000; $i++) { my $p = $i * $i; } pow2.pl（**ã§è¨ˆç®—） #!/usr/bin/perl use strict; for (my $i = 0; $i < 1000000; $i++) { my $p = $i ** 2; } çµæžœ 実行環境ã¯WindowsXP SP2 + Cygwinãªã®ã§ã€å°‘ã—é…ã„ã§ã™ã€‚ $ time ./pow1.pl;time ./pow2.pl real 0m0.394s user 0m0.374s sys 0m0.046s real 0m0.64
Perl 㧠YAML 㨠JSON ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¯”較 - Daio Today
Perl 㧠YAML 㨠JSON ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯æ¯”較 YAML ã‚„ JSON ãŒè»½ã„ï¼é€Ÿã„ï¼ã¨è¨€ã‚ã‚Œã¦ã„ã‚‹ãŒã€ã©ã‚Œãらã„速ã„ã®ã‹ Perl モジュールã§ãƒ™ãƒ³ãƒã—ã¦ã¿ãŸã€‚ ※個人的ã«èˆˆå‘³ãŒã‚ã£ãŸã®ãŒãƒ‡ãƒ¼ã‚¿ã®èªã¿è¾¼ã¿ (Load) ã ã‘ã ã£ãŸã®ã§ã€ãƒ‡ãƒ¼ã‚¿ã®æ›¸ã出㗠(Dump) ã¯ãƒ†ã‚¹ãƒˆã—ã¦ã„ãªã„。 çµæžœçš„ã«ã¯ã€YAML 㨠比ã¹ã¦ JSON ã®æ–¹ãŒ 6å€ã€œ8å€é«˜é€Ÿã€‚ãŸã ã—ã€ã“ã‚Œã¯ãƒ‡ãƒ¼ã‚¿é‡ãŒå°‘ãªã„å ´åˆã§ã€ãƒ‡ãƒ¼ã‚¿é‡ãŒå¤§ãããªã‚‹ã¨ 0.5å€ã€œ0.8å€ ã¨å·®ãŒç¸®ã¾ã£ã¦ã—ã¾ã†ã€‚ ã¾ãŸã€YAML::Syck 㨠JSON::Syck ã§æ¯”ã¹ã‚‹ã¨ã€ãƒ‡ãƒ¼ã‚¿é‡ã«ã‹ã‹ã‚らãšãã®å·®ã¯æ•°ãƒ‘ーセント程度ã«ãªã£ã¦ã—ã¾ã†ã€‚ ã¡ãªã¿ã«ã€Data::Dumper ã§ãƒ€ãƒ³ãƒ—ã—ãŸãƒ‡ãƒ¼ã‚¿ã‚’ eval ã—ãŸã‚‚ã®ã¨ã‚‚比ã¹ã¦ã¿ãŸãŒã€YAML を基準ã«ã™ã‚‹ã¨ eval ã¯ç´„50å€é€Ÿãã€YAML::Syck (㨠JSON::Syck)
Yahoo Web API ã®è¿”り値を JSON ã§å—ã‘å–ã£ã¦ Perl ã§å‡¦ç†ã‚’ã™ã‚‹ - make world
JSON 㯠JavaScript ã§ã®å‡¦ç†ã‚’å‰æã«ã—ãŸã‚‚ã®ãŒå¤šãã€Perl ãªã©ã»ã‹ã®è¨€èªžã§å‡¦ç†ã‚’ã™ã‚‹å ´åˆã®ã‚µãƒ³ãƒ—ルãŒãªã‹ã£ãŸã®ã§ã€è¨˜ã—ã¦ãŠã。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Encode; use JSON; use LWP::UserAgent; use Data::Dumper; use URI::Escape; my $yahoo_app_id = 'your_app_id'; my $agent = 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'; my $apibaseuri = 'http://jlp.yahooapis.jp/KeyphraseService/V1/extract'; my $referrer = 'http
Hadoop Streaming - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
id:naoya:20080511:1210506301 ã®ã‚¨ãƒ³ãƒˆãƒªã®ã‚³ãƒ¡ãƒ³ãƒˆæ¬„㧠kzk ã•ã‚“ã«æ•™ãˆã¦ã„ãŸã ã„㟠Hadoop Streaming を試ã—ã¦ã„ã¾ã™ã€‚ Hadoop ã¯ã‚ªãƒ¼ãƒ—ンソース㮠MapReduce + 分散ファイルシステムã§ã™ã€‚Java ã§ä½œã‚‰ã‚Œã¦ã„ã¾ã™ã€‚Yahoo! Inc ã®ãƒãƒƒã‚¯ã‚¨ãƒ³ãƒ‰ã‚„ã€Facebookã€Amazon.com ãªã©ã§ã‚‚利用ã•ã‚Œã¦ã„ã‚‹ã¨ã®ã“ã¨ã§ã™ã€‚詳ã—ã㯠http://codezine.jp/a/article/aid/2448.aspx (kzk ã•ã‚“ã«ã‚ˆã‚‹é€£è¼‰è¨˜äº‹)ã‚’å‚ç…§ã—ã¦ãã ã•ã„。 Hadoop Streaming 記事ã«ã‚‚ã‚ã‚Šã¾ã™é€šã‚Šã€Hadoop 拡張㮠Hadoop Streaming を使ã†ã¨æ¨™æº–入出力を介ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ を記述ã™ã‚‹ã ã‘ã§ã€Hadoop ã«ã‚ˆã‚‹ MapReduce を利用ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã¤ã¾ã‚Šã€Java 以外
ランã‚ング
ランã‚ング
メンテナンス
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
「Perlã€ã®å•†æ¨™ç™»éŒ²ã«å¯¾ã™ã‚‹ç™»éŒ²ç•°è°ã®ç”³ç«‹ã¦ã«ã¤ã„ã¦
{{#tags}}- {{label}}
{{/tags}}