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

FunnyBunnyDizzy id:FunnyBunnyDizzy

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

${{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ãƒ—ãƒãƒ€ã‚¯ãƒˆã®ã‹ãŸã¡ - YAPC::Asia Tokyo 2013
æœ¬ãƒˆãƒ¼ã‚¯ã§ã¯ã€ç§ãŒé–‹ç™ºã—ã¦ã„ã‚‹Compilerãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ç¾¤(Compiler::Lexer, Compiler::Parser, Compiler::CodeGenerator::LLVM)ã‚’ç”¨ã„ã¦ã€Perlã‚³ãƒ¼ãƒ‰ãŒãƒ–ãƒ©ã‚¦ã‚¶ä¸Šã‚„iOSä¸Šã§å‹•ä½œã™ã‚‹ã€ã“ã‚Œã‹ã‚‰ã®æ–°ã—ã„Perlãƒ—ãƒãƒ€ã‚¯ãƒˆã®ã‹ãŸã¡ã‚’ãŠè¦‹ã›ã§ãã‚Œã°ã¨æ€ã£ã¦ã„ã¾ã™ã€‚ æ™‚é–“ãŒä½™ã‚Œã°ã€ä¸Šè¨˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’é™çš„è§£æžãƒ„ãƒ¼ãƒ«ã¨ã—ã¦åˆ©ç”¨ã—ãŸå ´åˆã«å¾—ã‚‰ã‚Œã‚‹ãƒ¡ãƒªãƒƒãƒˆã«ã¤ã„ã¦ã‚‚ã€ä½œæˆã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’äº¤ãˆãªãŒã‚‰ã”ç´¹ä»‹ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ â€»ã©ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚ã¾ã é–‹ç™ºé€”ä¸ã§ã¯ã‚ã‚Šã¾ã™ãŒã€å½“æ—¥ã¯ã§ãã‚‹ã ã‘å¤šãã®ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’å‹•ã‹ã›ã‚‹ã‚ˆã†ã«ã—ã¦è‡¨ã¿ãŸã„ã¨æ€ã£ã¦ã„ã¾ã™ã€‚
FunnyBunnyDizzy 2013/06/17
ã¡ã‚‡ã€ãƒã‚¤ãƒ†ã‚£ãƒ–ã®iOSã§å‹•ãã‚ˆã†ãªè©±ï¼Ÿæ°—ã«ãªã‚‹

perl

iOS
ãƒªãƒ³ã‚¯
Blogger
Google ã®ã‚¦ã‚§ãƒ–ãƒã‚°å…¬é–‹ãƒ„ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã€ãƒ†ã‚ã‚¹ãƒˆã€å†™çœŸã€å‹•ç”»ã‚’å…±æœ‰ã§ãã¾ã™ã€‚
FunnyBunnyDizzy 2013/05/13
perl
ãƒªãƒ³ã‚¯
ã¿ã‚“ãª Perl ã‚„ã‚ã†ã‚ˆï¼ - ITæˆ¦è¨˜
ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªã‚’èªã‚“ã§ ã“ã‚Œã‹ã‚‰Perlã‚„ã‚ã†ã‹ãªãƒ¼ã¨ã‹æ€ã£ã¦ã‚‹äººã¸ - Yet Another Hackadelic ã“ã‚Œã¯æœ¬å½“ã«ã™ã”ã„ã¨æ€ã„ã¾ã—ãŸ Perl ã‚„ã‚ã†ã‚ˆï¼ ã¿ã‚“ãª Perl ï¼ˆã‚‚ï¼‰ã‚„ã‚ã†ã‚ˆï¼ ã‘ã£ã“ã†ã€ã„ã‚ã‚“ãªãƒ„ãƒ¼ãƒ«ã‚„ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¨ã‹ã£ã¦ Perl ã§æ›¸ã‹ã‚Œã¦ã‚‹ã‚“ã ã‚ˆï¼ ã ã‹ã‚‰ã€ Perl èªã‚ãŸã»ã†ãŒçµ¶å¯¾æ¥½ã—ã„ã‚ˆï¼ ã¨ã„ã†ã‚ã‘ã§ã€ã“ã‚Œã‹ã‚‰ Perl ã‚’å§‹ã‚ã‚‹äººã¯ id:perlcodesample ã•ã‚“ã®è¨˜äº‹ã‚’èªã‚€ã¨ã¨ã¦ã‚‚ã„ã„ã¨æ€ã„ã¾ã™ï¼ ä»¥ä¸‹ã®ã‚¨ãƒ³ãƒˆãƒªãŒè©³ç´°ãªç›®æ¬¡ã¨ãªã£ã¦ã„ã¾ã™ã€‚ Perlé€†å¼•ãè¾žå…¸ - Perlã‚¼ãƒŸ(ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰Perlå…¥é–€)
FunnyBunnyDizzy 2008/04/24
Perl

ãŸã¾ã«èªã‚€
ãƒªãƒ³ã‚¯
Perl ã®æ•°å€¤å¤‰æ›
Last Updated: 2002/03/26 Perl ã§ã€16é€²æ–‡å—åˆ—ã€10é€²æ•´æ•°ã€2é€²æ–‡å—åˆ—ã€ãƒã‚¤ãƒŠãƒªãƒ¼æ–‡å—åˆ—ã®ç›¸äº’å¤‰æ›ã‚’è¡Œã†ãŸã‚ã®ã€ã‚¹ã‚¯ãƒªãƒ—ãƒˆãƒ¡ãƒ¢ã§ã™ã€‚ ç‰¹ã«æ–ã£ã¦ã„ãªã„é™ã‚Šã€Perl 5.001 ä»¥ä¸Šã§å‹•ä½œã—ã¾ã™ã€‚ ç›®æ¬¡ 16é€²æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› 10é€²æ•´æ•°ã‹ã‚‰ã®å¤‰æ› 2é€²æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› ãƒã‚¤ãƒŠãƒªãƒ¼æ–‡å—åˆ—ã‹ã‚‰ã®å¤‰æ› 16é€²æ–‡å—åˆ—â†’10é€²æ•´æ•°ã¸ã®å¤‰æ› hex() é–¢æ•°ã¯ã€16é€²æ–‡å—åˆ—ã‚’æ•´æ•°å€¤ã«ã€æ‰‹è»½ã«å¤‰æ›ã§ãã¾ã™ã€‚ $num10 = hex("4A"); # $num10 ã«ã¯ 74 ãŒå…¥ã‚‹ $num10 = hex("FFFFFF"); # $num10 ã«ã¯ 16777215 ãŒå…¥ã‚‹ ä½™è«‡ã§ã™ãŒã€æ•°å€¤ãƒªãƒ†ãƒ©ãƒ«ä¸ã§ã¯ 0x ã«ç¶šã‘ã¦ 16 é€²æ•°ã§è¨˜è¿°ã™ã‚‹ã“ã¨ã§ã€æ•°å€¤ã‚’è¡¨ã™ã“ã¨ãŒã§ãã¾ã™ã€‚ $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677
FunnyBunnyDizzy 2007/04/05
16é€²æ•°ã€né€²æ•°ã‹ã‚‰10é€²æ•°ã¸ã®å¤‰æ›ã€ãã®é€†

perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
C è¨€èªžã‚’ãƒžã‚¹ã‚¿ãƒ¼ã—ã¦ã„ã‚‹äººã¸ã® perl æ—©è¦‹è¡¨
å¤‰æ•°ã®å®£è¨€ã®å¼·åˆ¶ å¤‰æ•°ã®ã‚¹ã‚³ãƒ¼ãƒ— ãƒ«ãƒ¼ãƒ—ã‹ã‚‰ã®è„±å‡º ãƒ•ã‚¡ã‚¤ãƒ«å…¥å‡ºåŠ› print æ–‡é–¢ä¿‚ å¼•æ•°ã®å–å¾— æ¨™æº–å…¥å‡ºåŠ› ç’°å¢ƒå¤‰æ•°ã®å–å¾— ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã¨ã®å¼•æ•°ã®ã‚„ã‚Šã¨ã‚Š foreach æ–‡ æ–‡å—åˆ—ã®é€£çµ æ–‡å—åˆ—ã®ãƒžãƒƒãƒãƒ³ã‚°ã€æ¯”è¼ƒ æ–‡å—åˆ—ã®ç½®æ› æ–‡å—åˆ—ã®åˆ†è§£ æ–‡å—åˆ—ã®çµ±åˆ æ–‡å—åˆ—ã®å‡¦ç† é…åˆ— 2 æ¬¡å…ƒé…åˆ— æ£è¦è¡¨ç¾ if æ§‹æ–‡ é€£æƒ³é…åˆ— ( ãƒãƒƒã‚·ãƒ¥å¤‰æ•° ) rewind eof find_header int ã¨å‰°ä½™ goto æ–‡ ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã®æ“ä½œ ãƒ•ã‚¡ã‚¤ãƒ«ãƒ†ã‚¹ãƒˆæ¼”ç®—å ç‰¹æ®Šå¤‰æ•° ã‚·ã‚°ãƒŠãƒ«å‡¦ç† ãƒ’ã‚¢ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆ é…åˆ—å…¨ä½“ã«ä½œç”¨ã™ã‚‹ã‚³ãƒžãƒ³ãƒ‰ ã‚½ãƒ¼ãƒˆ çœç•¥å½¢ å…¥å‡ºåŠ›ã®ãƒãƒƒãƒ•ã‚¡ãƒªãƒ³ã‚°ã‚’ã—ãªã„ é…åˆ—ã®è¦ç´ ã®ã‚·ãƒ•ãƒˆ å‡¦ç†å†…å®¹ã‚’ãƒ•ã‚¡ã‚¤ãƒ«ã«è½ã¨ã—ã¦ãƒ¡ãƒ¼ãƒ«ã™ã‚‹ system æ–‡ â—†â—† å¤‰æ•°ã®å®£è¨€ã®å¼·åˆ¶ â—†â—† ãƒ•ã‚¡ã‚¤ãƒ«ã®å…ˆé ã« use strict; ã¨æ›¸ãã¨ã€ãã®ãƒ•ã‚¡ã‚¤ãƒ«ä¸ã®ãƒ¡ã‚¤ãƒ³é–¢æ•°ï¼ˆé–¢æ•°å®£è¨€ãªã—ã« æ›¸ãå§‹ã‚
FunnyBunnyDizzy 2007/04/05
ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

perl

ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - åŠè§’ã‚¹ãƒšãƒ¼ã‚¹ã‚’è‡ªå‹•ã§å…¥ã‚Œã‚‹
2007å¹´01æœˆ15æ—¥05:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - åŠè§’ã‚¹ãƒšãƒ¼ã‚¹ã‚’è‡ªå‹•ã§å…¥ã‚Œã‚‹ æ˜¯éžã¯ã•ã¦ãŠãã€å…¥ã‚Œã‚‹ã®ã§ã‚ã‚Œã°è‡ªå‹•ã§å…¥ã‚ŒãŸã„ã€‚ã¨ã„ã†ã‚ã‘ã§ã“ã¡ã‚‰ã€‚ portal shit! : åŠè§’ã‚¹ãƒšãƒ¼ã‚¹å…¥ã‚Œã¦ã¾ã™ã‹ï¼Ÿ åŠè§’ã‚¹ãƒšãƒ¼ã‚¹å…¥ã‚Œã‚‹ã¹ãã€å…¥ã‚Œãªã„ã¹ãï¼Ÿspacer.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/; binmode STDOUT, ':utf8'; while(<>){ $_ = decode 'utf8', $_
FunnyBunnyDizzy 2007/01/15
tips

perl
ãƒªãƒ³ã‚¯
1