今日もやられやã - FC2 BLOG パスワードèªè¨¼é–²è¦§ã«ã¯ç®¡ç†äººãŒè¨å®šã—ãŸãƒ‘スワードãŒå¿…è¦ã§ã™ã€‚※cookieを有効ã«ã—ã¦ãã ã•ã„。 一度cookieã«ç™»éŒ²ã™ã‚‹ã¨æ¬¡å›žãƒã‚°ã‚¤ãƒ³ãƒ•ã‚©ãƒ¼ãƒ ãŒçœç•¥ã•ã‚Œã¾ã™ã€‚
Path::Class 0.19 ãŒã‚¤ã‚±ã¦ã‚‹ã£ã½ã„件 - tokuhirom's blog
Path::Class 0.19 ãŒã‚¤ã‚±ã¦ã‚‹ã£ã½ã„件 slurp 㧠io layer ãŒæŒ‡å®šã§ãるよã†ã«ãªã£ã¦ã‚‹ my $lines = $file->slurp(iomode => '<:encoding(UTF−8)'); subclassing support ãŒã¯ã„ã£ã¦ã‚‹ã€‚ã„ã¾ã¾ã§ã¯ ã€My::File->new('path/to/file')->dir() ã®çµæžœãŒ Path::Class::Dir ã«ãªã£ã¦ãŸã‘ã©ã€ãã“ã§ã‚µãƒ–クラスを生æˆã§ãるよã†ã«ãªã£ãŸã¨ã„ã†ã“ã¨ã€‚ { package My::Dir; use parent 'Path::Class::Dir'; sub file_class { 'My::File' } # write additional methods here... } { package My::File; use parent 'Path::Cl
Mery's Factory
Mery ã¯ã€ç„¡å„Ÿã®ãƒ†ã‚ストエディタã§ã™ã€‚ Mery(メリー) を使ã£ã¦ã€æ—¥è¨˜ã€æ‹æ–‡ã€æ–°èžè¨˜äº‹ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãªã©ã€ã•ã¾ã–ã¾ãªæ–‡æ›¸ã‚’ç°¡å˜ã«ç·¨é›†ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ Mery ã¯ã€ColdFusionã€HTMLã€Javaã€PHPã€SQL ãªã©ã€æ§˜ã€…ãªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®è‰²åˆ†ã‘表示ãŒå¯èƒ½ã§ã™ã€‚ã•ã‚‰ã«ã€ãƒ¦ãƒ‹ã‚³ãƒ¼ãƒ‰ã«å¯¾å¿œã—ã¦ã„ã¾ã™ã®ã§å¾“æ¥ã®æ–‡å—コードã§ã¯è¡¨ç¾ã§ããªã‹ã£ãŸé›£ã—ã„æ¼¢å—ã‚„ã€å¤šè¨€èªžã®æ··åœ¨ã—ãŸæ–‡æ›¸ã§ã‚‚データãŒå¤±ã‚れるã“ã¨ã¯ã‚ã‚Šã¾ã›ã‚“。 ãã®ä»–ã€ãƒ‡ã‚¹ã‚¯ãƒˆãƒƒãƒ—ã«ã‚¦ã‚£ãƒ³ãƒ‰ã‚¦ãŒæ•£ä¹±ã™ã‚‹ã®ã‚’防ããŸã‚ã®ã‚¿ãƒ–機能ã€ã‚ーボードã®æ“作を記録ã§ãるマクãƒæ©Ÿèƒ½ã€æ–‡æ›¸ã®è¦‹å‡ºã—を階層表示ã™ã‚‹ã‚¢ã‚¦ãƒˆãƒ©ã‚¤ãƒ³æ©Ÿèƒ½ã€å…¥åŠ›ä¸ã®å˜èªžã®å€™è£œã‚’表示ã™ã‚‹å…¥åŠ›è£œå®Œæ©Ÿèƒ½ãªã©ã€æ§˜ã€…ãªæ©Ÿèƒ½ã‚’ç°¡å˜ã«ä½¿ç”¨ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ â— ç°¡å˜ãƒ»ä¾¿åˆ© ã‚„ã‚„ã“ã—ã„機能ã€ä¸€éƒ¨ã®äººã—ã‹ä½¿ç”¨ã—ãªã„機能を徹底的ã«æŽ’除ã™ã‚‹ã“ã¨ã§åˆå¿ƒè€…ã§ã‚‚ç°¡å˜ã«ä¾¿åˆ©ã«ä½¿ã„ã“ãªã™ã“ã¨ãŒå¯
ã‚¯ãƒƒã‚¯ãƒ‘ãƒƒãƒ‰æ ªå¼ä¼šç¤¾ ã«è¡Œã£ã¦ããŸï¼ - 941::blog
ã‚ãŸã— アイï¼ãƒžã‚¤ï¼ã¾ã„ã‚“ï¼ ã¯ã‚Šãã£ã¦ãƒžã‚¤ãƒšãƒ¼ã‚¹ï½žã£ã¨ãらã。 ã¯ã‚ーã€ãã—ã„ã§ã™ã€‚ãšã£ã¨ãã€ã€Œã‚¯ãƒƒã‚¯ãƒ‘ッド行ããŸã„ï¼ã€ã£ã¦ãŠæ˜Ÿæ§˜ã« ãŠé¡˜ã„ã‚’ã—ã¦ã„ãŸã‚“ã§ã™ã‚ˆã€‚ãã—ãŸã‚‰å‘¼ã‚“ã§ã„ãŸã ã‘ã¾ã—ã¦ã。ã‚ã‚ŠãŒãŸã„ï¼ ã‚¯ãƒƒã‚¯ãƒ‘ãƒƒãƒ‰æ ªå¼ä¼šç¤¾ã¯ã€30代女性ã®3人ã«1人ãŒåˆ©ç”¨ã™ã‚‹æ—¥æœ¬æœ€å¤§ã®æ–™ç†ã‚µã‚¤ãƒˆ 「クックパッドã€ã‚’é‹å–¶ã—ã¦ã„る会社ã•ã‚“。イマドã‚ã”å˜ã˜ãªã„人ã¯ã„ãªã„㨠æ€ã„ã¾ã™ã‘ã©ã€çŸ¥ã‚‰ã‚“ï¼ã¦ã„ã†æ–¹ã¯ã“ã®æ©Ÿä¼šã«æ˜¯éžã€‚ 詳ã—ãã¯ã“ã¡ã‚‰ã€‚ クックパッドã„ã†ãŸã‚‰ä¼šç¤¾ã®ã‚¨ãƒ¬ãƒ™ãƒ¼ã‚¿ãƒ¼ã§20å°å‰åŠã£ã½ã„OLã•ã‚“㌠「クックパッドã£ã¦ã„ã†ã‚µã‚¤ãƒˆçŸ¥ã£ã¦ã‚‹ï¼Ÿã€ 「ã‚ã€çŸ¥ã£ã¦ã‚‹ãƒ¼ã€‚よã見るー〠「ãーãªã‚“ã ー。昨日ツナã¨ãƒˆãƒžãƒˆã®ãƒ‘スタ作ã£ã¦ã¿ãŸã‚‰è¶…ãŠã„ã—ã‹ã£ãŸãƒ¼ã€ 「ã¸ãƒ¼ã€ãƒ‘スタãŠã„ã—ã„よãー〠「ãªã‚“ã ã‘ã©ã€æ¬²å¼µã£ã¦ãƒ„ナ缶２ã¤å…¥ã‚ŒãŸã‚‰å‘³è–„ããªã£ã¡ã‚ƒã£ãŸï½—ｗ〠「ã‚ãŸã—も作ã£ã¦ã¿ã‚ˆãƒ¼ã£ã¨ã€ ã¨ã‹ã€æ™®æ®µã®ä¼šè©±ã§è¨€ã£ã¦ã„ã¦ä½•ã‹
ç°¡å˜ï¼ãŸã£ãŸï¼•è¡Œã®ã‚³ãƒ¼ãƒ‰ã§Twitterã«æŠ•ç¨¿ã™ã‚‹Perlスクリプト - DQNEOèµ·æ¥æ—¥è¨˜
Net::Twitter::Liteを使ã†ã¨ã“ã‚“ãªã«ã‚«ãƒ³ã‚¿ãƒ³ï¼ï¼ ã»ã‚“ã¨ã«ï¼•è¡Œã®ã‚³ãƒ¼ãƒ‰ã§ã¤ã¶ã‚„ã‘ã¦ã—ã¾ã„ã¾ã—ãŸã€‚ #!/usr/bin/perl use Net::Twitter::Lite; use utf8; my $nt = Net::Twitter::Lite->new(username => 'DQNEO', password => 'hoge'); my $result = eval { $nt->update('ã¤ã„ã£ãŸãƒ¼ï¼ï¼') }; warn "$@\n" if $@; Net::Twitter::Lite　ãƒãƒ³ã‚¶ã‚¤ï¼ï¼
ç°¡å˜ï¼ãŸã£ãŸï¼‘３行ã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–得＆解æžã‚’ã™ã‚‹Perlスクリプト - DQNEOèµ·æ¥æ—¥è¨˜
１３行ã®ã‚³ãƒ¼ãƒ‰ã§ã€Yahoo!Japanã®ãƒˆãƒ”ックス一覧をå–å¾—ã™ã‚‹ï¼ Perlã§HTMLå–得・解æžã—ãŸã„ã¨ãã¯LWP::UserAgentã¨HTML::TreeBuilderã¨ã„ã†ã®ã‚’使ã†ã¨ç°¡å˜ã«ã§ãã¾ã™ã€‚ LWP::UserAgentを使ã†ã¨ã€Webページã®å–å¾—ãŒã§ãã¾ã™ã€‚ HTML::TreeBuilderを使ã†ã¨ã€HTMLã®DOM解æžãŒã§ãã¾ã™ã€‚ ã“ã®ï¼’ã¤ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã£ã¦ã€Yahoo!Japanã®ãƒˆãƒ”ックス一覧をå–å¾—ã—ã¦ã¿ã¾ã—ょã†ã€‚ コメント行ã¨ç©ºè¡Œã‚’除ãã¨ãŸã£ãŸã®ï¼‘３行ã§ã™ã€‚ use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlを指定ã™ã‚‹ my $url = 'http://www.yahoo.co.jp'; # IE8ã®ãƒ•ãƒªã‚’ã™ã‚‹ my $user_agent = "Mozilla
ランã‚ング
ãŠçŸ¥ã‚‰ã›
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}