[B! perl] UDONCHANã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

UDONCHAN id:UDONCHAN

perlã«é–¢ã™ã‚‹UDONCHANã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (19)

${{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}}

news - ä¸Šã«ä¸å›½ã®ã‚½ãƒ¼ã‚¹è¡Œå‹•å¼·åˆ¶é–‹ç¤ºã‚ã‚Šã€ä¸‹ã«å¯¾ç–ã‚ã‚Š : 404 Blog Not Found
2009å¹´04æœˆ24æ—¥23:30 ã‚«ãƒ†ã‚´ãƒªNewsLightweight Languages news - ä¸Šã«ä¸å›½ã®ã‚½ãƒ¼ã‚¹è¡Œå‹•å¼·åˆ¶é–‹ç¤ºã‚ã‚Šã€ä¸‹ã«å¯¾ç–ã‚ã‚Š ã‚¬ã‚¯ã‚¬ã‚¯ãƒ–ãƒ«ãƒ–ãƒ«ï¼Ÿ ä¸å›½ã€ï¼©ï¼´ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰å¼·åˆ¶é–‹ç¤ºå¼·è¡Œã¸â€¦å›½éš›å•é¡ŒåŒ–ã®æ‡¸å¿µ : çµŒæ¸ˆãƒ‹ãƒ¥ãƒ¼ã‚¹ : ãƒžãƒãƒ¼ãƒ»çµŒæ¸ˆ : YOMIURI ONLINEï¼ˆèªå£²æ–°èžï¼‰ ç—›ã„ãƒ‹ãƒ¥ãƒ¼ã‚¹(ï¾‰âˆ€`):ä¸å›½ã€ITã€Œã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã€å¼·åˆ¶é–‹ç¤ºå¼·è¡Œã¸â€¦å›½å®¶æ©Ÿå¯†æ¼æ´©ã€çŸ¥è²¡æµå‡ºãªã©å›½éš›å•é¡ŒåŒ–ã®æ‡¸å¿µ æ¬¢è¿Žå…‰ä¸´ã€æ²¡é—®é¢˜ï¼ å½“å±€ã«ã¯ã€ä»¥ä¸‹ã®ä¸‰è¡Œã ã‘æå‡ºã™ã‚Œã°ãŠkã€‚ #!/usr/bin/perl use LWP::Simple; eval get('http://colab v6.dan.co.jp/zh-cn/nihao.pl'); ã‚³ãƒ³ãƒ—ãƒ©ã‚¤ã‚¢ãƒ³ã‚¹ã‚’æº€ãŸã™ã ã‘ã§ã¯ãªãã€ã‚¢ãƒƒãƒ—ãƒ‡ãƒ¼ãƒˆã®é…å¸ƒã¾ã§ä¸è¦ã«ãªã‚‹ã¨ã„ã†ãŠã¾ã‘ä»˜ãï¼ä¸€çŸ³äºŒé³¥ã¨ã¯ã“ã®ã“ã¨ã§ã™ã€‚ãã“ã¾ã§è€ƒãˆãŸä¸Šã§ã®ä¸è¯äººæ°‘
UDONCHAN 2009/04/25
perl

neta
ãƒªãƒ³ã‚¯
perl - Encodeã§XSSã‚’é˜²ã : 404 Blog Not Found
2009å¹´03æœˆ03æ—¥19:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Encodeã§XSSã‚’é˜²ã è‰¯è¨˜äº‹ã€‚ ç¬¬7å›žâ– æ–‡å—ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ãŒç”Ÿã¿å‡ºã™ãœã„å¼±æ€§ã‚’çŸ¥ã‚‹ï¼šITpro ã ã‘ã©ã€å•é¡Œç‚¹ã®ã¿å…·ä½“ä¾‹ãŒã‚ã£ã¦ã€å¯¾ç–ã«ãªã„ã®ãŒç‰‡æ‰‹è½ã¡ã«æ„Ÿã˜ã‚‰ã‚ŒãŸã®ã§ã€ãã®ç‚¹ã‚’è£œè¶³ã€‚ çµè«–ã ã‘è¨€ã£ã¦ã—ã¾ãˆã°ã€Perlãªã‚‰ä»¥ä¸‹ã®åŽŸå‰‡ã‚’å®ˆã‚‹ã ã‘ã§ã™ã€‚ 404 Blog Not Found:perl - Encode å…¥é–€ ã™ã§ã«OSCONã§ã‚‚YAPCã§ã‚‚ã€ã‚ã¡ã“ã¡ãã¡ã“ã¡ã§ã“ã®åŸºæœ¬æ–¹é‡ã«é–¢ã—ã¦ã¯è©±ã—ãŸã®ã§ã™ãŒã€ã“ã“ 404 Blog Not Found ã§ã‚‚æ”¹ã‚ã¦ã€‚ Perl ã§ utf8 åŒ–ã‘ã—ãŸã¨ãã«ã©ã†ã—ãŸã‚‰ã„ã„ã‹ - TokuLog æ”¹ã‚ ã ã¾ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‘ã‚ˆãƒã‚²å…¥ã‚Šå£ã§ decode ã—ã¦ã€å†…éƒ¨ã§ã¯ã™ã¹ã¦ flagged utf8 ã§æ‰±ã„ã€å‡ºå£ã§ encode ã™ã‚‹ã€‚ã“ã‚ŒãŒ
UDONCHAN 2009/03/04
perl

security

xss
ãƒªãƒ³ã‚¯
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
UDONCHAN 2009/03/03
perl

programming
ãƒªãƒ³ã‚¯
HTML::ExtractContent
NAME HTML::ExtractContent - An HTML content extractor with scoring heuristics SYNOPSIS use HTML::ExtractContent; use LWP::UserAgent; my $agent = LWP::UserAgent->new; my $res = $agent->get('http://www.example.com/'); my $extractor = HTML::ExtractContent->new; $extractor->extract($res->decoded_content); print $extractor->as_text; DESCRIPTION HTML::ExtractContent is a module for extracting content fr
UDONCHAN 2009/02/27
ç ”ç©¶

perl
ãƒªãƒ³ã‚¯
HTMLã‹ã‚‰æœ¬æ–‡ã‚’æŠœãå‡ºã›ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«HTML::ExtractContent - perl-mongers.org
This domain may be for sale!
UDONCHAN 2009/02/24
ç ”ç©¶

perl

æœ¬æ–‡æŠ½å‡º
ãƒªãƒ³ã‚¯
ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼è¨˜å·åŒ–ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ãŸ - ã™ãŽã‚ƒãƒ¼ã‚“ãƒ¡ãƒ¢
ä½•ã‹ã®æ‹åã«ã“ã®è¨˜äº‹ã‚’è¦‹ã‹ã‘ã¦ã—ã¾ã„ã€è¡æ’ƒã‚’å—ã‘ãŸã€‚ 2006-11-07 - å…¼é›‘è¨˜ Perlã£ã¦ã“ã‚“ãªå¤‰æ…‹ãƒ—ãƒã‚°ãƒ©ãƒ ãŒæ›¸ã‘ã¦ã—ã¾ã†ã®ã‹â€¦ï¼ï¼ã¨ã€‚ è¨˜å·ã ã‘ã§ãƒ—ãƒã‚°ãƒ©ãƒ ãŒæ›¸ã‘ã¦ã—ã¾ã†ã¨ã¯å…¨ç„¶çŸ¥ã‚‰ãªã‹ã£ãŸã€‚ ä½•åº¦ã‚‚èªã¿è¿”ã—ã¦ã‚ˆã†ã‚„ãç†è§£ã—ãŸç¯„å›²ã§ã¯ã€ æ‹¡å¼µæ£è¦è¡¨ç¾ã®æ§‹æ–‡ã‚’åˆ©ç”¨ã—ã¦ä»»æ„ã®ã‚³ãƒ¼ãƒ‰ã‚’å®Ÿè¡Œã•ã›ã‚‹ æ–‡å—åˆ—ã¯æ–‡å—åˆ—åŒå£«ã®æŽ’ä»–çš„è«–ç†å’Œã‚’ã¨ã‚‹ã“ã¨ã§ç”Ÿæˆã§ãã‚‹ ã¨ã„ã†ã“ã¨ã‚‰ã—ã„ã€‚ ãªã®ã§ã€ã€Œã©ã®æ–‡å—ã¨ã©ã®æ–‡å—ã®æŽ’ä»–çš„è«–ç†å’ŒãŒã©ã®æ–‡å—ã«ãªã‚‹ã‹ã€ã‚’æŠŠæ¡ã—ã¦ã„ã‚Œã°ã€ãã“ã‹ã‚‰æ–‡å—åˆ—ã‚’ç”Ÿæˆã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã‚ã‘ã§ã€è‡ªåˆ†ã§ã‚‚ã“ã†ã—ãŸè¨˜å·ãƒ—ãƒã‚°ãƒ©ãƒ ãŒæ›¸ã‘ã‚‹ã®ã§ã¯ãªã„ã‹ï¼Ÿã¨æ€ã£ã¦ã€ä½œã£ã¦ã¿ãŸã€‚ ä»»æ„ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’è¨˜å·ã§è¡¨ç¾ã—ãªãŠã™ãŸã‚ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã€‚(2/8 ã¡ã‚‡ã£ã¨ä¿®æ£) #!/usr/bin/perl use strict; use warnings; # å¤‰æ›è¾žæ›¸ my $dict = &create_
UDONCHAN 2009/02/06
å¤‰æ…‹

perl
ãƒªãƒ³ã‚¯
ã‚®ã‚¿ãƒ¼ã®ã‚¿ãƒ–èœã‚’ perl ã§ç°¡å˜ã«å‡ºåŠ›ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã£ã¦ã¿ãŸ : ã«ã½ãŸã‚“ç ”ç©¶æ‰€
ä¸€å€‹å‰ã®ã‚¨ãƒ³ãƒˆãƒªã§ã€ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ã®ã‚¦ã‚¯ãƒ¬ãƒ¬è¨˜æ³•ã‚’ã‘ã£ã“ã†ä½¿ã£ã¦ã‚‹ã ãªã‚“ã ã£ã¦è©±ã‚’ã—ã¾ã—ãŸãŒã€ç§ã¯ã©ã¡ã‚‰ã‹ã¨ã„ã†ã¨ã‚¦ã‚¯ãƒ¬ãƒ¬ã¨ã‹å…¨ç„¶å¼¾ã‹ãªãã¦ã€ã‚®ã‚¿ãƒ¼ã°ã£ã‹ã‚Šå¼¾ã„ã¦ãŸã‚Šã™ã‚‹ã®ã§ã€ãªã‚“ã‹ Music::Image::Chord ã¨ã„ã†ã€ãã‚Œã£ã½ã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã£ãŸã®ã§ä½¿ã£ã¦ã¿ãŸã‚‰ã€ä½•ã ã‹è‰²ã€…ã¨æ®‹å¿µãªçµæžœã ã£ãŸãªã‚“ã¦ã¤ã¶ã‚„ãã¾ã—ãŸã€‚ ã§ã€ã‚„ã£ã±ã€ã‚®ã‚¿ãƒ¼ã®ã‚¿ãƒ–èœã‚’å‡ºåŠ›ã™ã‚‹ã®ã¯å¤§å¤‰ã ãªãƒ¼ã£ã¦æ€ã£ã¦ãŸã‚‰ã€ã‚³ãƒ¡ãƒ³ãƒˆæ¬„ã§ã‚ˆã†ã¡ã‚ƒã‚“ã‹ã‚‰ ã‚€ã—ã‚ã€GD::Tab::Ukuleleã‚’æ”¹é€ ã™ã‚‹æ–¹å‘ã§ã©ã†ã§ã—ã‚‡ã†ï¼Ÿ ã¨ææ¡ˆã—ã¦ã‚‚ã‚‰ã£ãŸã®ã§ã€ãã®æ–¹å‘ã§æ¤œè¨Žã—ã¦ã¿ã¾ã—ãŸã€‚ ã¾ãšã€ã‚®ã‚¿ãƒ¼ã®å ´åˆã€ã‚¦ã‚¯ãƒ¬ãƒ¬ã¨é•ã£ã¦å¼¦ãŒ 6 æœ¬ãªã®ã§ã€2 æœ¬è¿½åŠ ã—ã¦ã€ãƒ•ãƒ¬ãƒƒãƒˆã®é•·ã•ã‚’å¤‰ãˆã¾ã—ãŸã€‚ ãã‚Œã«ã¨ã‚‚ãªã„ã€ç”»åƒã®ã‚µã‚¤ã‚ºã¯ã‚¦ã‚¯ãƒ¬ãƒ¬ã®ã‚‚ã®ã‚ˆã‚Šå¤§ããã—ã¾ã—ãŸã€‚ ã‚®ã‚¿ãƒ¼ã«ã¯ã€ãƒŸãƒ¥ãƒ¼ãƒˆå¼¦ã¨ã„ã†æ¦‚å¿µãŒã‚ã£ã¦ã€Œã“ã®å¼¦ã¯éŸ³ã‚’é³´ã‚‰ã•ãªã„ã‚“ã ã‚ˆãƒ¼ã€ãªã‚“ã¦
UDONCHAN 2008/10/25
programing

music

hack

perl

cpan

tab
ãƒªãƒ³ã‚¯
ã¯ã¦ãªã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³ã¨åˆã‚ã¦ã®Perl - public static void main
ã¨ã„ã†ã‚ã‘ã§ã€ç¾åœ¨ã¯ã¦ãªã‚µãƒžãƒ¼ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³ã«å‚åŠ ä¸ã§ã™ã€‚ ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³æœŸé–“ã‚‚åŠåˆ†ãŒéŽãŽã€ã„ã‚ˆã„ã‚ˆä½³å¢ƒã«å…¥ã£ã¦ã„ãã‚ã‘ã§ã‚ã‚Šã¾ã™ãŒã€ã“ã®ã‚¨ãƒ³ãƒˆãƒªã§è©±ã—ãŸã„ã“ã¨ã¯ã€Perlã«ã¤ã„ã¦ã€‚ ã”å˜çŸ¥ã®ã‚ˆã†ã«ã¯ã¦ãªã§ã¯Perlã‚’ä½¿ã£ã¦ã‚µãƒ¼ãƒ“ã‚¹ãŒå®Ÿè£…ã•ã‚Œã¦ã„ã¾ã™ãŒã€ç§ã¯ã“ã®ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³ãŒæ±ºã¾ã‚‹ã¾ã§ã¾ã£ãŸãPerlã‚’è§¦ã£ãŸã“ã¨ãŒãªãã€ãŸã¾ã«è¦‹ã‹ã‘ã‚‹Perlã®ã‚³ãƒ¼ãƒ‰ã‚’è¦‹ã‹ã‘ã¦ã¯ã€$@%ãªã©è¨˜å·ãŒå¤šãã¦ã‚ˆãã‚ã‹ã‚‰ãªã„è¨€èªžã ã¨æ€ã£ã¦ã„ã¾ã—ãŸã€‚ä¸€æ–¹ã§ã€Plaggerãªã©ãŒä»£è¡¨çš„ãªCPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã„ã†ä»–ã®è¨€èªžã«ã¯ãªã„é…åŠ›ãŒã‚ã£ãŸã®ã§å…¼ãã¦ã‹ã‚‰å‹‰å¼·ã—ãŸã‹ã£ãŸè¨€èªžã§ã‚‚ã‚ã‚Šã¾ã™ã€‚ ã‚“ã§ã€ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ³ãŒå§‹ã¾ã£ã¦ã‹ã‚‰2é€±é–“ã€æ¯Žæ—¥ã¨ã„ã†ã‚ã‘ã§ã¯ã‚ã‚Šã¾ã›ã‚“ãŒã€Perlã«è§¦ã‚Œã¦ãã¦ã€ãã‚Œãªã‚Šã«è‡ªåˆ†ã§æ›¸ããŸã„ã‚‚ã®ãŒè¡¨ç¾ã§ãã‚‹ã‚ˆã†ã«ãªã£ã¦ããŸã®ã§ã€ä»Šç¾åœ¨ã®Perlã¸ã®æ„Ÿæƒ³ã«ã¤ã„ã¦ã€‚ å‰æ ç§ã®æ¯å›½èªžã¯Javaã§çµŒé¨“ã¯å¤§ä½“3å¹´ãã‚‰ã„ã€‚ ä½œã£ãŸ
UDONCHAN 2008/08/18
hatena

perl
ãƒªãƒ³ã‚¯
yuno.pl - ã‚†ã®
UDONCHAN 2008/07/13
perl

å¤‰æ…‹
ãƒªãƒ³ã‚¯
Emacsã§Perlé–‹ç™ºã™ã‚‹ä¸Šã§å¿…é ˆãªè¨å®š #2 - flymake
Emacs22ã‹ã‚‰æ¨™æº–æ·»ä»˜ã•ã‚Œã¦ã„ã‚‹flymakeãŒè¶…ä¾¿åˆ©ã§ã™ã€‚flymakeã¯ã€å‹•çš„ã«ã‚·ãƒ³ã‚¿ãƒƒã‚¯ã‚¹ãƒã‚§ãƒƒã‚¯ã‚’è¡Œã£ã¦ãã‚Œã‚‹elispã§ã€typoç‰ã«ã‚ˆã‚‹ãƒŸã‚¹ãŒã€ã“ã‚Œã§ã‹ãªã‚Šæ¸›ã‚‹ã“ã¨å—ã‘åˆã„ã€‚ä»¥ä¸‹ã®è¨å®šã«ã¯ã€set-perl5lib.elãŒå¿…è¦ãªã®ã§ã€ã‚ã‚‰ã‹ã˜ã‚load-pathã®é€šã£ãŸå ´æ‰€ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãŠãå¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ http://svn.coderepos.org/share/lang/elisp/set-perl5lib/set-perl5lib.el ä»¥ä¸‹ã€è¨å®šã€‚ ;; flymake (Emacs22ã‹ã‚‰æ¨™æº–æ·»ä»˜ã•ã‚Œã¦ã„ã‚‹) (require 'flymake) ;; set-perl5lib ;; é–‹ã„ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ãƒ‘ã‚¹ã«å¿œã˜ã¦ã€@INCã«libã‚’è¿½åŠ ã—ã¦ãã‚Œã‚‹ ;; ä»¥ä¸‹ã‹ã‚‰ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹å¿…è¦ã‚ã‚Š ;; http://svn.coderepos.org/share/
UDONCHAN 2008/07/01
emacs

tips

perl
ãƒªãƒ³ã‚¯
æ›´æ–°å±¥æ´å…¼é›‘è¨˜ - Perlè¨˜å·ã‚´ãƒ«ãƒ•ã¨Acme::EyeDrops
ã“ã“ã‹ã‚‰ãŒæœ¬é¡Œã§ã™ã€‚ Perl ã¯é ãŒãŠã‹ã—ã„ã§ã™ã€‚ã™ã”ã™ãŽã‚‹ã€‚ã“ã®æ„Ÿå‹•ã‚’ä¼ãˆãŸã„ã¨æ€ã„ã¾ã™ã€‚ã¾ãš Perl ã®åŸºæœ¬ã‹ã‚‰ã§ã™ã€‚ Hello world! ã‚’æ›¸ãã¾ã—ã‚‡ã†ã€‚ ''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})')ãˆãƒ¼ã¨ã€‚ã“ã®ãã‚‰ã„ã‚ã‹ã‚Šã¾ã™ã‚ˆãã€‚ã“ã‚Œã¯ Hello world ã¨ã„ã†ä¸€ç•ªç°¡å˜ãªãƒ—ãƒã‚°ãƒ©ãƒ ãªã®ã§ã‚ã‹ã‚‰ãªã„äººã¯ã¡ã‚‡ã£ã¨ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ‰èƒ½ãŒç„¡ã„ã§ã™ã€‚å˜˜ã§ã™ãŒã€‚ Perl ã§ã¯è¨˜å·ã ã‘ã§ã¯å‡ºåŠ›ã‚‚ã§ããªã„ã‹ãªã€ã¨ã„ã†ã‚ˆã†ãªè©±ã‚’ã—ã¦ã„ãŸã¨ã“ã‚ã€ Acme::EyeDrops ã®å‡ºåŠ›ã¯è¨˜å·ã ã‘ã§å‡ºåŠ›ã—ã¦ã‚‹ãžã€ã¨ã„ã†ã“ã¨ã§ã—ãŸã€‚ã“ã‚Œã¯è¦‹ãŸã“ã¨ãŒã‚ã£ãŸã®ã§ã™ãŒã€ç¢ºã‹ã«ä»Šè¦‹ã‚‹ã¨è¨˜å·ã ã‘ã§ã™ã€‚ã§ã€ã“ã‚Œã®å‡ºåŠ›ã®æ„å‘³ã‚’ç†è§£ã—ã¦ãŸã‚“ã§ã™ãŒã€ãªã‚“ã¨ã‚‚ã™ã”ã„ã‚‚ã®ã§ã—ãŸã€‚æ›¸ã„ã¦ã‹ã‚‰å¾Œã§ Perl ãƒ¤ãƒã‚¦ã©ã‚‚ã®ã“ã¨ã ã‹ã‚‰æ—¢ã«å¸¸è˜ã
UDONCHAN 2008/06/28
perl

hack

è¨˜å·ã ã‘ã§ãƒ—ãƒã‚°ãƒ©ãƒŸ

å¤‰æ…‹
ãƒªãƒ³ã‚¯
[http://search.cpan.org/perldoc?Web::Scraper:title=Web::Scraper] ã‚’ã¤ã‹ã£ã¦ã¿ãŸ - daily dayflower
ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆããƒ¼ï¼Œã¨æ€ã£ãŸã‚‰ Redirectingâ€¦ ã¿ãŸã„ãªç´ æ•µãªãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ«ãŒã‚ã£ãŸã®ã§ã„ã¾ã•ã‚‰ãªãŒã‚‰ä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚ã‚µãƒ³ãƒ—ãƒ«ç¾¤ã‚‚å‚è€ƒã«ãªã‚Šã¾ã—ãŸã€‚ ã¯ã¦ãƒ–ã®ãƒ›ãƒƒãƒ†ãƒ³ãƒˆãƒªã‹ã‚‰ï¼Œã‚¿ã‚¤ãƒˆãƒ«ï¼ŒURLï¼Œã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ï¼Œã‚¿ã‚°ã‚’æŠœãå‡ºã™ã®ã‚’æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ã‚ã‚Šã¨ç´ ç›´ã«æ›¸ãã¨ã“ã‚“ãªæ„Ÿã˜ï¼Ÿ use strict; use warnings; use Web::Scraper; use Encode (); #binmode \*STDOUT, ':utf8'; my $utf8 = Encode::find_encoding('utf8'); my $target = do { if (@ARGV && ! -f $ARGV[0]) { use URI; URI->new($ARGV[0]); } else { local $_ = do { local $/; <> }; $utf8->de
UDONCHAN 2008/06/28
perl

web

hack

cpan
ãƒªãƒ³ã‚¯
å›³è§£: Perl ã¨ Unicode æ–‡å—åˆ— - daily dayflower
id:tomi-ru ã•ã‚“ãŒ [http://e8y.net/mag/015-encode/:title] ã¨ã„ã†ã¨ã¦ã‚‚ãƒ—ãƒ©ã‚¯ãƒ†ã‚£ã‚«ãƒ«ãª [http://search.cpan.org/perldoc?Encode:title=Encode] å…¥é–€ã‚’ãŠæ›¸ãã«ãªã£ãŸã®ã§ï¼Œã‚ãŸã—ã‚‚é•ã†åˆ‡ã‚Šå£ã§æ›¸ã„ã¦ã¿ãŸããªã‚Šã¾ã—ãŸã€‚ ã„ã¡ãŠã†ã®åŸºç¤Žï¼ˆèªã¿é£›ã°ã—å¯ï¼‰ æ–‡å—ã‚»ãƒƒãƒˆ, ã‚ãƒ£ãƒ©ã‚¯ã‚¿ã‚»ãƒƒãƒˆ, æ–‡å—é›†åˆ, æ–‡å—é›†åˆ - Wikipedia ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°, ç¬¦å·åŒ–æ–¹å¼, æ–‡å—ç¬¦å·åŒ–æ–¹å¼ - Wikipedia ã“ã®2ã¤ã¯ç•°ãªã‚Šã¾ã™ã€‚ã¨ãã«çŸ¥ã‚‰ãªãã¦ã‚‚ä¸‹è¨˜ã®æ–‡æ›¸ã‚’èªã‚€ã“ã¨ã¯ã§ãã¾ã™ãŒï¼Œç†è§£ã—ã¦ã„ã‚‹ã¨ãŸã‚ã«ãªã‚Šã¾ã™ã€‚ãã‚ã—ãçŸ¥ã‚ŠãŸã„äººã¯è‡ªç¿’ã—ã¦ãã ã•ã„ã€‚ æ–‡å—ã‚»ãƒƒãƒˆã®ä¾‹ Unicode JIS X 0208 ã²ã‚‰ãŒãªã¨ã‹ã‚«ã‚¿ã‚«ãƒŠã¨ã‹æ¼¢å—ã¨ã‹ ASCII æ–‡å— ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®ä¾‹ UTF-8 ISO-202
UDONCHAN 2008/06/20
perl

unicode

tips
ãƒªãƒ³ã‚¯
perl -ã€€å‹æ‰‹ã«æ·»å‰Š - Perlå…¥é–€#1@ITPro : 404 Blog Not Found
2008å¹´06æœˆ03æ—¥06:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl -ã€€å‹æ‰‹ã«æ·»å‰Š - Perlå…¥é–€#1@ITPro ã•ã™ãŒã«å‡ºå…¸ãŒæ—¥çµŒLinux 2003å¹´7æœˆå·ã ã‘ã‚ã£ã¦ã€å°‘ã—ãƒˆã‚¦ãŒãŸã£ã¦ã¯ã„ã‚‹ã‘ã©ã€ç¾åœ¨ã§ã‚‚ã‚ãšã‹ãªä¿®æ£ã§ä½¿ãˆã‚‹è¨˜äº‹ã€‚ã•ã™ãŒå·åˆã•ã‚“ã¨ã„ã£ãŸã¨ã“ã‚ã‹ã€‚ ç¬¬1å›žã€€Perlã®æ–‡æ³•ã®åŸºæœ¬ï¼šITpro ã¨ã„ã†ã‚ã‘ã§ã€ã“ã®è¨˜äº‹ã®ã€Œç¾ä»£åŒ–ã€Patchã‚’ã€‚ å…¨èˆ¬ use strict;ã ã‘ã§ã¯ãªãuse warnings;ã‚‚åŠ ãˆã¾ã—ã‚‡ã†ã€‚ ã•ã‚‰ã«ï¼Œèª¿ã¹ã¦ã‚‚åˆ†ã‹ã‚‰ãªã„ã“ã¨ãŒã‚ã‚Œã°ï¼Œãƒ¡ãƒ¼ãƒªãƒ³ã‚°ãƒ»ãƒªã‚¹ãƒˆã‚„ãƒ¦ãƒ¼ã‚¶ãƒ¼ãƒ»ã‚°ãƒ«ãƒ¼ãƒ—ï¼Š2ã«è³ªå•ã—ã¦ã¿ã¦ã‚‚ã‚ˆã„ã§ã—ã‚‡ã†ã€‚ blogã«æ›¸ãã®ã‚‚ã‚¢ãƒªã§ã™ã€‚ã‚ã¨ç§ã¯ä½¿ã£ã¦ã„ãªã„ã‘ã©IRCã¨ã‹ã€‚ ãƒ“ãƒ«ãƒˆã‚¤ãƒ³é–¢æ•°ã¯()ã§ããã‚‰ãªã„æ–¹ãŒè¦–èªæ€§ãŒä¸ŠãŒã‚Šã¾ã™ã€‚ before: chomp($sLine); after: chomp $sLine;
UDONCHAN 2008/06/03
perl
ãƒªãƒ³ã‚¯
MIKU_TALK 0.2.1 ã‚½ãƒ¼ã‚¹(VSQç”Ÿæˆéƒ¨) - äººç”Ÿã¯æ˜¯å‹‰å¦ã®äº‹
UDONCHAN 2008/05/21
miku

perl

nicovideo

æŠ€è¡“

ã“ã‚Œã¯ã™ã”ã„
ãƒªãƒ³ã‚¯
lib/Plagger/Plugin/Filter/Kansai.pm - metacpan.org
UDONCHAN 2008/05/05
é–¢è¥¿å¼

perl
ãƒªãƒ³ã‚¯
Perlé€†å¼•ãè¾žå…¸ - ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚‹ Perl å…¥é–€
Perl â€º here Perlã®é€†å¼•ãè¾žå…¸ã§ã™ã€‚ç™ºå±•çš„ãªè©±é¡Œã‚‚ã“ã¡ã‚‰ã€‚ ç‰¹å¾´ã‚’è§£èª¬ ãƒãƒ¼ã‚¸ãƒ§ãƒ³æƒ…å ± ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ ãƒ—ãƒã‚°ãƒ©ãƒ ã®è‡ªå‹•è©¦é¨“ ã‚½ã‚±ãƒƒãƒˆ ãƒ—ãƒã‚»ã‚¹é–“é€šä¿¡ ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ çµ±è¨ˆãƒ»è§£æž XSå…¥é–€ è¨€èªžå®Ÿè£…ã®ç ”ç©¶ è±†çŸ¥è˜ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åŸºç¤Ž ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ æ—¥ä»˜ãƒ»æ™‚åˆ» æ–‡å—ã‚³ãƒ¼ãƒ‰ ãƒ“ãƒƒãƒˆæ¼”ç®—å Perl â€º here
UDONCHAN 2008/04/25
Perl
ãƒªãƒ³ã‚¯
Perlã§Twitterã®Botã‚’ä½œã£ã¦ã¿ã‚‹ - As a Futurist...
As a Futuristâ€¦ äººã®èˆˆå‘³ã¯å°½ãã‚‹ã“ã¨ãŒãªã„ï¼Žã„ã‚„ï¼Œèˆˆå‘³ã‚’ç„¡ãã—ãŸæ™‚ç‚¹ã§äººã§ç„¡ããªã‚‹ï¼Žæ°¸é ã®ã€ŒçŸ¥ã‚ŠãŸã„ã€ã‚’è¿½æ±‚ã™ã‚‹ãƒ–ãƒã‚°ï¼Ž ã·ã‚ãµãƒï½žã‚‹ ã¯ã¦ãƒ– ãŸã‚“ã¶ã‚‰ï½ž ã¶ã£ãã™ ã«ã“ã«ã“ ã‚Šã•ï½žã¡ åŸºæœ¬æ–¹é‡ å‚è€ƒãƒšãƒ¼ã‚¸ [ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°]åŒ—æµ·é“é–‹ç™ºã‚ªãƒ•ã§Twitter botã‚’ä½œã£ãŸã‚ˆ | ã‚³ãƒžãƒã‚¿å¸³ åŸºæœ¬çš„ã«ã“ã“ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’å‹•ã‹ã™ã“ã¨ã—ã‹ã—ã¦ã¾ã›ã‚“ã€‚ã„ã‚ˆã†ã¤ã•ã‚“ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ã•ã¦ã€Twitterã‹ã‚‰å‘¼ã³ã‹ã‘ã‚’èªã¿è¾¼ã‚€ã«ã¯ã€ŒAPIã€ã€ŒWebãƒšãƒ¼ã‚¸ã€ã€ŒIMã€ã®3é€šã‚ŠãŒã‚ã‚Šã¾ã™ã€‚ APIã¯åˆ¶é™ãŒã†ã–ã„ã€Webãƒšãƒ¼ã‚¸ã¯å¤‰æ›´ã®å¯èƒ½æ€§ãŒã‚ã‚‹ã€ã¨ã„ã†ã“ã¨ã§ã¨ã‚Šã‚ãˆãšIMçµŒç”±ã€‚ ã¤ã¾ã‚Šã€Botã®ã‚¢ã‚«ã‚¦ãƒ³ãƒˆã§IMã‚’ç™»éŒ²ã—ã¦ãŠãã€ãã“ã‹ã‚‰ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’å–å¾—ã™ã‚‹ã“ã¨ã§ ã‚¹ã‚¯ãƒªãƒ—ãƒˆå†…ã«ç™ºè¨€ã‚’ã’ã¨ã—ã¦ã—ã¾ã†æ„Ÿã˜ã§ã™ã€‚ ç¶šã„ã¦BotãŒç™ºè¨€ã™ã‚‹æ–¹ã¯APIã‚’åˆ©ç”¨ã—ã¾ã™ã€‚ã“ã¡ã‚‰ã‚‚IMçµŒç”±ã«ã—ãŸã‚Šã€Webãƒšãƒ¼ã‚¸
UDONCHAN 2008/03/22
perl

bot

twitter
ãƒªãƒ³ã‚¯
iandeth. - Perl/CGIè¾žå…¸ - åœŸäº• æ¯…ã•ã‚“ è‘— - ã«ã¦ use strict ãŒæŽ¨å¥¨ã•ã‚Œã¦ã„ãªã„ä»¶ã«ã¤ã„ã¦
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, ã‚·ã‚¹ãƒ†ãƒ é–‹ç™º - ãã‚“ãªãƒ†ãƒ¼ãƒžã®ã‚µã‚¤ãƒˆdeth. p.32 [å‚è€ƒ] ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã§ã¯ã€å¤‰æ•°å®£è¨€ã¯å®£è¨€ã«å«ã¾ã‚Œã‚‹ã“ã¨ãŒå¤šã„ã§ã™ãŒã€Perlã«ã¯å¤‰æ•°å®£è¨€ã¨ã„ã†æ¦‚å¿µãŒã‚ã‚Šã¾ã›ã‚“ã€‚Perlã¯å¤‰æ•°ãŒæœ€åˆã«è©•ä¾¡ã•ã‚ŒãŸæ™‚ç‚¹ã§é ˜åŸŸã‚’ç¢ºä¿ã—ã¾ã™ã€‚Perlã¨ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã§å¤§ããç•°ãªã‚‹ã®ãŒã“ã®å¤‰æ•°å®£è¨€æ©Ÿèƒ½ã®æœ‰ç„¡ã§ã‚ã‚Šã€è¦‹é€šã—ã®æ‚ªã„è¤‡é›‘ãªã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’æ›¸ã„ã¦ã—ã¾ã†ä¸»å› ã§ã‚‚ã‚ã‚Šã¾ã™ã€‚ æœ€åˆã®ã‚¤ãƒ³ãƒˆãƒãƒ€ã‚¯ã‚·ãƒ§ãƒ³ã®ç« ã§ãã‚“ãªé¢¨ã«æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚ã“ã‚Œã‚’èªã‚“ã ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°åˆå¿ƒè€…ã®äººé”ã¯ãã£ã¨ã€Œãˆã‡ï¼Ÿãã†ãªã®ï¼ŸPerlä½¿ã„ã«ããã†ã ãªã‚ã€ã¨æ€ã£ã¦ã—ã¾ã„ã¾ã™ã‚ˆãã€ãã£ã¨ã€‚ãã—ã¦ã•ã‚‰ã«ã¯ãƒ»ãƒ»ãƒ» p.104 strict ãƒ—ãƒ©ã‚°ãƒžã¯ã€Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã§ã®è¨˜æ³•ã‚’åŽ³å¯†ã«ã™ã‚‹ãŸã‚ã®ãƒ—ãƒ©ã‚°ãƒžã§ã™ã€‚ (ä¸ç•¥
UDONCHAN 2008/03/18
perl
ãƒªãƒ³ã‚¯
1