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

hon53 id:hon53

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

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

Perl ã§ Win32::API ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°å…¥é–€ - ç«¹è¿«ã®è¿‘æ³å ±å‘Š
ActivePerl (Windowsç‰ˆ) ã«ã¯ Win32::API - Perl Win32 API Import Facility - metacpan.org ãŒä»˜å±žã—ã¦ã„ã‚‹ã®ã§ã€ä»Šæ—¥ã‹ã‚‰ã™ãã« Win32::API ã‚’åˆ©ç”¨ã—ãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ãŒå‡ºæ¥ã¾ã™ã€‚ ç°¡å˜ãªãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã‚’è¡¨ç¤ºã™ã‚‹Perlãƒ—ãƒã‚°ãƒ©ãƒ ã¯ä»¥ä¸‹ã«ãªã‚Šã¾ã™ã€‚ #!/usr/bin/perl use Win32::API; my $MessageBox = Win32::API->new("user32", "MessageBoxA", "NPPN", "N"); $MessageBox->Call(0, "Hello, World!\n", "Message", 0); ã“ã®ãƒ—ãƒã‚°ãƒ©ãƒ å®Ÿè¡Œã™ã‚‹ã¨ã€ã€ŒHello, World!ã€ã¨æ›¸ã‹ã‚ŒãŸWindowsãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ãŒè¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ ã“ã‚Œã‚’ Win32::API
hon53 2009/03/24
perl

win32

windows
ãƒªãƒ³ã‚¯
ã‚»ã‚ãƒ¥ã‚¢ãª XS ãƒãƒ¼ãƒ€ãƒ¼ - id:kazuhookuã®ãƒ¡ãƒ¢ç½®ãå ´
perl ã®ãƒ—ãƒã‚»ã‚¹å†…ã§ã‚µãƒ³ãƒ‰ãƒœãƒƒã‚¯ã‚¹ã‚’ä½œã‚ã†ã¨æ€ã†ã¨ã€å°‘ãªãã¨ã‚‚ä»¥ä¸‹ã®ï¼’ç‚¹ãŒå¿…è¦ã§ã™ã€‚ ã‚ªãƒ—ã‚³ãƒ¼ãƒ‰ã®åˆ¶é™ DynaLoader::dl_install_xsub ã‚’åˆ©ç”¨ã—ãŸãƒã‚¤ãƒ†ã‚£ãƒ–ã‚³ãƒ¼ãƒ‰æ³¨å…¥ ã“ã®ã†ã¡ã€ã‚ªãƒ—ã‚³ãƒ¼ãƒ‰ã®åˆ¶é™ã«ã¤ã„ã¦ã¯ã€ops ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§è¡Œã†ã“ã¨ãŒå¯èƒ½ã§ã™ã€‚ä¸€æ–¹ã€DynaLoader::dl_install_xsub é–¢æ•°ã«ã¤ã„ã¦ã¯ã€ã“ã‚Œã‚’å˜ç´”ã«ä½¿ãˆãªãã—ã¦ã—ã¾ã†ã¨ã€XS ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãƒãƒ¼ãƒ‰ã§ããªããªã£ã¦ã—ã¾ã†ã®ã§ã€ä¸€å®šã®æ¡ä»¶ä¸‹ã§ã®ã¿ã€ã“ã‚ŒãŒå®Ÿè¡Œã•ã‚Œã‚‹ã‚ˆã†ãªä»•çµ„ã¿ã‚’ä½œã£ã¦ã‚„ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ ã¨ã„ã†ã‚ã‘ã§ç§æ¡ˆã€‚ã‚¯ãƒãƒ¼ã‚¸ãƒ£ãƒ¼ã‚’ä½¿ã£ã¦ã€ä»¥ä¸‹ã®ã‚ˆã†ãªå½¢ã«ã™ã‚‹ã®ã¯ã©ã†ã§ã—ã‚‡ã†ï¼Ÿ ã€Œstrict::import ã¨ã‹æ›¸ãæ›ãˆã‚‰ã‚Œã¡ã‚ƒã†ã¨ãƒ€ãƒ¡ã˜ã‚ƒãï¼Ÿã€ã¨ã„ã†ã“ã¨ã§æ²¡ãƒã‚¿ã§ã™orz #! /usr/bin/perl use strict; use warnings; use DynaLo
hon53 2009/03/17
perl
ãƒªãƒ³ã‚¯
ã‚¦ã‚§ãƒ–è‡ªå‹•å·¡å›žãƒœãƒƒãƒˆ-bot-ã®ä½œã‚Šæ–¹ for Perlã€€åˆç´šç·¨ - å¾Œã‚ã‚’è¦‹ã‚ã€å¾Œã‚ã‚’ï¼
ãã†ã„ãˆã°æ˜”ã¯ã¦ãªã®äººåŠ›æ¤œç´¢ã§ã€ã‚¢ãƒ³ã‚±ãƒ¼ãƒˆã«botã§è‡ªå‹•å›žç”ã—ã¦ã‚‹å¥´ãŒã„ã‚‹ã¨ã‹å±…ãªã„ã¨ã‹ã§è©±é¡Œã«ãªã£ãŸã“ã¨ãŒã‚ã£ãŸã®ã‚’æ€ã„å‡ºã—ã¦æ›¸ã„ã¦ã¿ãŸã€‚ã¯ã¦ãªã‚¢ã‚¤ãƒ‡ã‚¢ã«ã‚‚ä¸€é€£ã®é–¢é€£ã‚¢ã‚¤ãƒ‡ã‚¢ãŒå‡ºã¦ã„ã‚‹ã€‚ ã¯ã¦ãªã‚¢ã‚¤ãƒ‡ã‚¢ ãã‚‚ãã‚‚ï¼‘å›žç”å½“ãŸã‚Šï¼‘ptã¨ã„ã†ã‚¤ãƒ³ã‚»ãƒ³ãƒ†ã‚£ãƒ–ã®ä½Žã•ã¨ã‹ã€åŒ¿åå›žç”è€…ã®è³ªã®ä½Žã•ã¨ã‹ãã†ã„ã†å•é¡ŒãŒä¸»ã§ã‚ã‚‹æ°—ã‚‚ã™ã‚‹ãŒã€ã“ã‚Œä»¥é™ã¯botã®å•é¡Œã«é™ã£ã¦è¨€ã†ã¨ã€CAPTCHAã¿ãŸã„ãªé€†ãƒãƒ¥ãƒ¼ãƒªãƒ³ã‚°ãƒ†ã‚¹ãƒˆã®å°Žå…¥ã¯ã€çµå±€ã‚¢ã‚¯ã‚»ã‚·ãƒ“ãƒªãƒ†ã‚£ã¨ãƒˆãƒ¬ãƒ¼ãƒ‰ã‚ªãƒ•ã€‚ã‚¤ãƒ³ã‚»ãƒ³ãƒ†ã‚£ãƒ–ãŒå¤‰ã‚ã‚‰ãšä½œæ¥é‡ã ã‘å¢—ãˆã¦ã‚ã‚“ã©ãã•ããªã‚Šã€ã‹ãªã‚Šå›žç”çŽ‡ãŒä¸‹ãŒã‚‹ã¨æ€ã‚ã‚Œã‚‹ã®ã§å¤šåˆ†é€†åŠ¹æžœã ã‚ã†ã€‚ ã‚ã–ã‚ã–ãƒãƒ¥ãƒ¼ãƒªãƒ³ã‚°ãƒ†ã‚¹ãƒˆã‚’ã‹ã¾ã•ãªãã¦ã‚‚ã€é¸æŠžè‚¢ã®ãƒ©ã‚¸ã‚ªãƒœã‚¿ãƒ³ã®éƒ¨åˆ†ã‚’Javascriptï¼ˆæ¬²ã‚’è¨€ãˆã°Flashï¼‰ã«ã™ã‚‹ã ã‘ã§ã€ã‹ãªã‚Šbotã®å›žç”ã‚’å›žé¿ã§ãã‚‹ã¨æ€ã†ã®ã ãŒã€‚å°‘ãªãã¨ã‚‚HTMLã‚’parseã—ã¦è§£æžçµæžœã‚’å…ƒã«requestã‚’è¿”
hon53 2009/03/12
bot

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

oneliner
ãƒªãƒ³ã‚¯
æ›´æ–°å±¥æ´å…¼é›‘è¨˜ - Perlè¨˜å·ã‚´ãƒ«ãƒ•ã¨Acme::EyeDrops
ã“ã“ã‹ã‚‰ãŒæœ¬é¡Œã§ã™ã€‚ Perl ã¯é ãŒãŠã‹ã—ã„ã§ã™ã€‚ã™ã”ã™ãŽã‚‹ã€‚ã“ã®æ„Ÿå‹•ã‚’ä¼ãˆãŸã„ã¨æ€ã„ã¾ã™ã€‚ã¾ãš Perl ã®åŸºæœ¬ã‹ã‚‰ã§ã™ã€‚ Hello world! ã‚’æ›¸ãã¾ã—ã‚‡ã†ã€‚ ''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})')ãˆãƒ¼ã¨ã€‚ã“ã®ãã‚‰ã„ã‚ã‹ã‚Šã¾ã™ã‚ˆãã€‚ã“ã‚Œã¯ Hello world ã¨ã„ã†ä¸€ç•ªç°¡å˜ãªãƒ—ãƒã‚°ãƒ©ãƒ ãªã®ã§ã‚ã‹ã‚‰ãªã„äººã¯ã¡ã‚‡ã£ã¨ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ‰èƒ½ãŒç„¡ã„ã§ã™ã€‚å˜˜ã§ã™ãŒã€‚ Perl ã§ã¯è¨˜å·ã ã‘ã§ã¯å‡ºåŠ›ã‚‚ã§ããªã„ã‹ãªã€ã¨ã„ã†ã‚ˆã†ãªè©±ã‚’ã—ã¦ã„ãŸã¨ã“ã‚ã€ Acme::EyeDrops ã®å‡ºåŠ›ã¯è¨˜å·ã ã‘ã§å‡ºåŠ›ã—ã¦ã‚‹ãžã€ã¨ã„ã†ã“ã¨ã§ã—ãŸã€‚ã“ã‚Œã¯è¦‹ãŸã“ã¨ãŒã‚ã£ãŸã®ã§ã™ãŒã€ç¢ºã‹ã«ä»Šè¦‹ã‚‹ã¨è¨˜å·ã ã‘ã§ã™ã€‚ã§ã€ã“ã‚Œã®å‡ºåŠ›ã®æ„å‘³ã‚’ç†è§£ã—ã¦ãŸã‚“ã§ã™ãŒã€ãªã‚“ã¨ã‚‚ã™ã”ã„ã‚‚ã®ã§ã—ãŸã€‚æ›¸ã„ã¦ã‹ã‚‰å¾Œã§ Perl ãƒ¤ãƒã‚¦ã©ã‚‚ã®ã“ã¨ã ã‹ã‚‰æ—¢ã«å¸¸è˜ã
hon53 2009/02/06
perl
ãƒªãƒ³ã‚¯
Strawberry Perl for Windows
Perl is a programming language suitable for writing simple scripts as well as complex applications â€” see https://www.perl.org. Strawberry Perl is a perl environment for MS Windows containing all you need to run and develop perl applications. It is designed to be as close as possible to perl environment on UNIX systems. It includes perl binaries, compiler (gcc) + related tools, all the external lib
hon53 2009/01/29
perl

windows
ãƒªãƒ³ã‚¯
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); # ãƒžã‚¦
hon53 2009/01/29
win32

perl
ãƒªãƒ³ã‚¯
ãƒã‚¤ãƒŠãƒªãƒ•ã‚¡ã‚¤ãƒ«ã‚’è§£æžã™ã‚‹
Perlã¨ã„ãˆã°ãƒ†ã‚ã‚¹ãƒˆå‡¦ç†ã‚„æ£è¦è¡¨ç¾ãŒå¾—æ„ã§ã€ãƒã‚¤ãƒŠãƒªã‚’æ‰±ã†ã‚ˆã†ãªè©±ã«ã¤ã„ã¦ã¯ã‚ã¾ã‚Šèžã‹ãªã„å°è±¡ãŒã‚ã‚Šã¾ã™ã€‚PerlãŒæŒã¤é–¢æ•°pack/unpackç‰ã§ã‚‚ãƒã‚¤ãƒŠãƒªå‡¦ç†ã¯å¯èƒ½ã§ã™ãŒã€ä»Šå›žã¯Data::ParseBinaryã‚’ä½¿ã£ã¦ãƒã‚¤ãƒŠãƒªãƒ•ã‚¡ã‚¤ãƒ«ã‚’æ°—è»½ã«è§£æžã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ åŸºæœ¬ ãƒ•ã‚¡ã‚¤ãƒ«ã‹ã‚‰ã‚¹ãƒˆãƒªãƒ¼ãƒ ã‚’ä½œã‚‹ è§£æžã—ãŸã„ãƒ•ã‚¡ã‚¤ãƒ«ã‚’Data::ParseBinaryã§æ‰±ãˆã‚‹ã‚¹ãƒˆãƒªãƒ¼ãƒ ã«å¤‰æ›ã—ã¾ã™ã€‚ use Data::ParseBinary; my $stream = CreateStreamReader(File => $file_handle); è§£æžã—ãŸã„æ§‹é€ ã‚’å®šç¾©ã™ã‚‹ Structé–¢æ•°ã§è§£æžã—ãŸã„æ§‹é€ ã‚’å®šç¾©ã—ã¾ã™ã€‚Structä»¥ä¸‹ã«ã¯åŸºæœ¬ãƒ‡ãƒ¼ã‚¿åž‹ã‚„ã‚³ãƒ³ãƒ†ãƒŠåž‹ã€ãƒ“ãƒƒãƒˆ/ãƒã‚¤ãƒˆãƒ‘ãƒ‡ã‚£ãƒ³ã‚°åž‹ã€åˆ¶å¾¡æ§‹æ–‡åž‹ç‰ã‚’ä½¿ç”¨ã§ãã¾ã™ã€‚å„åž‹ã«æŒ‡å®šã—ãŸãƒ©ãƒ™ãƒ«ãŒè§£æžçµæžœã¨ã—ã¦å¾—ã‚‰ã‚Œã‚‹ãƒãƒƒã‚·ãƒ¥ã®ã‚ãƒ¼ã¨ãªã‚Šã¾ã™ã€‚
hon53 2008/12/25
perl

binary
ãƒªãƒ³ã‚¯
Higher-Order Perl
by Mark Jason Dominus Order Higher-Order Perl online from Powell's Books Download full text here There are three versions available. You have your choice of structure or presentation, but not both. License reminder Higher-Order Perl is copyright Â©2005 by Elsevier Inc. Unauthorized reproduction or distribution is absolutely forbidden. You may download the book for your personal use, but you may not
hon53 2008/12/10
perl

ã‚ã¨ã§èªã‚€
ãƒªãƒ³ã‚¯
1