[B! Perl][Tips] pmakinoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

pmakino id:pmakino

Perlã¨Tipsã«é–¢ã™ã‚‹pmakinoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (89)

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

ActivePerlã®ã‚ªãƒ•ãƒ©ã‚¤ãƒ³æ§‹ç¯‰
ActivePerl æœ¬ä½“ã¯å®Ÿè¡Œã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ©ã§ä½•æ™‚ã§ã‚‚ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ãã‚‹ãŒã€ppm ã‚„ cpan ã§çµ„ã¿è¾¼ã‚€è¿½åŠ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã‚ªãƒ³ãƒ©ã‚¤ãƒ³æ§‹ç¯‰ãŒå‰æã«ãªã£ã¦ã„ã‚‹ã€‚ã ãŒä¸–é–“ã‹ã‚‰æ–çµ¶ã•ã‚ŒãŸç§˜åŒ¿ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã‚„ã€ãã‚‚ãã‚‚ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã«æŽ¥ç¶šã™ã‚‹ã¨ã„ã†æ¦‚å¿µã®ãªã„ PCã‚„ã‚µãƒ¼ãƒã«ç´å“ã—ãŸã‚Šã€æ©Ÿæãƒªãƒ—ãƒ¬ãƒ¼ã‚¹ã§é–‹ç™ºç’°å¢ƒã‚’å†æ§‹ç¯‰ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„å ´é¢ã§ã¯ã€USBãƒ¡ãƒ¢ãƒªã‚„ DVD-Rã‹ã‚‰ã®ã‚ªãƒ•ãƒ©ã‚¤ãƒ³ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãŒå‡ºæ¥ãªã‘ã‚Œã°è©±ã«ãªã‚‰ãªã„ã€‚ãã‚‚ãã‚‚ãƒãƒ¼ã‚¸ãƒ§ãƒ³ãŒæ•°ä¸–ä»£å¤ããªã‚‹ã¨ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰å…ƒã® ppmãƒ¬ãƒã‚¸ãƒˆãƒªãŒæœ‰æ–™ãƒ—ãƒ©ãƒ³å°‚ç”¨ã«åˆ‡ã‚Šæ›¿ãˆã‚‰ã‚Œã¦ã€ã„ã¤ã‚‚ã§æ°—è»½ã«å†ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹ã“ã¨ãŒã§ããªããªã£ã¦ã—ã¾ã†ã€‚ãã‚Œã§ã¯10å¹´ä»¥ä¸Šãƒ¡ãƒ³ãƒ†å¥‘ç´„ãŒç¶šãã‚ˆã†ãªæ¡ˆä»¶ã§ã¯ã€é–‹ç™ºå½“æ™‚ã®çŠ¶æ³ä¿å˜ã¯çµæ§‹é‡è¦ãªå•é¡Œã«ãªã‚‹ã®ã§äºˆé˜²ç·šã‚’å¼µã£ã¦ãŠãã“ã¨ã¯å¿…è¦ãªã®ã ã€‚ .ppmxãƒ•ã‚¡ã‚¤ãƒ«ã®ä¿å˜ ppm install ã‚’å®Ÿè¡Œã™ã‚‹ã¨ã€ãƒ¬ãƒã‚¸ãƒˆãƒªã‹ã‚‰ .pp
pmakino 2018/06/14
æœ€è¿‘ã® ActivePerl ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã‚ªãƒ•ãƒ©ã‚¤ãƒ³ç’°å¢ƒã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹æ–¹æ³•ã€‚ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆæŽ¥ç¶šæ€§ã®ãªã„ç’°å¢ƒã¯é¢å€’ãã•ãã¦å›°ã‚‹ã€‚

Perl

Tips
ãƒªãƒ³ã‚¯
å®Ÿç”¨ perl ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ - Qiita
ã“ã¡ã‚‰ã®è¨˜äº‹ã§ç´¹ä»‹ã•ã‚Œã¦ã„ã‚‹awkã§ã®æ“ä½œã«ã¤ã„ã¦ã€Perlã§ã¯ã©ã†æ›¸ã‘ã‚‹ã‹ã‚’ç¢ºèªã—ãŸã‚‚ã®ã§ã™ã€‚ http://qiita.com/b4b4r07/it ems/45d34a434f05aa896d69 awkã¯é›£ã—ã„ã‘ã©ã€Perlãªã‚‰ã¡ã‚‡ã£ã¨ã ã‘æ™®é€šã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã«è¿‘ã„ã‹ã‚‰ä½•ã¨ã‹â€¦ï¼ˆã‚ã‚‹ã„ã¯æ˜”CGIæ›¸ã„ã¦ãŸã‹ã‚‰ä½•ã¨ã‹â€¦ï¼‰ã¨ã„ã†ãƒ‹ãƒƒãƒå±¤å‘ã‘ã€‚ ä½¿ç”¨ã™ã‚‹ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ å„ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®è©³ç´°ã¯ perldoc perlrun ã‚³ãƒžãƒ³ãƒ‰ã§å‚ç…§ã§ãã¾ã™ã€‚ -e 'Perlãƒ—ãƒã‚°ãƒ©ãƒ ' ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ã‚’ãã®ã¾ã¾ãƒ—ãƒã‚°ãƒ©ãƒ ã¨ã—ã¦å®Ÿè¡Œã—ã¾ã™ã€‚ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®æ ¹æœ¬ã€‚ -E 'Perlãƒ—ãƒã‚°ãƒ©ãƒ ' -e ã¨åŒã˜ã§ã™ãŒã€ã„ãã¤ã‹ã®è¿½åŠ æ©Ÿèƒ½ãŒæœ‰åŠ¹ã«ãªã‚Šã¾ã™ã€‚ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ã¯ä¸»ã«ã€æœ«å°¾ã«æ”¹è¡Œã‚’è¿½åŠ ã—ã¦ print ã™ã‚‹é–¢æ•° say ã‚’ä½¿ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ãŸã‚ã«æŒ‡å®šã—ã¾ã™ã€‚ -n å…¥åŠ›ã®å„è¡Œã«å¯¾ã—ã¦æŒ‡å®šã—ãŸãƒ—ãƒã‚°
pmakino 2017/06/04
Perl

Tips
ãƒªãƒ³ã‚¯
Perl ã‚’å¦ã¶ã¨ãã€çœŸã£å…ˆã«è¦šãˆãŸã„ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«
æ˜¥ã§ã™ãï¼ æ–°å¹´åº¦ã§ã™ãï¼ Perl æ›¸ãã“ã¨ã«ãªã£ã¦ã—ã¾ã„ã¾ã—ãŸã‹ï¼ å¥‡é‡ã§ã™ãï¼ sigil ãŒæ„å‘³ã‚ã‹ã‚Šã¾ã›ã‚“ã‹ï¼ ç‰¹æ®Šå¤‰æ•°ãŒã‚°ã‚°ã‚Œã¾ã›ã‚“ã‹ï¼ ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ãŒè¬Žã§ã™ã‹ï¼ 1; ã®å˜åœ¨ãŒä¸æ˜Žã§ã™ã‹ï¼ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ãŒé›£ã—ã„ã§ã™ã‹ï¼ ã‚€ã—ã‚ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã˜ã‚ƒãªã„ã‚³ãƒ¼ãƒ‰ã®æ–¹ãŒã‚†ã‚‹ãã¦å¤§å¤‰ã§ã™ã‹ï¼ XS ãŒèªã‚ã¾ã›ã‚“ã‹ï¼ ãˆãˆã€XS ã¯åƒ•ã‚‚ã‚ã‚“ã¾ã‚Šèªã‚ã¾ã›ã‚“ï¼žï¼œ ã•ã¦ã€ã“ã®æ˜¥ã‹ã‚‰ Perl ã‚’å¦ã¶ã“ã¨ã«ãªã£ãŸäººã‚‚å¤šã„ã‹ã¨æ€ã„ã¾ã™ãŒã€ãªã«ã¯ãªãã¨ã‚‚ã“ã‚Œã¾ãšè¦šãˆãŸã‚‰å¾ŒãŒæ¥½ã«ãªã‚‹ã‚“ã˜ã‚ƒãªã„ã‹ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã€ã„ãã¤ã‹ç´¹ä»‹ã—ãŸã„ã¨æ€ã„ã¾ã™ï¼ (ã¾ã‚ã€è‡ªåˆ†ã®åˆæœŸã‚’æ€ã„è¿”ã™ã¨ã€ã“ã®è¾ºã¯ã‚„ãçŸ¥ã£ã¦ãŠããŸã‹ã£ãŸãªã‚ã¨ã„ã†ãƒªã‚¹ãƒˆã§ã™) Data::Dumper, YAML å¤‰æ•°(ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹)ã‚„ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ(blessã•ã‚ŒãŸãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹)ã‚’ãƒ€ãƒ³ãƒ—ã™ã‚‹ç”¨é€”ã§ã¯ã€Data::Dumper ãŒä¸€ç•ªãƒ¡ã‚¸ãƒ£ãƒ¼ã®ã‚ˆã†ãª
pmakino 2014/02/22
Perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

Tips
ãƒªãƒ³ã‚¯
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®è§£æžã« Getopt::Long ã‚’ä½¿ã†æ™‚ã€çµ¶å¯¾ã«å¿˜ã‚Œã¦ã¯ã„ã‘ãªã„å¼•æ•° - ãŸã”ã‚‚ã‚Šã™ãƒ¡ãƒ¢
Perlã§ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’parseã—ã‚ˆã†ã¨æ€ã†ã¨çµ„è¾¼ã¿ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ã—ã¦ã¯ Getopt::Std ã¨ Getopt::Long ãŒã‚ã‚‹ã€‚ãŒã€long style option *1 ã¤ã¾ã‚Š --option-name ã®ã‚ˆã†ãªã‚ªãƒ—ã‚·ãƒ§ãƒ³ã‚’è§£é‡ˆã—ã¦ãã‚Œã‚‹ã®ã¯ Getopt::Long ã ã‘ã ã€‚ãªã®ã§æ™®é€šã¯ã“ã¡ã‚‰ã‚’ä½¿ãŠã†ã€‚ ãŸã ã— çµ¶å¯¾ã«ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã€ã¤ã¾ã‚Šä»¥ä¸‹ã®ã‚ˆã†ã«ã—ã¦ä½¿ã£ã¦ã¯ã„ã‘ãªã„ã€‚ use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); ã“ã‚Œãƒ€ãƒ¡ï¼ çµ¶å¯¾ãƒ€ãƒ¡ï¼ æ»ã¬ï¼ æœ€åˆã«çµè«–ã‚’æ›¸ã å¿…ãšä»¥ä¸‹ã®ã‚ˆã†ã«
pmakino 2012/09/19
Perl

Tips
ãƒªãƒ³ã‚¯
2010-05-31
@ksaito11: ã‚·ã‚§ãƒ«ã®é‡è¤‡èµ·å‹•é˜²æ¢ URL 2010-05-31 23:08:02 via Hatena åŒã˜ã‚·ã‚§ãƒ«ã‚’è¤‡æ•°èµ·å‹•ã—ãªã„ã‚ˆã†ã«ã™ã‚‹ã«ã¯ã€ãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ä½¿ã†æ–¹æ³•ãŒè‰¯ãçŸ¥ã‚‰ã‚Œã¦ã„ã¾ã™ã€‚ å˜ç´”æ˜Žå¿«ãªæ–¹æ³•ã§ã™ãŒã‚·ã‚§ãƒ«ãŒkill -9ã§åœæ¢ã—ãŸå ´åˆã«ã¯ã€ã‚¿ã‚¤ãƒŸãƒ³ã‚°ã«ã‚ˆã£ã¦ãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ«ãŒå‰Šé™¤ã•ã‚Œãªã„ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ãƒ•ãƒªãƒ¼ã§é‡è¤‡èµ·å‹•ã‚’é˜²æ¢ã™ã‚‹ã«ã¯ã€ã™ã“ã—ãƒˆãƒªãƒƒã‚ãƒ¼ãªæ–¹æ³•ã‚’ä½¿ã†å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ ã©ã¡ã‚‰ãŒè‰¯ã„ã¨ã„ã†ã‚ˆã‚ŠçŠ¶æ³ã«ã‚ˆã‚Šä½¿ã„åˆ†ã‘ãŒå¿…è¦ã¨ãªã‚Šã¾ã™ã€‚ ç¶šãã‚’èªã‚€
pmakino 2012/06/20
Linux

Shell

Tips

Perl

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
ãƒªãƒ³ã‚¯
ãƒã‚°ã®ä»»æ„ã®ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã«å¥½ããªè‰²ã‚’ã¤ã‘ã‚‹ - Cside::Weblog
Apacheãƒã‚°ã«è‰²ã‚’ä»˜ã‘ã¦å¿«é©tailç”Ÿæ´» - y-kawazã®æ—¥è¨˜ ã¨ã„ã†ã®ãŒã‚ã‚‹ã‘ã‚Œã©ã€ [31m ã¨ã‹ã§è‰²ã‚’æŒ‡å®šã™ã‚‹ã®ã‚ã¾ã‚Šäººé–“ãŒèªã‚ã‚‹æ„Ÿã˜ãŒã—ãªã„ã®ã§ã€ã‚‚ã£ã¨ç°¡å˜ã«å®šç¾©ã§ãã‚‹ã‚„ã¤ä½œã£ãŸã€‚https://gist.github.com/2929372ã“ã‚“ãªæ„Ÿã˜ã«ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã¨è‰²ã‚’å®šç¾©ã§ãã‚‹ã€‚ ' (200) ' => 'green', ' (5\d{1}) ' => 'red', ' (404) ' => 'red on_yellow', ã“ã‚“ãªãµã†ã«ã€tail ã¨ã‹ cat ã¨ã‹ã«ãƒ‘ã‚¤ãƒ—ã§ã²ã£ã‹ã‘ã¦ä½¿ã†ã€‚ $ tail -f access_log | perl colorize.pl $ plackup app.psgi 2>&1 | perl colorize.pl
pmakino 2012/06/17
ã‚¢ã‚¯ã‚»ã‚¹è§£æž

Apache

Perl

Tips
ãƒªãƒ³ã‚¯
perl ã¨ CrenaHtml2jpg ã‚’ä½¿ã£ã¦å¤§é‡ã®ã‚µã‚¤ãƒˆã‚’è‡ªå‹•ã‚ãƒ£ãƒ—ãƒãƒ£ã™ã‚‹æ–¹æ³•
å¤§é‡ã®ã‚µã‚¤ãƒˆã®ã‚ãƒ£ãƒ—ãƒãƒ£ç”»åƒã‚’å–å¾—ã—ãŸã„ï¼ãã‚“ãªè¦ä»¶ã®ãŠä»•äº‹ã‚‚ãŸã¾ã«ã‚ã‚‹ã§ã—ã‚‡ã†ã€‚ å®Ÿéš›ã€ãã‚“ãªè¦ä»¶ã«ç”ãˆã‚‹ãŸã‚ã«éšåˆ†æ˜”ã«ä½œã£ãŸãƒ„ãƒ¼ãƒ«ãŒã‚ã‚Šã¾ã—ãŸãŒã€æœ€è¿‘ã¾ãŸåˆ©ç”¨ã™ã‚‹æ©Ÿä¼šãŒã‚ã£ãŸã®ã§ãƒ–ãƒã‚°ã®ã‚¨ãƒ³ãƒˆãƒªã¨ã—ã¦è¨˜è¼‰ã—ã¦ãŠã“ã†ã¨æ€ã„ã¾ã—ãŸã€‚ éŽåŽ»ã‚¤ãƒã‚¤ãƒã¨æ¤œè¨¼ã—ãŸçµæžœã§ã™ãŒã€Windows + IE + CrenaHtml2jpg ã«ã‚ˆã‚‹ã‚ãƒ£ãƒ—ãƒãƒ£ç”»åƒãŒä¸€ç•ªã„ã‘ã¦ã‚‹ç”»åƒãŒå–å¾—ã§ãã‚‹çµè«–ã«é”ã—ã¾ã—ãŸã€‚CrenaHtml2jpg ã¨ã¯ http://dip.picolix.jp/disp5.html ã§å…¬é–‹ã•ã‚Œã¦ã„ã‚‹ã‚µã‚¤ãƒˆã‚ãƒ£ãƒ—ãƒãƒ£ãƒ„ãƒ¼ãƒ«ã§éžå¸¸ã«è‰¯ãã§ããŸãƒ„ãƒ¼ãƒ«ã§ã™ã€‚ä¸€èˆ¬çš„ãªä½¿ã‚ã‚Œæ–¹ã¨ã—ã¦ã® GUI æä¾›æ¿è²ã«ã€ã‚µãƒ¼ãƒå‘ã‘ï¼Ÿã¨ã—ã¦ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‹ã‚‰å†…éƒ¨çš„ã« IE ã‚’èµ·å‹•ã—ã¦æç”»ã—ã¦ã‚ãƒ£ãƒ—ãƒãƒ£ç”»åƒã‚’å‡ºåŠ›ã™ã‚‹æ©Ÿèƒ½ã‚’æœ‰ã—ã¦ã„ã¾ã™ã€‚å‹•ä½œä¸ã¯ã‚‚ã¡ã‚ã‚“ãƒ‘ã‚½ã‚³ãƒ³ãŒé‡ããªã‚‹ã—ã€ã‚³ãƒ”ãƒšãŒè‹¥å¹²å‹•ä½œãŒæ€ªã—ããªã£ãŸã‚Šã—ã¾ã™ãŒ
pmakino 2011/08/05
Perl

Web

ãƒ–ãƒ©ã‚¦ã‚¶

ç”»åƒ

Tips
ãƒªãƒ³ã‚¯
Perlã§ã‚‚ã£ã¨ã‚‚ç°¡å˜ã«ã‚¿ã‚¤ãƒˆãƒ«ã‚¿ã‚°ã®ä¸èº«ã‚’ã—ã‚‹æ–¹æ³• - tokuhirom's blog
Perlã§ã‚‚ã£ã¨ã‚‚ç°¡å˜ã«ã‚¿ã‚¤ãƒˆãƒ«ã‚¿ã‚°ã®ä¸èº«ã‚’ã—ã‚‹æ–¹æ³• http://en.yummy.stripper.jp/?eid=1418076 % perl -MLWP::UserAgent -E 'say LWP::UserAgent->new()->get("http://dic.nicovideo.jp/a/%E3%81%AA%E3%80%81%E3%81%AA%E3%82%93%E3%81%A0%E3%81%A3%E3%81%A6%E3%83%BC!")->header("title")' LWP ã¯ title ã‚¿ã‚°ã‚’è§£æžã—ã¦ãã‚Œã‚‹ã®ã§ã€ã“ã†ã™ã‚Œã°ã‚ˆã„ã€‚
pmakino 2011/03/26
Perl

Tips
ãƒªãƒ³ã‚¯
perl - çŸç¸®URLã‚’ä¸€è¡Œã§å±•é–‹ã™ã‚‹ : 404 Blog Not Found
2011å¹´01æœˆ03æ—¥06:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - çŸç¸®URLã‚’ä¸€è¡Œã§å±•é–‹ã™ã‚‹ Perlã§ã™ã‹ã‚‰ã€‚ Schwarze SQ: çŸç¸®URLã‚’å±•é–‹ã™ã‚‹Rubyã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä½œã£ã¦ã¿ãŸ ãªã«ã‚„ã‚‰çŸç¸®URLã‚’ä½¿ã„ã€ä¸æ£ãªã‚µã‚¤ãƒˆã«ã‚¢ã‚¯ã‚»ã‚¹ã•ã›ã‚¦ã‚£ãƒ«ã‚¹ã«æ„ŸæŸ“ã•ã›ã‚‹è¡Œç‚ºãŒæµè¡Œã£ã¦ã„ã‚‹ã‚‰ã—ã„(ã¾ãæƒ³å®šã®ç¯„å›²å†…ã ãŒ)ã€‚ãã“ã§ã€çŸç¸®URLã‚’å±•é–‹ã§ãã‚‹rubyã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ã¡ã‚‡ã¡ã‚‡ã£ã¨ä½œã£ã¦ã¿ãŸã€‚perl -MLWP::UserAgent -lE \ 'say LWP::UserAgent->new->head(shift)->request->uri' \ http://j.mp/dankogai id:amachangãŒæ˜”ã“ã•ãˆã¦ãã‚ŒãŸã“ã®çŸç¸®URLã‚‚http://blog.livedoor.jp/dankogai/ã¨å±•é–‹ã•ã‚Œã‚‹ã¯ãšã§ã™ã€‚ ã‚‚ã†å°‘ã—verboseã«
pmakino 2011/01/11
Perl

Tips
ãƒªãƒ³ã‚¯
æ—¥æœ¬ã®ä¼‘æ—¥ã‚’Perlã‹ã‚‰æ±‚ã‚ã‚‹ | ã¸ã¼ã„æ—¥è¨˜
æ—¥æœ¬ã®ä¼‘æ—¥ã«ã¯ã€Œå›½æ°‘ã®ç¥æ—¥ã€ã¨ã€ŒæŒ¯æ›¿ä¼‘æ—¥ã€ã¨ã€Œå›½æ°‘ã®ä¼‘æ—¥ã€ã£ã¦ã®ãŒã‚ã‚‹ã®ã§ã™ãŒãã‚Œã‚’Perlã‹ã‚‰æ±‚ã‚ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰ã„ã„ã‚“ã ã¨ã„ã†è©±ã€‚ #perl-casualã§ãŸãšããŸã¨ã“ã‚ã„ã‚ã„ã‚ã¨æ–¹æ³•ã‚’æ•™ãˆã¦ã‚‚ã‚‰ã„ã¾ã—ãŸã€‚ å®šç•ªãƒã‚¿ã ã—ã€ãã‚Œä¸‰é€±ç›®ã¨ã„ã‚ã‚ŒãŸã‚Šã—ãŸã®ã§ã¾ã¨ã‚ã¦ã¿ã¾ã™ãŸã¨ã„ã†æµã‚Œã€‚ ãã‚‚ãã‚‚ä¼‘æ—¥ã¨ã„ã†ã®ã¯æ³•å¾‹ã§æ±ºã‚ã‚‰ã‚Œã‚‹ã‚‚ã®ãªã®ã§ã€æ”¹æ£ã‚‚ã‚ã‚Šæœ€è¿‘ã ã¨2005å¹´ã«æ”¹æ£ãŒã‚ã£ãŸã‚Šã—ã¦ã„ã¾ã™ã€‚ ã¾ãŸã€ã€Œå›½æ°‘ã®ç¥æ—¥ã€ã®ä¸ã«ã¯ã€Œæ˜¥åˆ†ã®æ—¥ã€ã‚„ã€Œç§‹åˆ†ã®æ—¥ã€ã®ã‚ˆã†ã«ç¿Œå¹´åˆ†ã‚’2æœˆã«å®˜å ±ã§ç™ºè¡¨ãªã‚“ã¦ã‚‚ã®ã‚‚ã‚ã£ãŸã‚Šã—ã¾ã™ã€‚ ã‚„ã£ã‹ã„ã§ã™ãã€‚ CPANãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã† Calendar::Japanese::Holiday æœ€çµ‚æ›´æ–°æ—¥ãŒ2007å¹´ãªã‚ˆã†ã§ã™ãŒ use Calendar::Japanese::Holiday; say isHoliday(2011, 3, 21); say isHoliday(2
pmakino 2010/11/18
Perl

Tips
ãƒªãƒ³ã‚¯
WWW::Mechanize ã®ãƒ¡ãƒ¢ãƒªæ¶ˆè²»é‡ã«ã¤ã„ã¦ - make world
WWW::Mechanizeã¯ã€é€šå¸¸ã®åˆ©ç”¨ç¯„å›²ãªã‚‰ã°ã€ãƒ¡ãƒ¢ãƒªæ¶ˆè²»é‡ã«ã¤ã„ã¦å•é¡Œã«ã¯ãªã‚‰ãªã„ã¨æ€ã†ã€‚ ã—ã‹ã—ã€ä¸€å›žã®å®Ÿè¡Œã§ã€æ•°åƒå›žä»¥ä¸Šã® URL ã‚¢ã‚¯ã‚»ã‚¹ã‚’ç¹°ã‚Šè¿”ã™ã‚ˆã†ãªã‚‰ã°ã€WWW::Mechanize ã®ãƒ¡ãƒ¢ãƒªæ¶ˆè²»é‡ã‚’è€ƒæ…®ã™ã¹ãã§ã‚ã‚‹ã€‚è€ƒæ…®ã—ãªã„ã¨ã€ãã®ã†ã¡ã« Out of Memory ã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¦ã€ç•°å¸¸çµ‚äº†ã—ã¦ã—ã¾ã†ã‹ã‚‰ã ã€‚ WWW::Mechanize ã§ãƒ¡ãƒ¢ãƒªæ¶ˆè²»é‡ãŒå¢—åŠ ã™ã‚‹ç†ç”± ãã‚Œã¯ã€WWW::Mechanize ã¯ã‚¢ã‚¯ã‚»ã‚¹ã—ãŸ URL ã®æŽ¥ç¶šå±¥æ´ã‚’ãšã£ã¨æ®‹ã™åˆæœŸè¨å®šãŒã‚ã‚‹ã‹ã‚‰ã ã€‚å±¥æ´ã‚’ã©ã‚Œã ã‘æ®‹ã™ã‹ã©ã†ã‹ã®è¨å®šãŒã‚ã‚‹ã®ã§ã€è¦ä»¶ã«å¿œã˜ã¦æ®‹ã™å±¥æ´ã®ä»¶æ•°ã‚’åˆ¶é™ã™ã‚‹ã¨ã‚ˆã„ã€‚ WWW::Mechanize ã®åˆæœŸè¨å®š $mech->stack_depth($max_depth) Get or set the page stack depth. Use this if you're
pmakino 2010/11/14
Perl

Tips
ãƒªãƒ³ã‚¯
Disk I/Oã®ä½¿ç”¨çŽ‡ã‚’ç›£è¦–ã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
iostat -x ã® %util ã‚’ç›£è¦–ã—ã¦ã—ãã„å€¤ã‚’è¶…ãˆãŸã‚‰ã‚¢ãƒ©ãƒ¼ãƒˆãƒ¡ãƒ¼ãƒ«é£›ã°ã—ãŸã„ãªãã¨æ€ã£ã¦ crontab æ›¸ã„ãŸã€‚ã“ã‚“ãªæ„Ÿã˜ã€‚ */5 * * * * perl -wle 'my $s = `/usr/bin/iostat -xk /dev/sd[abc] 270 2 | tail -4`; print $s if $s =~ m{\s(?:[0-9]{3}|[5-9][0-9])\.[0-9]+$}m'ãƒã‚¤ãƒ³ãƒˆã¯ã€ iostat ã®å¾Œã‚ã‹ã‚‰ï¼’ã¤ç›®ã®å¼•æ•°ãŒã‚µãƒ³ãƒ—ãƒªãƒ³ã‚°ã‚’è¡Œã†ç§’æ•° tail ã§ ãƒ‡ãƒã‚¤ã‚¹æ•°+1 ã™ã‚‹ã“ã¨ã§ã€æœ€å¾Œã®ã‚µãƒ³ãƒ—ãƒ«ã‚’å–ã‚Šå‡ºã™ æ£è¦è¡¨ç¾ã§50%ä»¥ä¸Šã ã£ãŸå ´åˆã«æ¨™æº–å‡ºåŠ›ã« iostat ã®çµæžœã‚’å‡ºã™ï¼ãƒ¡ãƒ¼ãƒ«é€ä¿¡
pmakino 2010/09/16
Perl

ã‚·ã‚¹ãƒ†ãƒ é‹ç”¨

Tips
ãƒªãƒ³ã‚¯
ç§»è»¢ã—ã¾ã—ãŸ
ç§»è»¢ã—ã¾ã—ãŸ
pmakino 2010/09/14
Perl

CPAN

Tips
ãƒªãƒ³ã‚¯
Re: Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ä¸€è¡Œç›®ã«ã¯ä½•ã¨æ›¸ãã¹ããªã®ã‹ - Islands in the byte stream (legacy)
Re: Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆã®ä¸€è¡Œç›®ã«ã¯ä½•ã¨æ›¸ãã¹ããªã®ã‹ ã‚‚ã—CPANå½¢å¼ã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’é…å¸ƒã™ã‚‹ãªã‚‰ã€ãã‚Œã¯#!/usr/bin/perlãªã„ã—#!perlã¨ã™ã‚‹ã¹ãã§ã€env(1)ã‚’ä½¿ã†ã¹ãã§ã¯ãªã„ã¨æ€ã„ã¾ã™ã€‚ CPANå½¢å¼ã®ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã§ã¯ã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®shebangè¡Œã‚’ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ç›´å‰ã«ä¿®æ£ã—ã€æ£ã—ã„ãƒ‘ã‚¹ã«æ›¸ãæ›ãˆã¦ãã‚Œã¾ã™ã€‚ãŸã ã—ã€ã“ã®ãƒ«ãƒ¼ãƒãƒ³*1ã¯ã„ã¾ã®ã¨ã“ã‚env(1)ã‚’èªè˜ã—ã¦ãã‚Œã¾ã›ã‚“ã€‚ã¤ã¾ã‚Šã€env(1)ã‚’ä½¿ã£ãŸå ´åˆã€ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã«ä½¿ç”¨ã—ãŸperlã¨å®Ÿéš›ã«å®Ÿè¡Œã•ã‚Œã‚‹perlãŒä¸€è‡´ã™ã‚‹ã¨ã¯é™ã‚Šã¾ã›ã‚“ã€‚perlã‚’ä¸€ã¤ã—ã‹ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ã„ãªã„ã‚·ã‚¹ãƒ†ãƒ ãªã‚‰ã€ã“ã‚Œã§ã‚‚å•é¡Œãªãå‹•ãã¾ã™ã€‚ã—ã‹ã—æœ€è¿‘ã§ã¯ã€ã‚·ã‚¹ãƒ†ãƒ ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ã‚ã‚‹perlã«ã¯è§¦ã‚‰ãšã€ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ç”¨ã®perlã‚’åˆ¥é€”perlbrewãªã©ã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦ãã¡ã‚‰ã‚’ä½¿ã†ã¨ã„ã†ã“ã¨ã‚‚ã‚ˆãè¡Œã‚ã‚Œ
pmakino 2010/09/14
Perl

CPAN

Tips
ãƒªãƒ³ã‚¯
perl - ã§Windowsç”¨ã®zipãƒ•ã‚¡ã‚¤ãƒ«ã‚’Unixã§ä½œã‚‹ : 404 Blog Not Found
2010å¹´09æœˆ06æ—¥23:00 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - ã§Windowsç”¨ã®zipãƒ•ã‚¡ã‚¤ãƒ«ã‚’Unixã§ä½œã‚‹ ä½•åº¦ç›®ã®è»Šè¼ªã®å†ç™ºæ˜Žã‹ã‚ã‹ã‚‰ãªã„ã‘ã©ã€è¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸã‚‚ã®ã¯è¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸã®ã§ã€‚ Windowsã§æ–‡å—åŒ–ã‘ã—ãªã„ZIPãƒ•ã‚¡ã‚¤ãƒ«ã‚’Macã§ä½œã‚‹ : ãƒ©ã‚¤ãƒ•ãƒãƒƒã‚«ãƒ¼ï¼»æ—¥æœ¬ç‰ˆï¼½ ezip.pl æ–°è¦ã«ä½œæˆã™ã‚‹å ´åˆã¯ã€ã“ã¡ã‚‰ã€‚ #!/usr/bin/env perl # # $Id: ezip.pl,v 0.1 2010/09/06 13:52:00 dankogai Exp dankogai $ # use strict; use warnings; use Archive::Zip qw/:ERROR_CODES/; use Getopt::Std; use Encode; use Unicode::Normalize; # to handl
pmakino 2010/09/09
Perl

Mac

Tips
ãƒªãƒ³ã‚¯
è±†çŸ¥è˜ - çŸ¥ã£ã¦ãŠãã¨å½¹ã«ç«‹ã¤ - Perlå…¥é–€ã‚¼ãƒŸ
Perl â€º è±†çŸ¥è˜ çŸ¥ã£ã¦ãŠãã¨ä½•ã‹ã¨PerlãŒä½¿ã„ã‚„ã™ããªã£ãŸã‚Šã€èªã¿ã‚„ã™ããªã‚‹ã‹ã‚‚ã—ã‚Œãªã„ã“ã¨ã‚’ã„ã‚ã„ã‚ã¨è¿½åŠ ã—ã¦ã„ãã¾ã™ã€‚ BEGIN BEGINã¯ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã®ã¨ãã«å®Ÿè¡Œã™ã‚‹ã¨ã„ã†ã“ã¨ã‚’ã‚ã‚‰ã‚ã—ã¾ã™ã€‚ BEGIN { # ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã®ã¨ãã«å®Ÿè¡Œã—ãŸã„æ–‡ } require requireã¯useã¨ä¼¼ã¦ã„ã¾ã™ãŒå®Ÿè¡Œæ™‚ã«ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’èªã¿è¾¼ã‚€ã“ã¨ã¨ã€importãƒ¡ã‚½ãƒƒãƒ‰ã‚’è‡ªå‹•çš„ã«å®Ÿè¡Œã—ãªã„ã¨ã“ã‚ãŒã“ã¨ãªã‚Šã¾ã™ã€‚ use File::Basename 'basename'; # ä¸Šã¨åŒã˜æ„å‘³ BEGIN { require File::Basename; File::Basename->import('basename'); } å‹•çš„ã«ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’èªã¿è¾¼ã¿ãŸã„å ´åˆã¯requireã‚’ä½¿ç”¨ã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ãŒã€ä¸€èˆ¬çš„ãªç”¨é€”ã§ã¯useã§çµ±ä¸€ã™ã‚‹ã®ãŒã‚ã‹ã‚Šã‚„ã™ã„ã§ã—ã‚‡ã†ã€‚ local localã¯
pmakino 2010/08/18
Perl

Tips
ãƒªãƒ³ã‚¯
é©å½“ãªscriptã§ã¯ use autodie; ã™ã‚‹ - tokuhirom's blog
é©å½“ãªscriptã§ã¯ use autodie; ã™ã‚‹ chdirã®ã¨ãã‚‚ã‚¨ãƒ©ãƒ¼å‡¦ç†ã¯å¿…é ˆã§ã™ãªã€œè‡ªåˆ†ã§ä½¿ã†ã‚¹ã‚¯ãƒªãƒ—ãƒˆã ã‹ã‚‰ãˆãˆåŠ æ¸›ãªæ›¸ãæ–¹ã—ã¦ãŸã€œåçœ #ubuntu #perl http://twitter.com/mukumaru/status/20694618336 perl5.10.1 ä»¥å¾Œã§ã¯ autodie.pm ãŒæ¨™æº–æ·»ä»˜ã•ã‚Œã¦ã„ã‚‹ã®ã§ã€ãã‚Œã‚’åˆ©ç”¨ã™ã‚‹ã¨ã‚ˆã„ã€‚ % perl -E 'use autodie; chdir "/foo"' Can't chdir('/foo'): No such file or directory at -e line 1 ã“ã‚“ãªã‹ã‚“ã˜ã€‚use strict; use warnings; ã«ã¤ã¥ã‘ã¦ use autodie; ã¨æ›¸ãã ã‘ã€‚ ä½¿ã„æ¨ã¦ã‚¹ã‚¯ãƒªãƒ—ãƒˆã§ã¯ use autodie; ã—ã¦ãŠãã¨ã€ã„ã¡ã„ã¡çµ„ã¿è¾¼ã¿é–¢æ•°ã®ã‚¨ãƒ©ãƒ¼å‡¦ç†ã‹ã‹ãªãã¦ã„
pmakino 2010/08/11
Perl

Tips
ãƒªãƒ³ã‚¯
perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ä½¿ãˆãã†ãªã®ã‚’ã„ãã¤ã‹ - Webtech Walker
æœ€è¿‘ã¡ã‚‡ã£ã¨ã—ãŸã“ã¨ã¯perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ã‚„ã‚‹ã®ã§ä¾¿åˆ©ãã†ãªã®ã‚’æŠœãå‡ºã—ã¦ã¿ã‚‹ã€‚å¿…è¦ã«å¿œã˜ã¦zshã®é–¢æ•°ã¨ã‹aliasã«ã—ãŸã‚Šã¨ã‹ã€‚ã¡ãªã¿ã«perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã¨ã„ãˆã°sugyanãªã®ã§ãã£ã¨ã‚‚ã£ã¨ä¾¿åˆ©ãªã®ã‚’ã„ãã¤ã‚‚ç´¹ä»‹ã—ã¦ãã‚Œã‚‹ã¯ãšã§ã™ã€‚ ç”»åƒã‚’base64ã«ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ $ perl -MMIME::Base64 -0777 -wne 'print encode_base64($_)' < file HTMLã«dataã‚¹ã‚ãƒ¼ãƒ ã§ç”»åƒåŸ‹ã‚è¾¼ã‚€ã¨ãã¨ã‹ã€å‡ºåŠ›ã‚’æ”¹è¡Œã—ãŸããªã„ã¨ãã¯encode_base64ã®ç¬¬äºŒå¼•æ•°ã«ç©ºæ–‡å—ã‚’æ¸¡ã™ã€‚ $ perl -MMIME::Base64 -0777 -wne 'print encode_base64($_,"")."\n"' < file ç”»åƒã®ãƒªã‚µã‚¤ã‚º $ perl -MImager -se 'Imager->new->read(file=>$f
pmakino 2010/03/25
Perl

Tips
ãƒªãƒ³ã‚¯
ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…: ãƒ¢ãƒ€ãƒ³ãªPerlã‚’ã€Œèªã‚€ã€ä¸Šã§è¦šãˆã¦ãŠãã¨ã‚ˆã„æ§‹æ–‡ ç¬¬1å›ž(?)
Perlå¦ç¿’è€…ãŒã‚ã‚‹ç¨‹åº¦Perlã«æ…£ã‚Œã¦ãã‚‹ã¨ã€ä»–ã®äººã®æ›¸ã„ãŸã‚³ãƒ¼ãƒ‰ã‚’èªã‚€æ©Ÿä¼šã‚‚å¢—ãˆã¦ãã¾ã™ã€‚ãã“ã§ã¤ã¾ã¥ãäººã¯å¤šã„ã®ã§ã¯ãªã„ã§ã—ã‚‡ã†ã‹ã€‚ã‹ãè¨€ã†ç§è‡ªèº«ãŒãã®ä¸€äººã§ã™(ç¬‘) ãƒ¢ãƒ€ãƒ³ãªPerlã¯DSL(é»’é”è¡“?)çš„ãªæ›¸ãæ–¹ã‚’ã—ã¦ã„ã‚‹éƒ¨åˆ†ã‚‚å¤šãã€é›°å›²æ°—ã¨ã—ã¦å‡¦ç†å†…å®¹ã‚’ã¤ã‹ã¿ã‚„ã™ã„ã®ã§ã™ãŒã€é€†ã«æ–‡æ³•çš„ã«æ§‹æ–‡ã‚’ç†è§£ã™ã‚‹ã®ãŒé›£ã—ã„ã“ã¨ã‚‚å¤šã„ã§ã™ã€‚ ã€ŒçŸ¥ã£ã¦ã„ã‚‹äººã«ã¯å½“ãŸã‚Šå‰ã€çŸ¥ã‚‰ãªã„äººã«ã¯é»’é”è¡“ã€ Perlã«ã¯ãã†ã„ã†ã®ãŒå¤šã„ã®ã§ã€ãã†ã„ã£ãŸã¨ã“ã‚ã§æ‚©ã‚“ã§ã„ã‚‹äººã‚‚å¤šã„ã®ã§ã¯ãªã„ã‹ã¨æ€ã„ã€ã“ã®ã‚¨ãƒ³ãƒˆãƒªãƒ¼ã‚’æ›¸ã„ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚æ°—ãŒå‘ã‘ã°ç¶šãã‚‚æ›¸ãã¾ã™ã€‚é–“é•ã£ã¦ã„ã‚‹éƒ¨åˆ†ã‚‚ã‚ã‚‹ã‹ã¨æ€ã†ã®ã§ã€ãƒ–ã‚¯ãƒžã‚³ãƒ¡ç‰ã§ã”æŒ‡æ‘˜ã„ãŸã ã‘ã‚‹ã¨åŠ©ã‹ã‚Šã¾ã™ã€‚ æœ¬æ—¥ã®ç›®æ¨™ã¨ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ è£¸ã®ãƒ¯ãƒ¼ãƒ‰(bareword)ã¯æ€–ããªã„ encode cp932 => $str; sub PI(){3.1415926535} ã¦ã“ã¨ã§
pmakino 2010/03/23
Perl

Tips
ãƒªãƒ³ã‚¯
ã‚ã‚“ã©ã†ãªã®ã§ãƒ‡ã‚£ã‚¹ã‚¯å®¹é‡ç›£è¦–ã‚’ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§crontabã«æ›¸ã„ãŸ - kazuhoã®ãƒ¡ãƒ¢ç½®ãå ´
15 3 * * * perl -wle 'my $s = `/bin/df -k`; print $s if $s =~ m{^/dev/.* (9[0-9]|100)\%}m'df ã«é™ã‚‰ãšã€ã‚³ãƒžãƒ³ãƒ‰ã®çµæžœã‚’æ£è¦è¡¨ç¾ã§æ¯”è¼ƒã—ã¦å•é¡ŒãŒã‚ã£ãŸã‚‰printã€ã£ã¦ã®ã¯crontabã§ç›£è¦–ã™ã‚‹æ™‚ã®åŸºæœ¬çš„ãªã‚¤ãƒ‡ã‚£ã‚ªãƒ è¦å‡ºå…¸ã€‚ã‚‚ã¡ã‚ã‚“ã€backquoteã˜ã‚ƒãªãã¦ãƒ‘ã‚¤ãƒ—ã§ç¹‹ã„ã§ã‚‚ã„ã„ã€‚
pmakino 2010/01/12
Linux

Perl

ã‚·ã‚¹ãƒ†ãƒ é‹ç”¨

Tips
ãƒªãƒ³ã‚¯
1 2 3 4 5 æ¬¡ã®ãƒšãƒ¼ã‚¸