lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ / 2008å¹´12æœˆ18æ—¥

2008-10-15

ç‰¹å®šãƒ¡ã‚½ãƒƒãƒ‰å®Ÿè¡Œæ™‚ã«logã‚’åã‹ã›ãŸã‚Šã—ãŸã„ã®ã§ javascript:jQuery.getScript('http://jquery-aop.googlecode.com/svn/trunk/src/aop.js');void 0; å½“æ—¥ä¿®æ£ jQuery pluginã‚’èªã¿è¾¼ã‚€ã¨ãã¯jQueryã¯èªã¿è¾¼ã¾ã‚Œã¦ã„ã‚‹å‰æãªã‚“ã ã‹ã‚‰ã€ æœ¬ä½“èªã¿è¾¼ã‚€ã¨ãã¿ãŸã„ã«è‰²ã€…ã‚„ã‚‰ãªã„ã§ã€jQuery.getScriptã§ã„ã„ã¨ã„ã†äº‹ã«æ°—ã¥ã„ãŸã€‚ pixivã®ã‚¤ãƒ©ã‚¹ãƒˆã‚’ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã™ã‚‹ã®ã‚’ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯è¿½åŠ ç”»é¢ã«é·ç§»ã›ãšã«è¡Œã„ãŸã„ - æ–‡æ®Šå ‚ã§ã€ ã‚¤ãƒ©ã‚¹ãƒˆè¡¨ç¤ºç”»é¢(http://www.pixiv.net/member_illust.php?mode=medium&illust_id=${illust_id})ã‹ã‚‰ã€ ã‚°ãƒ«ãƒ¼ãƒ—ä¸€è¦§ç”»é¢(http://www.pixiv.net/bookmark_group_

lesamoureuses 2008/12/18

jQueryã¨Array.prototype.callã®è©±ï¼žãªãœã‹$('#mypixiv_list>div[class^=bg_] a',htmlDoc)ã§index:0ã«å…¨ä»¶åˆ†ã®aè¦ç´ ãŒå…¥ã£ãŸjQueryã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãŒè¿”ã£ã¦ãã‚‹ä»¶ã«ã¤ã„ã¦èª¿æŸ»ã—ã¦ã¿ãŸã€‚

ãƒªãƒ³ã‚¯

[jQuery] Re: jQuery + Prototype on newest release (1.2.6)

lesamoureuses 2008/12/18

jQueryãŒeffects.jsã®call()ã®ã›ã„ã§ã‚³ã‚±ã‚‹ã€‚ï¼žThe issue wasn't so much a problem with jQuery as it was with Scriptaculous overwriting the call() method with custom functionality solely in effects.js. The script the implement is seen here:

ãƒªãƒ³ã‚¯

[B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯...

lesamoureuses 2008/12/18

ã¡ã‚‡ã£ã¨ã—ãŸä¾¿åˆ©ãªã‚„ã‚Šæ–¹ã€çŸ¥ã‚‰ãªã‹ã£ãŸæ–¹æ³•ã¨ã‹

metab
tips

ãƒªãƒ³ã‚¯

[B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! video] lesamoureuses...

lesamoureuses 2008/12/18

å‹•ç”»ç³»

metab
video

ãƒªãƒ³ã‚¯

[B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! howto] lesamoureuses...

lesamoureuses 2008/12/18

ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ«ã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«æ–¹æ³•ã€ãƒ—ãƒ©ã‚°ã‚¤ãƒ³ã®ä½œã‚Šæ–¹ãªã©ãªã©

metab
howto

ãƒªãƒ³ã‚¯

[B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ iCalendar ä»•æ§˜ iCalendar ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã®ä½œæˆã«ã¨ã‚Šã‚ãˆãšå½¹ç«‹ã¡ãã†ãªæƒ…å ±ã®æŠœæ›¸ãã€‚ï¼ˆæ£ç¢ºãªä»•æ§˜ã¯ RFC ã«ã‚ãŸã‚‹ã“ã¨ï¼‰ ç›®æ¬¡ ä»•æ§˜æ›¸ å…¨èˆ¬ æ§‹é€ è©³ç´° BEGIN, END VCALENDAR VTIMEZONE VALARM VEVENT ...

lesamoureuses 2008/12/18

è³‡æ–™ç³»

metab
doc

ãƒªãƒ³ã‚¯

[B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ [...

lesamoureuses 2008/12/18

ã‚ã¨ã§èªã‚€ã€ã‚ã¨ã§ä½¿ã†ã€ã‚ã¨ã§â€¦ç”¨

metab
ato

ãƒªãƒ³ã‚¯

Perl ã® map ã¨ grep ã‚’ä½¿ã†

ã™ã—ã‚’å¥¢ã‚‰ãªã‘ã‚Œã°ã„ã‘ãªã„ãªã‚“ã¦ã€ãƒãƒˆãƒ³ã‚’æ¸¡ã•ã‚Œã¦ã‹ã‚‰çŸ¥ã‚Šã¾ã—ãŸã€‚ãŠã„ã—ã„å¯¿å¸ãŒé£Ÿã„ãŸã„ sekimura ã§ã™ã€‚ ä»Šå›žã¯ä½¿ã„ã“ãªã™ã¨æ°—æŒã¡ã‚ˆãã¦ã€ä½¿ã„ã™ãŽã‚‹ã¨æ°—æŒã¡æ‚ªã„ã¨è¨€ã‚ã‚Œã¦ã—ã¾ã† grep ã¨ map ã®ä½¿ã„æ–¹ã«ã¤ã„ã¦ç´¹ä»‹ã—ã¾ã™ã€‚ã“ã®äºŒã¤ã¯æ–‡æ³•ãŒã‚ˆãä¼¼ã¦ã„ã¦ã€åŒæ™‚ã«ä½¿ã‚ã‚Œã‚‹ã“ã¨ã‚‚å¤šã„ã®ã§ä¸€æ°—ã«ä¸¡æ–¹ã®ä½¿ã„æ–¹ã‚’è¦šãˆã‚‹ã®ã‚’ãŠã™ã™ã‚ã—ã¾ã™ã€‚ grep: é…åˆ—ã‚’ãƒ•ã‚£ãƒ«ã‚¿ãƒ¼ã™ã‚‹ ã¾ãšã¯ã€å‰å›žè¦šãˆãŸ perldoc ã‚’ä½¿ã£ã¦ grep ã¨ã¯ãªã«ã‹ã‚’èª¿ã¹ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ $ perldoc -f grep grep BLOCK LIST grep EXPR,LIST This is similar in spirit to, but not the same as, grep(1) and its relatives. In particular, it is not limited to usin

lesamoureuses 2008/12/18

ï¼žãŸã ã—ã€ grep, map ã‚’å˜ã«ãƒ«ãƒ¼ãƒ—å‡¦ç†ã‚’ã™ã‚‹ãŸã‚ã«ã€å·¦è¾ºå€¤ã‚’å—ã‘å–ã‚‰ãšã«ä½¿ã†ã®ã¯ã‚³ãƒ¼ãƒ‰ã‚’èªã‚€äººã‚’æ··ä¹±ã•ã›ã‚‹ã®ã§é¿ã‘ãŸæ–¹ãŒã„ã„ã§ã—ã‚‡ã†ã€‚

ãƒªãƒ³ã‚¯

ãƒ’ã‚¢ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã®ä¸ã§Perlã®å¼ã‚’æ›¸ã

åˆä»£æ–°å¹¹ç·šã€Œ0ç³»ã€æœ€å¾Œã®ãƒ©ã‚¹ãƒˆãƒ©ãƒ³ã®æ—¥ã«ã€æ–°å¹¹ç·šN700ç³»ã®ãžã¿ã§ã‚¤ãƒ¼ãƒ¢ãƒã‚¤ãƒ«ã—ãªãŒã‚‰ã“ã®è¨˜äº‹ã‚’æ›¸ã„ã¦ã„ã‚‹id:TAKESAKOã§ã™ã€‚ Perlã®ãƒ’ã‚¢ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚’ä½¿ã†ã¨è¤‡æ•°è¡Œã«ã‚ãŸã‚‹æ–‡å—åˆ—ã‚’ä¸€æ°—ã«ä»£å…¥ã—ãŸã‚Šã™ã‚‹ã¨ãã«æ¥½ãªã®ã§ã€ä½¿ã£ã¦ã„ã‚‹äººã‚‚å¤šã„ã¨æ€ã„ã¾ã™ã€‚ my $foo = "bar"; my $tmp = time(); # â†é–¢æ•°ã®å®Ÿè¡Œçµæžœ print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF ã—ã‹ã—ã€ãƒ’ã‚¢ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã®é€”ä¸ã§ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®å®Ÿè¡Œçµæžœã‚‚ä¸€ç·’ã«åŸ‹ã‚è¾¼ã¿ãŸã„ã¨ããŒã§ã¦ãã‚‹ã¨ããŒã‚ã‚Šã¾ã™ã€‚ @{[ Perlã®å¼ ]} ãã®ã‚ˆã†ãªã¨ãã¯ã€@{[ ãƒªã‚¹ãƒˆ ]} ã¨ã„ã†ã‚¤ãƒ‡ã‚£ã‚ªãƒ ã‚’ä½¿ã†ã¨éžå¸¸ã«ä¾¿åˆ©ã§ã™ã€‚ print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim

lesamoureuses 2008/12/18

é…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ä½œã£ã¦ãã®é…åˆ—ã‚’è¡¨ç¤ºã™ã‚‹ã®ã‹ãƒ¼ã€‚ã™ã”ã„ãªãƒ¼ã€‚ï¼žãã®ã‚ˆã†ãªã¨ãã¯ã€@{[ ãƒªã‚¹ãƒˆ ]} ã¨ã„ã†ã‚¤ãƒ‡ã‚£ã‚ªãƒ ã‚’ä½¿ã†ã¨éžå¸¸ã«ä¾¿åˆ©ã§ã™ã€‚

ãƒªãƒ³ã‚¯

Win32::GuiTest ã§ Windows ã® GUI ã‚¢ãƒ—ãƒªã‚’ãƒãƒƒã‚¯ã—ã‚ˆã†

åŸºæœ¬çš„ãªæ›¸ãæ–¹ use strict; use warnings; use utf8; # â†‘ Perl ãƒãƒƒã‚«ãƒ¼ã« DIS ã‚‰ã‚Œãªããªã‚‹ãŠã¾ã˜ãªã„ # Win32::GuiTest ã‚’ä½¿ã†ãŠã¾ã˜ãªã„ use Win32::GuiTest qw(:ALL); # æ—¥æœ¬èªžã‚’ä½¿ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ãŠã¾ã˜ãªã„ UnicodeSemantics(1); # ã“ã“ã§ Win32::GuiTest ã‚’ä½¿ã† ãƒžã‚¦ã‚¹ã‚’å‹•ã‹ã™ use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # å°æ•°ç‚¹ã‚‚ã„ã‘ã¡ã‚ƒã† sleep é–¢æ•° use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms å¾…ã¤ sleep(0.01); # ãƒžã‚¦

lesamoureuses 2008/12/18

windowsã®GUIã‚’perlã§è‰²ã€…ã„ã˜ã‚ŠãŸã„ã¨ã

ãƒªãƒ³ã‚¯

éžç ´å£Šãª s/// ã®ã‚¹ã‚¹ãƒ¡

æ£è¦è¡¨ç¾ã®ç½®æ›ã§ã¨ãã©ãå›°ã‚‹ã®ã¯ã€å…ƒã®æ–‡å—åˆ—ãŒå¤‰æ›´ã•ã‚Œã¦ã—ã¾ã†ã“ã¨ã§ã™ã€‚ãã®ãŸã‚ã€ãŸã¨ãˆã°æ–‡å—åˆ—ã‚’ URI escape ã™ã‚‹éš›ã«ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«åˆ¥å¤‰æ•°ã«ã‚³ãƒ”ãƒ¼ã—ãŸä¸Šã§ã€æ£è¦è¡¨ç¾ã‚’é©ç”¨ã™ã‚‹ã“ã¨ã«ãªã‚Šã¾ã™ã€‚ my $escaped = $search_str; $escaped =~ s/([^0-9A-Za-z_.!~*'()-])/'%' . uc(unpack('H2', $1))/eg; my $url = "http://example.com/search?q=$escaped"; ä»¥å‰ã€ã“ã®ç‚¹ãŒã‚ã‚“ã©ãã•ã„ãªãƒ¼ã¨ãƒ–ãƒã‚°ã«æ›¸ã„ãŸã¨ã“ã‚ã€kazeburo ã•ã‚“ä»–ã«ä»¥ä¸‹ã®ã‚ˆã†ãªãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã‚’æ•™ãˆã¦ã„ãŸã ãã¾ã—ãŸã€‚ use List::MoreUtils qw(apply); my $url = 'http://example.com/search?q=' . apply { s/([^

lesamoureuses 2008/12/18

ã‚³ãƒ”ãƒ¼ã™ã‚‹ã¨ãã«å¤‰æ•°ã«å…¥ã‚Œãªã„

ãƒªãƒ³ã‚¯

Carp::Clan ã§ã‚¨ãƒ©ãƒ¼ãƒãƒ³ãƒ‰ãƒªãƒ³ã‚°ã®ã‚¹ã‚¹ãƒ¡

Carp, Carp::Clan ã§å…±é€šã®ã“ã¨ carp å‘¼ã³å‡ºã—å…ƒã®åˆ†ã‹ã‚‹ warn cluck carp + stack backtrace croak å‘¼ã³å‡ºã—å…ƒã®åˆ†ã‹ã‚‹ die confess croak + stack backtrace ä½†ã— Carp ã®å ´åˆã¯ cluck ã‚„ confess ã‚’æ˜Žç¤ºçš„ã«ä½¿ã†ã‚ˆã‚Šã‚‚ã€ $ perl -MCarp=verbose target.pl ã¨ã„ã†ä½¿ã„æ–¹ã§ã‚‚ stacktrace ã‚’å¾—ã‚‹ã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚Carp::Clan ã®å ´åˆã¯ã€ use Carp::Clan; $Carp::Clan::Verbose = 1 if $ENV{DEBUG}; ã®ã‚ˆã†ãªãƒ•ãƒ©ã‚°ã§åˆ¤åˆ¥ã™ã‚‹ã¨è‰¯ã„ã§ã—ã‚‡ã†ã€‚ Carp::Clan ã®ã‚¹ã‚¹ãƒ¡ Carp::Clan ã®å ´åˆã§ã™ã¨ã€ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã¨ãƒ•ã‚¡ã‚¤ãƒ«åã€è¡Œç•ªå·ã ã‘ã§ç„¡ãã€ã©ã® package ã®ã©ã®ã‚µ

lesamoureuses 2008/12/18

ï¼ž$Carp::Clan::Verbose = 1 if $ENV{DEBUG};

ãƒªãƒ³ã‚¯

SQLiteã‚’ä½¿ã£ãŸãƒ†ã‚¹ãƒˆã®tips

DBå‘¨ã‚Šã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é–‹ç™ºã—ã¦ã„ã‚‹å ´åˆã€ãƒ†ã‚¹ãƒˆDBã«SQLiteã‚’ä½¿ã†äº‹ãŒè‰¯ãã‚ã‚Šã¾ã™ã€‚ ãã®éš›ã€æ™®é€šã§ã‚ã‚Œã°ä»¥ä¸‹ã®ã‚ˆã†ãªãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã‚’æ›¸ãã¨æ€ã„ã¾ã™ use Test::More tests => 1; use DBI; do { # SQLiteã§ä½¿ã†ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æŒ‡å®š my $dbh = DBI->connect('dbi:SQLite:./test.db','',''); $dbh->do(q{CREATE TABLE foo (id INT, name TEXT)}); $dbh->do(q{INSERT INTO foo (id, name) VALUES (10,'nekokak')}); my $sth = $dbh->prepare('SELECT * FROM foo'); $sth->execute; my $row = $sth->fetchrow_hashref();

lesamoureuses 2008/12/18

ï¼žSQLiteã§ã¯ãƒ•ã‚¡ã‚¤ãƒ«åã‚’æŒ‡å®šã—ãªã„å ´åˆã€ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä½œã‚‰ãšã‚ªãƒ³ãƒ¡ãƒ¢ãƒªã§å‡¦ç†ã§ãã‚‹ã®ã§ã€ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã‚’æ›¸ãéš›ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’æŒ‡å®šã—ãªã„ã‚ˆã†ã«ã™ã‚‹ã¨è‰¯ã„ã§ã—ã‚‡ã†ã€‚

ãƒªãƒ³ã‚¯

å…¨ã¦ã®ã‚³ãƒ¼ãƒ‰ã«ãƒ†ã‚¹ãƒˆã‚’(æ¨™æº–å…¥åŠ›ä¹—ã£å–ã‚Šç·¨)

ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰æ›¸ãã®ã£ã¦ãƒ”ã‚¿ã‚´ãƒ©è£…ç½®ä½œã‚‹ã¿ãŸã„ã§æ¥½ã—ã„ã§ã™ã‚ˆãã€‚ ã¨ã„ã†ã‚ã‘ã§ã‚ã‚‰ã‚†ã‚‹ã‚³ãƒ¼ãƒ‰ã«ã¯ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã‚’ç”¨æ„ã—ã¦ã‚ã’ãŸã„ï¼ ã‘ã©ãã†ã„ã†ã¨ãã¡ã‚‡ã£ã¨ã‚ã‚“ã©ãã•ã„ã®ãŒã€æ˜”ãªãŒã‚‰ã®CGIã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚„ãƒ¡ãƒ¼ãƒ«ãƒ•ã‚£ãƒ«ã‚¿ãªã©ã®ãƒ•ã‚£ãƒ«ã‚¿ã‚¹ã‚¯ãƒªãƒ—ãƒˆã€è¦ã¯STDINã‹ã‚‰ãƒ‡ãƒ¼ã‚¿ãŒå…¥ã£ã¦ãã‚‹å‰æã®ã‚³ãƒ¼ãƒ‰ã§ã™ã€‚ make testã‚„proveã‹ã‚‰ãƒ†ã‚¹ãƒˆã™ã‚‹å‰æã ã¨æ¨™æº–å…¥åŠ›ã«ä½•ã‚‚æ¸¡ã•ãªã„ã—â€¦ã€ ã¨ã„ã†ã‚ã‘ã§ã“ã‚“ãªã‹ã‚“ã˜ã§ãƒ†ã‚¹ãƒˆã‚’æ›¸ã„ã¦ã¿ã¾ã™ã€‚ { local *STDIN; open STDIN, '<', 't/data1.txt'; my $rv = SomeFilter->run; ok $rv; } { local *STDIN; open STDIN, '<', 't/data2.txt'; my $rv = SomeFilter->run; ok $rv; } å„ãƒ–ãƒãƒƒã‚¯ã®localæ–‡ã«ã‚ˆã‚Šã€å„ã‚¹ã‚¿

lesamoureuses 2008/12/18

ãƒªãƒ³ã‚¯

ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¤ãƒƒãƒã¨ç‰¹æ®Šå¤‰æ•°ã‚’ä½¿ã„ã¾ãã‚‹

ãƒ•ã‚¡ã‚¤ãƒ«ã®å¥‡æ•°è¡Œã ã‘ã‚’è¡¨ç¤ºã—ãŸã„ã¨ã„ã£ãŸã¨ãã«ã€ä¾‹ãˆã°ã©ã‚“ãªã‚³ãƒ¼ãƒ‰ã‚’æ›¸ãã§ã—ã‚‡ã†ã‹ã€‚ ä¾‹ãˆã°ã€ä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ãäº‹ãŒã§ãã¾ã™ã€‚ #!/usr/bin/env perl -w use strict; my $lines = 0; while(<>) { $lines++; print $_ if $lines % 2; } ãŸã ã€ã“ã†ã„ã†å°ã•ã„ç‰©ã«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä½œã‚‹ã®ã‚‚é¢å€’ã§ã™ã—ã€1ãƒ©ã‚¤ãƒŠãƒ¼ã§æ›¸ããŸã„ã¨æ€ã„ã¾ã›ã‚“ã‹ï¼Ÿ Perlã«ã¯æ•°å¤šãã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¤ãƒƒãƒã‚„ç‰¹æ®Šå¤‰æ•°ãŒã‚ã‚Šã€ãã‚Œã‚’ä½¿ã†ã¨ã¨ã¦ã‚‚çŸãæ›¸ãäº‹ãŒã§ãã¾ã™ã€‚ ä¾‹ãˆã°ã€ã“ã®ä¾‹ã§ã¯ä»¥ä¸‹ã®ç‰©ã‚’ä½¿ã†ã¨1ãƒ©ã‚¤ãƒŠãƒ¼ã§æ›¸ã‘ã‚‹ãã‚‰ã„ã®çŸã•ã«ãªã‚Šã¾ã™ã€‚ $. - ç¾åœ¨ã®è¡Œç•ªå· -n - ãƒ—ãƒã‚°ãƒ©ãƒ ã®ãƒ«ãƒ¼ãƒ— ã¾ãš $.ã‚’ä½¿ã£ã¦ã¿ã¾ã—ã‚‡ã†ã€‚lineå¤‰æ•°ãŒä¸è¦ã«ãªã‚‹ã®ã§ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ #!/usr/bin/env perl use strict; wh

lesamoureuses 2008/12/18

ãƒªãƒ³ã‚¯

ãƒ•ã‚¡ã‚¤ãƒ«ãƒ†ã‚¹ãƒˆæ¼”ç®—åã‚’ã¤ã‹ã„ã¾ãã‚‹

_ ã¨ã„ã†ç‰¹æ®Šå¤‰æ•°ãŒã‚ã‚Šã€ã“ã‚Œã¯æœ€å¾Œã«ãƒ†ã‚¹ãƒˆæ¼”ç®—åã«æ¸¡ã—ãŸå¼•æ•°ã‚’ç¤ºã—ã¾ã™ã€‚ ã‚ˆã£ã¦ã€ãƒ•ã‚¡ã‚¤ãƒ«ã§ã‚ã‚Šã‹ã¤ãƒªãƒ¼ãƒ€ãƒ–ãƒ«ã§ã‚ã‚Šã‹ã¤å®Ÿè¡Œå¯èƒ½ã§ã‚ã‚‹ã¨ã„ã†ã‚ˆã†ãªãƒ†ã‚¹ãƒˆã‚’ã—ãŸã„å ´åˆã¯ã€ -f $file && -r $file && -x $file; ã¨ã™ã‚‹ã‹ã‚ã‚Šã«ã€ -f $file && -r _ && -x _; ã¨ã‹ãã“ã¨ãŒã§ãã¾ã™ã€‚ ã¾ãŸã€miyagawaã•ã‚“æƒ…å ±ã«ã‚ˆã‚Œã°ã€perl5.10ã§ã¯ -f -r -x $file; ãªã©ã®ã‚ˆã†ã«æ›¸ãã“ã¨ã‚‚å‡ºæ¥ã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã‚‹ãã†ã§ã™ã€‚ æ¬¡ã¯ dann ã•ã‚“ã€‚

lesamoureuses 2008/12/18

ï¼ž-f $file && -r _ && -x _;

ãƒªãƒ³ã‚¯

my $array_ref = [qw/a b c/]; my $hash_ref = +{1 => 'a', 2 => 'b', 3 => 'c'}; my $code_ref = sub {'a'}; Perlã§ã¯ã€ç„¡åé…åˆ—ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ ç„¡åãƒãƒƒã‚·ãƒ¥ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ç„¡åã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã¯ã“ã®ã‚ˆã†ã«æ›¸ã‘ã¾ã™ãŒã€ç„¡åã‚¹ã‚«ãƒ©ãƒ¼ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’æ›¸ãç‰¹åˆ¥ãªæ§‹æ–‡ã¯ãªã„ã®ã§ã€ä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ãã¾ã™ã€‚ my $scalar_ref = \do {'a'}; ã“ã‚Œã¯Damian Conwayå…ˆç”Ÿã‚ªã‚¹ã‚¹ãƒ¡ã®ã‚¤ãƒ³ã‚µã‚¤ãƒ‰ã‚¢ã‚¦ãƒˆã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ã§è¦‹ã‚‰ã‚Œã‚‹æ›¸ãæ–¹ã§ã™ã€‚ { package Person; my %props = (); sub new { my $class = shift; $prps{name} = 'John'; bless \do{''}, $class; } sub

lesamoureuses 2008/12/18

ï¼žmy $scalar_ref = \do {'a'};

ãƒªãƒ³ã‚¯

åŠ¹çŽ‡çš„ãªå¤‰æ•°å®£è¨€

my %hash=();ã‚ˆã‚Šmy %hash;ã®æ–¹ãŒåŠ¹çŽ‡çš„ã§ã™ã€‚ ã©ã®ãã‚‰ã„åŠ¹çŽ‡çš„ã‹ã¨ã„ã†ã¨: $ perl -MO=Concise -e 'my %hash=()' 7 <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 1 -e:1) v ->3 6 <2> aassign[t2] vKS ->7 - <1> ex-list lK ->4 3 <0> pushmark s ->4 - <0> stub lP ->- - <1> ex-list lK ->6 4 <0> pushmark s ->5 5 <0> padhv[%hash:1,2] lRM*/LVINTRO ->6 $ perl -MO=Concise,-exec -e 'my %hash=()' 1 <0> enter 2 <;> n

lesamoureuses 2008/12/18

ãƒªãƒ³ã‚¯

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

lesamoureuses 2008/12/18

ãƒªãƒ³ã‚¯

$@ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°

ã‚ã¾ã‚Šæ„è˜ã•ã‚Œã¦ã„ã¾ã›ã‚“ãŒã€$@ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã§ã™ã€‚æ°—ã‚’ã¤ã‘ãªã„ã¨ãŠã‹ã—ãªã“ã¨ã«ãªã‚Šã¾ã™ã€‚ä»¥ä¸‹ã®ã‚³ãƒ¼ãƒ‰ã§ã¯die()ã§ä¾‹å¤–ã‚’ç™ºç”Ÿã•ã›ã¦ã„ã‚‹ã®ã§ã€ŒError is Dummy errorã€ã¨è¡¨ç¤ºã•ã‚Œã‚‹ã‚ˆã†ã«è¦‹ãˆã¾ã™ãŒã€è¡¨ç¤ºã•ã‚Œã¾ã›ã‚“ã€‚ package Hoge; sub new { bless {}, shift } sub cleanup { # è‰²ã€…å‡¦ç† } sub DESTROY { my $self = shift; eval { $self->cleanup }; } package main; eval { my $hoge = Hoge->new(); die "Dummy error"; }; if ($@) { print "Error is $@\n"; } else { print "Everything OK!\n"; } evalãŒdie()ã«ã‚ˆã£ã¦çµ‚äº†ã—ã€ã‚¹ã‚³ãƒ¼

lesamoureuses 2008/12/18

ï¼ž$@ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã§ã™ã€‚

ãƒªãƒ³ã‚¯

perldoc ã‚’ä½¿ã„ã“ãªã™

å›½å†…æ»žåœ¨èª¬ãŒæ ¹å¼·ã„ miyagawa ã§ã™ã€‚ã‚¢ãƒ¡ãƒªã‚«åˆè¡†å›½å›½å†…ã¨ã„ã†æ„å‘³ã§ã‚ã‚Œã°ã€ã„ã¤ã‚‚ãã†ãªã‚“ã§ã™ãŒã€‚ ä»Šå›žã¯æ„å¤–ã¨çŸ¥ã‚‰ã‚Œã¦ã„ãªã„ã¨æ€ã‚ã‚Œã‚‹ perldoc ã‚³ãƒžãƒ³ãƒ‰ã®ä½¿ã„æ–¹ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚perldoc ã¯ Perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«å«ã¾ã‚Œã‚‹ POD ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚’æ•´å½¢ã—ã¦ man è¡¨ç¤ºã™ã‚‹ãƒ„ãƒ¼ãƒ«ã§ã€perldoc ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã®ã‚ˆã†ã«ã—ã¦å®Ÿè¡Œã—ã¾ã™ã€‚ % perldoc Web::Scraper -l ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’ã¤ã‘ã‚‹ã¨ãã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã‚ã‚‹ãƒ‘ã‚¹ã€-m ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ POD ã®ä»£ã‚ã‚Šã«ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ãã®ã‚‚ã®ã‚’è¡¨ç¤ºã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ % perldoc -l Web::Scraper /Library/Perl/5.8.6/Web/Scraper.pm # .pm ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ vi ã§é–‹ã % vi `perldoc -l Web::Scraper` # .pm ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ PAGER ã§é–‹

lesamoureuses 2008/12/18

ãŠã‰ã€çŸ¥ã‚‰ãªã‹ã£ãŸï¼ž-f ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã¯ Perl ã®çµ„ã¿è¾¼ã¿é–¢æ•°ã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã‚’è¡¨ç¤ºã—ã¾ã™ã€‚

ãƒªãƒ³ã‚¯

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

ã‚¿ã‚°

2008å¹´12æœˆ18æ—¥ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (21ä»¶)

2008-10-15

[jQuery] Re: jQuery + Prototype on newest release (1.2.6)

[B! tips] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! video] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! howto] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! doc] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

[B! ato] lesamoureusesã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

Perl ã® map ã¨ grep ã‚’ä½¿ã†

ãƒ’ã‚¢ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã®ä¸ã§Perlã®å¼ã‚’æ›¸ã

Win32::GuiTest ã§ Windows ã® GUI ã‚¢ãƒ—ãƒªã‚’ãƒãƒƒã‚¯ã—ã‚ˆã†

éžç ´å£Šãª s/// ã®ã‚¹ã‚¹ãƒ¡

Carp::Clan ã§ã‚¨ãƒ©ãƒ¼ãƒãƒ³ãƒ‰ãƒªãƒ³ã‚°ã®ã‚¹ã‚¹ãƒ¡

SQLiteã‚’ä½¿ã£ãŸãƒ†ã‚¹ãƒˆã®tips

å…¨ã¦ã®ã‚³ãƒ¼ãƒ‰ã«ãƒ†ã‚¹ãƒˆã‚’(æ¨™æº–å…¥åŠ›ä¹—ã£å–ã‚Šç·¨)

ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¤ãƒƒãƒã¨ç‰¹æ®Šå¤‰æ•°ã‚’ä½¿ã„ã¾ãã‚‹

ãƒ•ã‚¡ã‚¤ãƒ«ãƒ†ã‚¹ãƒˆæ¼”ç®—åã‚’ã¤ã‹ã„ã¾ãã‚‹

ç„¡åã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹

åŠ¹çŽ‡çš„ãªå¤‰æ•°å®£è¨€

tokuhirom blog

$@ã¯ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°

perldoc ã‚’ä½¿ã„ã“ãªã™

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´1æœˆç¬¬1é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬4é€±ï¼‰

ã€Œã‚ã¨ã§èªã‚€ã€ã‚¿ã‚°ã§æŒ¯ã‚Šè¿”ã‚‹2024å¹´ ã€œä»Šå¹´ã®ã€Œã‚ã¨ã§èªã‚€ã€ã€ä»Šå¹´ã®ã†ã¡ã«ã€œ

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

ã‚¿ã‚°

2008å¹´12æœˆ18æ—¥ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (21ä»¶)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2025å¹´1æœˆç¬¬1é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚­ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬4é€±ï¼‰

ã€Œã‚ã¨ã§èª­ã‚€ã€ã‚¿ã‚°ã§æŒ¯ã‚Šè¿”ã‚‹2024å¹´ ã€œä»Šå¹´ã®ã€Œã‚ã¨ã§èª­ã‚€ã€ã€ä»Šå¹´ã®ã†ã¡ã«ã€œ

å…¬å¼Twitter

ã‚­ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹

2008å¹´12æœˆ18æ—¥ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (21ä»¶)

ãŠçŸ¥ã‚‰ã›

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2025å¹´1æœˆç¬¬1é€±ï¼‰

ä»Šé€±ã®ã¯ã¦ãªãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯æ•°ãƒ©ãƒ³ã‚ãƒ³ã‚°ï¼ˆ2024å¹´12æœˆç¬¬4é€±ï¼‰

ã€Œã‚ã¨ã§èªã‚€ã€ã‚¿ã‚°ã§æŒ¯ã‚Šè¿”ã‚‹2024å¹´ ã€œä»Šå¹´ã®ã€Œã‚ã¨ã§èªã‚€ã€ã€ä»Šå¹´ã®ã†ã¡ã«ã€œ

å…¬å¼Twitter

ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‚·ãƒ§ãƒ¼ãƒˆã‚«ãƒƒãƒˆä¸€è¦§

å…¬å¼Twitter

ã¯ã¦ãªã®ã‚µãƒ¼ãƒ“ã‚¹