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

bull2 id:bull2

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

${{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å…¥é–€ã‚¼ãƒŸ
Perl â€º ã‚ˆãä½¿ã†é–¢æ•°ãƒ»ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« ã‚ˆãä½¿ç”¨ã™ã‚‹é–¢æ•°ãƒ»æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä¸€è¦§ã§ã™ã€‚ã“ã‚Œã‚‰ã®é–¢æ•°ã‚’è¦šãˆã¦ãŠã‘ã°ã€Perlã‚’ã‚ˆã‚Šä¾¿åˆ©ãªã‚‚ã®ã«ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚è©³ç´°ãªè§£èª¬ã¯é¿ã‘ã€ç°¡å˜ãªã‚µãƒ³ãƒ—ãƒ«ã‚’ç´¹ä»‹ã—ã¦ã„ã¾ã™ã€‚æˆ»ã‚Šå€¤ã®ã‚ã‚‹ã‚‚ã®ã«ã¤ã„ã¦ã¯$retã¨ã„ã†è¨˜å·ã§è¡¨ã—ã¦ã„ã¾ã™ã€‚ ã¾ãŸã€ã‚ˆãä½¿ç”¨ã™ã‚‹ç‰¹æ®Šå¤‰æ•°ã€æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¤ã„ã¦ã‚‚ã€è§£èª¬ã—ã¦ã„ã¾ã™ã€‚å„é …ç›®ã‹ã‚‰ã€é–¢æ•°ã®è©³ç´°ã«ã‚‚ãƒªãƒ³ã‚¯ã—ã¦ã„ã¾ã™ã®ã§ã€ä¾¿åˆ©ã«ã”åˆ©ç”¨ãã ã•ã„ã€‚ æ•°å¦é–¢æ•° æ–‡å—åˆ—æ“ä½œ é…åˆ—æ“ä½œ ãƒãƒƒã‚·ãƒ¥æ“ä½œ ãƒ•ã‚¡ã‚¤ãƒ«å…¥å‡ºåŠ› ãƒ•ã‚¡ã‚¤ãƒ«ãƒ»ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªæ“ä½œ æ™‚åˆ»ãƒ»æ™‚é–“ ãã®ä»–ã®é‡è¦ãªé–¢æ•° é–¢æ•°ã¨ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã®èª¿ã¹æ–¹ ã‚ˆãä½¿ç”¨ã™ã‚‹ç‰¹æ®Šå¤‰æ•° ã‚ˆãä½¿ç”¨ã™ã‚‹æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« æ•°å¦é–¢æ•° abs çµ¶å¯¾å€¤ã‚’æ±‚ã‚ã‚‹ã«ã¯absé–¢æ•°ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ $ret = abs $num; abs(-3)ã¯3ã«ãªã‚Šã¾ã™ã€‚ sqrt æ£ã®å¹³æ–¹æ ¹ã‚’æ±‚ã‚ã‚‹ã«ã¯ã€sqrté–¢æ•°ã‚’
bull2 2009/09/07
perl
ãƒªãƒ³ã‚¯
perl - use encoding; #ã¯é»’æ´å² : 404 Blog Not Found
2009å¹´06æœˆ08æ—¥14:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - use encoding; #ã¯é»’æ´å² ãŽã‚ƒã‚ãã lengthé–¢æ•°ã§æ–‡å—åˆ—ã®é•·ã•ã‚’æ±‚ã‚ã‚‹ - perlåˆå¿ƒè€…BLOG - Hatena::Group::Perl æ—¥æœ¬èªžã®æ–‡å—æ•°ã‚’æ£ç¢ºã«æ±‚ã‚ãŸã„å ´åˆã€use encodingã‚’æŒ‡å®šã™ã‚‹ use encoding;ã¯ã€jperlãªã©ã€ã‹ã¤ã¦å˜åœ¨ã—ãŸL10Nã•ã‚ŒãŸperlç”¨ã«æ›¸ã‹ã‚ŒãŸãƒ¬ã‚¬ã‚·ãƒ¼ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã€ãƒ¢ãƒ€ãƒ³perlã§å‹•ã‹ã™ã¨ãã®ãŸã‚ã®ãŠã¾ã˜ãªã„ã§ã™ã€‚ã“ã†ã„ã†ç›®çš„ã§åˆ©ç”¨ã™ã¹ãã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ ã“ã®ã‚ãŸã‚Šã®ã“ã¨ã¯ã€ä»¥å‰ 404 Blog Not Found:perl - no encoding; # whenever possible ã§ã‚‚æ›¸ã„ãŸã®ã§ã™ãŒã€å¤§äº‹ãªã“ã¨ãªã®ã§ã¾ãŸæ›¸ãã¾ã™ã€‚ ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¯UTF-8ã§æ›¸ãã€use utf8;ã™ã‚‹ ã®ãŒãƒ¢
bull2 2009/06/08
perl
ãƒªãƒ³ã‚¯
ã„ã‚„ãªãƒ–ãƒã‚° - æ–‡å—åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨: Ruby, Python, JavaScript, P...
æ–‡å—åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨: Ruby, Python, JavaScript, Perl, C++ Ruby, Python, JavaScript, Perl, C++ ã®æ–‡å—åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨ã‚’ä½œã‚Šã¾ã—ãŸã€‚é…åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨ã®ç¶šç·¨ã§ã™ã€‚é–“é•ã„ãªã©ãŒã‚ã£ãŸã‚‰ã”æŒ‡æ‘˜ã„ãŸã ã‘ã‚‹ã¨åŠ©ã‹ã‚Šã¾ã™ã€‚ Ruby (String) Python (str) JavaScript (String) Perl C++ (std::string)
bull2 2009/05/08
perl

python

ruby

script

LL
ãƒªãƒ³ã‚¯
æ±šã„ãªã•ã™ãŒPerlããŸãªã„ - firewood's diary
Shibuya.pm #11ã€Œno Perl; use x86;ã€é‘‘è³žã—ã¦ããŸã€‚ å¸¸ã€…Perlã¯LLã˜ã‚ƒãªã„ã‚“ã˜ã‚ƒãªã„ã‹ã¨æ€ã£ã¦ã„ãŸã®ã ãŒã€LLã®çš®ã‚’ã‹ã¶ã£ãŸã‚¢ã‚»ãƒ³ãƒ–ãƒ©ã§ã‚ã‚‹ã“ã¨ã‚’å†ç¢ºèªã—ãŸã®ã§ã‚ã£ãŸã€‚ 1. catcher in the int 80h; inside lleval FreeBSD::i386::Ptraceã®å®Ÿè£…ã«ã¤ã„ã¦ã€‚ pt_to_sce()ã§systemcallã‚’å®Ÿè¡Œç›´å‰ã«ãƒ•ãƒƒã‚¯ã§ãã‚‹ã€‚ã‚¹ã‚¿ãƒƒã‚¯ã«ç©ã¾ã‚ŒãŸå¼•æ•°ã‚’æ›¸ãæ›ãˆã‚‹ã“ã¨ãŒã§ãã‚‹ã®ã§ã€å®Ÿè¡Œã—ãŸããªã„ã‚ªãƒšãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ã§ã‚ã‚Œã°SEGVã§æ»ã¬ã‚ˆã†ãªå¼•æ•°ã«æ›¸ãæ›ãˆã‚‹ã“ã¨ã§sandboxã‚’å®Ÿç¾ã€‚ forkã¯å¼•æ•°ãŒãªã„ã®ã ãŒã€EIPã‚’0ã«å¤‰æ›´ã™ã‚‹ã“ã¨ã¯ã§ãã‚‹ã®ã§ã€ãã‚Œã§æ®ºã™ã€‚ã‚¢ãƒ‰ãƒ¬ã‚¹0ã«mmapã•ã‚Œã‚‹ã¨SEGVã§æ»ãªãªããªã£ã¦ã—ã¾ã†ã®ã§ãã‚Œã‚‚æŠ‘æ¢ã™ã‚‹ã€‚ 2. Perl sandbox for Linux fork() sys
bull2 2009/04/23
perl

LL
ãƒªãƒ³ã‚¯
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
bull2 2009/03/24
ã¨ã£ã¦ã‚‚ä¾¿åˆ©

perl

windows

binary
ãƒªãƒ³ã‚¯
perl ã‹ã‚‰ä»»æ„ã® C ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚’å‘¼ã³å‡ºã™æ–¹æ³• - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
syscall ã£ã¦çµ„è¾¼é–¢æ•°ã§ã‚·ã‚¹ãƒ†ãƒ ã‚³ãƒ¼ãƒ«ã¯ã§ãã¾ã™ã‘ã©ã€libc ã‚„ãã®ä»–ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã®é–¢æ•°ã‚’å‘¼ã³ãŸã„ã€ã£ã¦ã“ã¨ã‚‚ã‚ã‚Šã¾ã™ã‚ˆãã€‚i386 ã‹ã¤ dlopen ãªç’°å¢ƒãªã‚‰ã€ã“ã‚“ãªé¢¨ã«æ›¸ã‘ã¾ã™ã€‚ use DynaLoader; use ops; sub ccall { my $r = '1111'; my $s = "\x68" . pack("L", $_[5]) . "\x68" . pack("L", $_[4]) . "\x68" . pack("L", $_[3]) . "\x68" . pack("L", $_[2]) . "\x68" . pack("L", $_[1]) . "\xb8" . pack("L", ("Dyna"."Loader")->can("dl_find_symbol")->(("Dyna"."Loader")->can("dl_load_file")->
bull2 2009/03/13
c

binary

perl
ãƒªãƒ³ã‚¯
å¼¾ã•ã‚“ã®perlã‚’å®Ÿè¡Œã™ã‚‹APIã§ãŠæ°—æ¥½ãƒãƒƒã‚¯ã™ã‚‹ - edry(ãˆã©ã‚Šãƒ)ã®ç²‹ç‹‚
2009å¹´3æœˆ11æ—¥ 17:49 404 Blog Not Found:Ajax - perlã‚’å®Ÿè¡Œã™ã‚‹API ã„ã‚ã„ã‚è©¦ã—ã¦ã¿ã¦ãã ã•ã„ã€‚ /etc/passwd è¦‹ã‚Œã¡ã‚ƒã£ãŸã€‚ # $FreeBSD: src/etc/master.passwd,v 1.40 2005/06/06 20:19:56 brooks Exp $ ä½•ãŒå•é¡Œãªã®ã‹æ›¸ã„ãŸæ–¹ãŒã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ã®å‚è€ƒã«ã¯ãªã‚‹ã‘ã©ã€ã¾ãšã¯ãƒ¡ãƒ¼ãƒ«ã§ãŠçŸ¥ã‚‰ã›ã—ã¦ãŠãã¾ã™ã€‚
bull2 2009/03/13
ã©ã†ã›chroot or jailã•ã‚Œã¦ã‚‹æ‚ªå¯’

perl
ãƒªãƒ³ã‚¯
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); # ãƒžã‚¦
bull2 2008/12/12
æ¥½ã—ãã†ã€‚ã§ã‚‚è‡ªå‹•åŒ–ã¯power shellã‚’ä½¿ã£ã¦å®Ÿå‹•ä½œã‚’ã‚ãƒ£ãƒ—ãƒãƒ£ã—ãŸæ–¹ãŒæ—©ãã†

windows

perl
ãƒªãƒ³ã‚¯
ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ–‡å—ã‚³ãƒ¼ãƒ‰ã«UTF-8ã‚’ä½¿ç”¨ã™ã‚‹
ã“ã‚Œã§ Perl ã®ãƒ—ãƒã‚°ãƒ©ãƒ ãŒ UTF-8 ã‚’ä½¿ã£ã¦è¨˜è¿°ã•ã‚Œã¦ã„ã‚‹ã“ã¨ã‚’å®£è¨€ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ãƒ†ã‚ã‚¹ãƒˆã‚¨ãƒ‡ã‚£ã‚¿ãªã©ã§ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’è¨˜è¿°ã—ãŸæ™‚ã«ã€æ–‡å—ã‚³ãƒ¼ãƒ‰ã‚’ UTF-8 ã‚’æŒ‡å®šã—ã¦ä¿å˜ã—ã¦ä¸‹ã•ã„ã€‚ ãŸã ã— Windows ç’°å¢ƒã®å ´åˆã§ã‚ã‚Œã°ã€ä½•ã‹ã‚ãƒ¼ãƒœãƒ¼ãƒ‰ã‹ã‚‰æ–‡å—ã‚’å…¥åŠ›ã—ãŸã‚Šã€ç”»é¢ã«å‡ºåŠ›ã™ã‚‹æ™‚ã«ã¯ Shift_JIS ã‚’ä½¿ç”¨ã™ã‚‹ãŸã‚åˆã‚ã›ã¦æ¬¡ã®è¨å®šãŒå¿…è¦ã¨ãªã‚Šã¾ã™ã€‚
bull2 2008/05/13
perl

æ–‡å—ã‚³ãƒ¼ãƒ‰
ãƒªãƒ³ã‚¯
Unicode - ä¼¼ãŸæ–‡å—åŒå£«ã«ã”ç”¨å¿ƒ : 404 Blog Not Found
2008å¹´05æœˆ02æ—¥04:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages Unicode - ä¼¼ãŸæ–‡å—åŒå£«ã«ã”ç”¨å¿ƒ å¾Œè€…ã¯ãƒã‚¤ãƒ•ãƒ³ã§ãªãã¦ãƒžã‚¤ãƒŠã‚¹è¨˜å·ã§ã‚“ãŒãªã€‚ [ã‚’] UTF-8 ã®å…¨è§’ãƒã‚¤ãƒ•ãƒ³ãŒ Perl ã®æ£è¦è¡¨ç¾ã«ãƒžãƒƒãƒã—ãªãã¦æ‚©ã‚“ã ã§ã€å…ƒã®ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã®å…¨è§’ãƒã‚¤ãƒ•ãƒ³ã‚’ã€Œod -t x1ã€ ã§è¦‹ã¦ã¿ã‚‹ã¨ã€Œef bc 8dã€ã¨ã€Œe2 88 92ã€ã®ï¼’ç¨®é¡žãŒæ··ã˜ã£ã¦ã„ã¾ã—ãŸã€‚ å‰è€…ã¯ã€Œ\p{Hyphen}ã€ã«ãƒžãƒƒãƒã™ã‚‹ã®ã§ã™ãŒå¾Œè€…ã¯ãƒ€ãƒ¡ã€‚ ã¾ã‚åŽŸå› ã¯åˆ†ã‹ã£ãŸã®ã§ã€å‰å‡¦ç†ã§ãƒã‚¤ãƒŠãƒªç½®æ›ã—ã¦è§£æ±ºã—ã¾ã—ãŸã€‚ ã§ã€ç´›ã‚‰ã‚ã—ãã†ãªã®ã‚’åå‰ã®HYPHENã¨MINUS SIGNã§grepã™ã‚‹ã¨ã“ã‚“ãªæ„Ÿã˜ã«ãªã‚‹ã€‚ egrep '(HYPHEN|MINUS SIGN)' /usr/local/lib/perl5/5.10.0/unicore/Name.pl -002DHYPHEN-MI
bull2 2008/05/02
æ–‡å—ã‚³ãƒ¼ãƒ‰

utf8

perl

unicode

utf-8
ãƒªãƒ³ã‚¯
https://labs.cybozu.co.jp/blog/kazuho/archives/2008/04/filter-sql.php
bull2 2008/04/16
SQLãŒå«Œã„ãªäººãŒå¤šã„ã®ã¯ä½•æ•…ã ã‚ã†ï¼Ÿ

perl

sql
ãƒªãƒ³ã‚¯
mixi Engineersâ€™ Blog Â» è¨€èªžãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã‚’æ›¸ã“ã†
ä¸–ç”°è°·ã®æŸæ‰€ã‹ã‚‰åŽŸå®¿ã¾ã§è‡ªè»¢è»Šé€šå‹¤ã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€ãã‚ãã‚å¯’ããªã£ã¦ããŸã®ã§é›»è»Šã«åˆ‡ã‚Šæ›¿ãˆã‚ˆã†ã‹ã¨æ‚©ã¿ä¸ã®mikioã§ã™ã€‚ä»Šå›žã¯Tokyo Cabinetã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆè¨€èªžãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã«ã¤ã„ã¦è¿°ã¹ã¾ã™ã€‚ ã‚¹ã‚¯ãƒªãƒ—ãƒˆè¨€èªžãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°ã¨ã¯ TCã¯Cè¨€èªžã§å®Ÿè£…ã•ã‚ŒãŸãƒ©ã‚¤ãƒ–ãƒ©ãƒªã§ã€Cè¨€èªžï¼ˆC89ã€C99ï¼‰ãŠã‚ˆã³C++è¨€èªžã®ãƒ—ãƒã‚°ãƒ©ãƒ ã‹ã‚‰åˆ©ç”¨ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚Cã‚„C++ã¯å„ç¨®ã®è¨ˆç®—å‡¦ç†ã‚„ã‚·ã‚¹ãƒ†ãƒ ã‚³ãƒ¼ãƒ«ã®å‘¼ã³å‡ºã—ã‚’ç›´æŽ¥çš„ã«è¨˜è¿°ã§ãã‚‹ã®ã§é«˜é€Ÿã«å‹•ä½œã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ä½œã‚‹ã“ã¨ãŒã§ãã‚‹åé¢ã€ãƒã‚¤ãƒ³ã‚¿æ¼”ç®—ã‚„ãƒ¡ãƒ¢ãƒªç®¡ç†ãªã©ã§è‡´å‘½çš„ãªãƒã‚°ã‚’æ½œã¾ã›ã‚„ã™ã„ã®ã§éžå¸¸ã«æ³¨æ„æ·±ãã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã‚’é€²ã‚ãªã‘ã‚Œã°ã„ã‘ã¾ã›ã‚“ã€‚ã¤ã¾ã‚Šã€ãƒ—ãƒã‚°ãƒ©ãƒ ã®å®Ÿè¡Œé€Ÿåº¦ã¯é€Ÿã„ãŒã€é–‹ç™ºé€Ÿåº¦ã¯é…ã„ã¨ã„ã†ã“ã¨ã§ã™ã€‚ ãã‚Œã«å¯¾ã—ã¦ã€Perlã‚„Rubyã‚’ã¯ã˜ã‚ã¨ã™ã‚‹ã„ã‚ã‚†ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆè¨€èªžã¯ã€å®Ÿè¡Œé€Ÿåº¦ã¯Cã‚„C++ã«åŠ£ã‚‹ã‚‚ã®ã®ã€é«˜æ°´æº–ã‹ã¤ç›´æ„Ÿçš„ãªæ–‡æ³•ã¨å¼·åŠ›ãª
bull2 2007/11/09
binding

programming

perl

ruby
ãƒªãƒ³ã‚¯
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
bull2 2007/11/08
autoboxã‚µã‚¤ã‚³ãƒ¼

perl

autobox
ãƒªãƒ³ã‚¯
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
bull2 2007/11/08
ã“ã®è¨˜äº‹ã§ç´¹ä»‹ã—ã¦ã„ã‚‹autoboxã€ç§ã¯æ£ã«ã“ã‚Œã‚’æ±‚ã‚ã¦ã„ãŸã€‚æ¨™æº–ã§ä½¿ãˆãŸã‚‰ã‚µã‚¤ã‚³ãƒ¼ãªã®ã«ãªãã€‚

perl

autobox
ãƒªãƒ³ã‚¯
404 Blog Not Found:perl - Module::Compile ã§ Self::Compile
2007å¹´11æœˆ04æ—¥16:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - Module::Compile ã§ Self::Compile PERL HACKS(æ—¥æœ¬èªžç‰ˆ) [è‹±èªžç‰ˆ] ã“ã†ã„ã†ã‚‚ã®ã“ãã€Module::Compile self-0.11ãªã‚‹ã‚‚ã®ã‚’è§¦ã£ã¦ã¿ãŸ - Unknown::Programming ãªã‚“ã¨ã¾ã‚æ‚²æƒ¨ãªçµæžœã«ãªã‚Šã¾ã—ãŸã€‚ä»–ã‹ã ã‹1000ãƒ«ãƒ¼ãƒ—ã§ã‚³ãƒ¬ã§ã¯ã¡ã‚‡ã£ã¨ä½¿ã„ç‰©ã«ãªã‚‰ãªã„ã‹ãªããƒ»ãƒ»ãƒ»ã€‚#!/usr/local/bin/perl use strict; use warnings; use Foo; my $f = Foo->new(); $f->foo("bar"); print $f->foo; Foo.pm package Foo; use strict; use warnings; sub new { bless {}, s
bull2 2007/11/07
perl
ãƒªãƒ³ã‚¯
404 Blog Not Found:ç´¹ä»‹ - ä¸€ã¤ã®ãƒ•ã‚¡ã‚¤ãƒ«ã§perl,javascript,HTMLãã—ã¦GIF
2007å¹´11æœˆ05æ—¥23:30 ã‚«ãƒ†ã‚´ãƒªLightweight Languages ç´¹ä»‹ - ä¸€ã¤ã®ãƒ•ã‚¡ã‚¤ãƒ«ã§perl,javascript,HTMLãã—ã¦GIF takesako['www']++; TAKESAKO @ Yet another Cybozu Labs: Real UNIX MAGAZINE Day ãƒ©ã‚¤ãƒˆãƒ‹ãƒ³ã‚°ãƒˆãƒ¼ã‚¯ è‹¥è¼©è€…ãªãŒã‚‰ã€æ˜¨ä»Šã®Ajaxã®æŠ€è¡“ã®GIF89aï¼ˆãƒãƒƒã‚¯ï¼‰ã«ã¤ã„ã¦ newtype ã¨ oldtype ã®è©±ã‚’äº¤ãˆãªãŒã‚‰ã€ãƒ©ã‚¤ãƒˆãƒ‹ãƒ³ã‚°ãƒˆãƒ¼ã‚¯ã•ã›ã¦ã„ãŸã ãã¾ã—ãŸã€‚ã“ã‚ŒãŒã€å•é¡Œã®ã‚½ãƒ¼ã‚¹ã€‚ã¡ã‚‡ã£ã¨ã ã‘æ”¹å¤‰ã—ã¦ã‚ã‚Šã¾ã™ã€‚ä»¥ä¸‹ã®ãƒªãƒ³ã‚¯ã‚’è¿½ã£ã¦ãŠè©¦ã—ã‚ã‚Œã€‚ polyglot.(html|gif|pl) GIF89a(q=/*=);sub GIF89a{ print "Hello, Perl!"} __END__#*/1);function GIF89a(){ale
bull2 2007/11/07
javascript

perl

gif

ãƒã‚¿
ãƒªãƒ³ã‚¯
Part1 æ£ã—ã„Perl/CGIã®æ›¸ãæ–¹ï¼šITpro
Shibuya Perl Mongers 2ä»£ç›®ãƒªãƒ¼ãƒ€ãƒ¼ã«ã—ã¦ï¼Œppencodeã®ä½œè€…ã€‚åºƒå³¶å¸‚ç«‹å¤§å¦å’æ¥å¾Œï¼Œå¤§ä¼æ¥å‘ã‘mod_perlè£½å“ã®é–‹ç™ºã«å¾“äº‹ã€‚2005å¹´ã‚ˆã‚Šã‚µã‚¤ãƒœã‚¦ã‚ºãƒ»ãƒ©ãƒœæ ªå¼ä¼šç¤¾ã«å…¥ç¤¾ã€‚LL Ringã«å‚æˆ¦ã€‚Namazu for Win32ï¼ŒPlaggerï¼ŒAjajaã®ã‚³ãƒŸãƒƒã‚¿ãƒ¼ã§ã‚‚ã‚ã‚‹ã€‚ CGIã¨ã„ãˆã°Perlã€‚ãã‚“ãªé¢¨ã«ã„ã‚ã‚Œã¦ã„ãŸæ™‚æœŸã‚‚ã‚ã‚Šã¾ã—ãŸã€‚ãƒ¬ãƒ³ã‚¿ãƒ«ãƒ»ã‚µãƒ¼ãƒãƒ¼ã®CGIã§æ‰‹è»½ã«PerlãŒä½¿ãˆãŸã“ã¨ã‚‚ã‚ã‚Šï¼Œã¡ã‚‡ã£ã¨ã—ãŸæŽ²ç¤ºæ¿ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚„ã‚¢ã‚¯ã‚»ã‚¹ãƒ»ã‚«ã‚¦ãƒ³ã‚¿ãªã©ï¼ŒCGIãƒ—ãƒã‚°ãƒ©ãƒ ã®å¤šããŒPerlã§æ›¸ã‹ã‚Œã¦ã„ã¾ã—ãŸã€‚ã“ã®ãŸã‚PerlãŒçˆ†ç™ºçš„ã«æ™®åŠã—ãŸã®ã§ã™ã€‚Perlã¯æ—¥æœ¬ã®ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆé»Žæ˜ŽæœŸã‚’æ”¯ãˆãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã¨ã—ã¦ï¼Œåºƒããã®åãŒçŸ¥ã‚‰ã‚Œã¦ã„ã¾ã™ã€‚ ãã®åŠé¢ï¼ŒPerlã§æ›¸ã‹ã‚ŒãŸãƒ—ãƒã‚°ãƒ©ãƒ ã®ä¿å®ˆæ€§ã«æ‚©ã‚€å£°ã‚‚èžã‹ã‚Œã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚äº‹å®Ÿï¼ŒPerlã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°çµŒé¨“ãŒå°‘
bull2 2007/10/22
perl

é–‹ç™º
ãƒªãƒ³ã‚¯
Perlã§ãƒ—ãƒ©ã‚¬ãƒ–ãƒ«ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã‚ã†ï¼ï¼šç¬¬2å›žã€€attributeã‚’ä½¿ã£ã¦pluginä½œæˆã‚’æ”¯æ´ã™ã‚‹ï½œgihyo.jp â€¦ æŠ€è¡“è©•è«–ç¤¾
ä»Šå›žã®ãƒ†ãƒ¼ãƒž ä»Šå›žã¯ã€Perlã®attributeã¨ã„ã†ä»•çµ„ã¿ã®è©³ç´°ã¨ã€ãã®attributeã‚’åˆ©ç”¨ã—ãŸClass::Componentã®pluginã«ã¤ã„ã¦ã®è§£èª¬ã€pluginã®ä½œæˆæ–¹æ³•ã¨ã„ã£ãŸè©±é¡Œã‚’å–ã‚Šä¸Šã’ã¾ã™ã€‚ ã‚µãƒ³ãƒ—ãƒ«ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ æœ¬é€£è¼‰ã§ã¯ã€ãƒ—ãƒ©ã‚¬ãƒ–ãƒ«ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œè£½ã™ã‚‹ã¨ã„ã†äº‹ã‚’è€ƒãˆã¦ã€Gopperã¨ã„ã†å®Ÿéš›ã«å®Ÿè¡Œå¯èƒ½ãªã‚µãƒ³ãƒ—ãƒ«ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’å…ƒã«è§£èª¬ã‚’è¡Œãªã„ã¾ã™ã€‚Gopperã¯CodeReposä¸Šã®svnãƒªãƒã‚¸ãƒˆãƒªã«ç½®ã„ã¦ã‚ã‚‹ã®ã§å„è‡ªcheckoutã—ã¦ãã ã•ã„ã€‚ svn co -r 455 http://svn.coderepos.org/share/lang/perl/Gopper/trunk Gopper attributeã¨ã¯ attributeã¨ã¯ã€Perlã®ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã‚„å¤‰æ•°ã«å±žæ€§ã‚’å®šç¾©ã—ã¦ã€ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³ã¨ã—ã¦ã®æŒ™å‹•ã‚’æ¨™æº–ã‹ã‚‰å¤‰æ›´ã—ãŸã‚Šã€ã©ã®ã‚ˆã†ãªã‚µãƒ–ãƒ«ãƒ¼
bull2 2007/10/22
sub hoge : lvalue { return shift->{fuga}; }ã¨æ›¸ãã¨ã€ãƒ¡ã‚½ãƒƒãƒ‰ã‚’å·¦è¾ºå€¤ã«æ›¸ã‘ã‚‹ã€‚ã¸ã‡ã¸ã‡ã€‚

perl
ãƒªãƒ³ã‚¯
https://labs.cybozu.co.jp/blog/kazuho/archives/2007/07/perl_ndes_regex.php
bull2 2007/07/18
ãã†ã‹ã€&ã§subroutineã‚’æ¸¡ã›ã‚‹ã®ã

perl
ãƒªãƒ³ã‚¯
ã„ã‚„ãªãƒ–ãƒã‚°: é…åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨: Ruby, Python, JavaScript, Perl, C++
é…åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨: Ruby, Python, JavaScript, Perl, C++ ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ã„ã¦ã„ã‚‹ã¨ã€ä»–ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®è¨˜æ†¶ã¨ã”ã£ã¡ã‚ƒã«ãªã£ã¦ã€ã€Œé…åˆ—ã®å¾Œã‚ã«è¦ç´ ã‚’è¿½åŠ ã™ã‚‹ã®ã¯ push ã ã£ã‘ã€ append ã ã£ã‘ã€ãªã©ã¨æ··ä¹±ã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ç‰¹ã« Ruby, Python, JavaScript ã¯ã‚³ãƒ¼ãƒ‰ã®æ›¸ãæ–¹ãŒä¼¼ã¦ã„ã‚‹ã®ã§ã€ã“ã®å•é¡ŒãŒèµ·ããŒã¡ã§ã™ã€‚ ãã“ã§ã€å‚™å¿˜éŒ²ã¨ã—ã¦ã€ Ruby, Python, JavaScript, Perl, C++ ã®é…åˆ—æ“ä½œã®æ¯”è¼ƒè¡¨ã‚’ä½œã‚Šã¾ã—ãŸã€‚ä¸€ç•ªæ…£ã‚Œã¦ã„ã‚‹ Ruby ã‚’åŸºæº–ã«ã—ã¦ã„ã¾ã™ã€‚é–“é•ã„ãªã©ãŒã‚ã£ãŸã‚‰ã”æŒ‡æ‘˜ã„ãŸã ã‘ã‚‹ã¨åŠ©ã‹ã‚Šã¾ã™ã€‚ä»–ã®è¨€èªžã®ã‚‚ã‚ã‚‹ã¨ã„ã„ãªã‚ã€‚ Ruby (Array) Python (list) JavaScript (Array) Perl (@) C++ (std::vector)
bull2 2007/06/21
è¨€èªžæ¯Žã®è¡¨ç¾æ–¹æ³•ã®é•ã„ã€‚perlã§ã‚‚a.push(var)ã—ãŸã„ãªã

perl

ruby

javascript

c
ãƒªãƒ³ã‚¯
1 2 æ¬¡ã®ãƒšãƒ¼ã‚¸