[B! script] highfrontierã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

highfrontier id:highfrontier

scriptã«é–¢ã™ã‚‹highfrontierã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (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}}

naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ - Perl ã®ã‚¯ãƒãƒ¼ã‚¸ãƒ£
ã„ã¤ã‚‚ãŠä¸–è©±ã«ãªã£ã¦ã‚‹ã‚ã®äººã¨ã‹ã‚ã®äººã¨ã‹ãŒå±±å£å®¶ã®é€†è¥²->perl-è§£èª¬->ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã¨ã„ã†ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã®è§£èª¬ãƒšãƒ¼ã‚¸ã‚’ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ã—ã¦ã‚‹ã®ã‚’ãã£ã‹ã‘ã«ã€ Perl ã®ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã«ã¤ã„ã¦è‡ªåˆ†ã‚‚ã¡ã‚ƒã‚“ã¨ç†è§£ã§ãã¦ã‚‹ã®ã‹ã¨ã„ã†ã®ã‚’è€ƒãˆã¦ã¿ã¾ã—ãŸãŒã€ã©ã†ã‚‚å¾®å¦™ã§ã™ã€‚ ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã«ã¤ã„ã¦ã€ä½•ã§ã„ã¾ã„ã¡ç†è§£ã—ãã‚Œã¦ãªã„æ„Ÿã˜ãŒã‚ã‚‹ã®ã‹ã¨ã„ã†ã¨ã€ã‚¯ãƒãƒ¼ã‚¸ãƒ£ãŒã©ã†ã„ã†ã‚‚ã®ã§ã‚ã‚‹ã‹ã¯çŸ¥ã£ã¦ã‚‹ã‘ã©ã€ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’ã©ã†ã„ã†æ™‚ã«ä½¿ã†ã¨è‰¯ã„ã®ã‹ãŒå…·ä½“çš„ã«ã‚ã‚Œã¨ã“ã‚Œã¨ã„ã†æ„Ÿã˜ã§æ€ã„ä»˜ã‹ãªã„ã‹ã‚‰ãªã®ã§ã¯ãªã„ã‹ã¨æ€ã£ãŸã€‚ ãªã®ã§ã€Perl ã§ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’ä½¿ã£ã¦ã‚‹å®Ÿè£…ã¨ã‹ã‚’è¦‹ã¦ã€ã©ã‚“ãªã¨ãã«ä½¿ã‚ã‚Œã‚‹ã‚‚ã®ãªã®ã‹ã‚’ãƒªã‚¹ãƒˆã‚¢ãƒƒãƒ—ã—ã¦ç†è§£ã‚’æ·±ã‚ã¦ã¿ã‚ˆã†..ã®ã‚³ãƒ¼ãƒŠãƒ¼ã§ã™ã€‚ ã‚¯ãƒ©ã‚¹ã«ãƒ‡ãƒ¼ã‚¿ã‚’ä¿æŒã™ã‚‹ãŸã‚ã®ã‚¯ãƒãƒ¼ã‚¸ãƒ£ åƒ•ãŒã±ã£ã¨æ€ã„ã¤ã„ãŸã®ã¯ Class::DBI ã®ä¸ã§ä½¿ã‚ã‚Œã¦ã„ã‚‹ Ima::DBI ã«ãŠã‘ã‚‹ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ãƒãƒ³ãƒ‰ãƒ©ã®ã‚ãƒ£ãƒƒ
highfrontier 2006/01/10
Script

Perl

ã‚¯ãƒãƒ¼ã‚¸ãƒ£
ãƒªãƒ³ã‚¯
XML ã‚’ Perl ã®é«˜éšŽé–¢æ•°ã§ã€‚ : torus solutions!
XML::LibXML ã§ XML ã‚’ä½œã‚‹ã¨ãã«ã€ ã„ã¡ã„ã¡ createElement ã¨ã‹ appendChild ã¨ã‹æ›¸ãã®ã«é£½ãã¦ããŸã®ã§ã€ é«˜éšŽé–¢æ•°ç‰ˆã‚’ä½œã£ã¦ã¿ãŸã€‚ ï¼ˆ2005/4/27ï¼šãƒ†ã‚ã‚¹ãƒˆãƒŽãƒ¼ãƒ‰ã‚’è¿½åŠ ã™ã‚‹æ©Ÿèƒ½ã‚’ä»˜ã‘è¶³ã—ã¦ã€èª¬æ˜Žã‚‚æ›¸ãè¶³ã—ã¾ã—ãŸã€‚ï¼‰ å‰ç½®ã Perl ã§ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’ä½œã£ã¦ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã™ã‚‹ã®ãŒå¥½ãã§ã™ã¨ã„ã†ã¨ã€ Perl ã§ã‚¯ãƒãƒ¼ã‚¸ãƒ£ãªã‚“ã‹ã‹ã‘ã‚‹ã®ï¼Ÿã€€ã¨ã„ã†é¡”ã‚’ã™ã‚‹äººãŒãŸã¾ã«ã„ã‚‹ã‚“ã§ã™ãŒã€ ã‚‚ã¡ã‚ã‚“ã‹ã‘ã¾ã™ã€‚ ã€ŽHigher-order Perl: A Guide To Program Transf ormationã€ ã¨ã„ã†æœ¬ãŒå‡ºã¦ã„ã‚‹ãã‚‰ã„ã ã—ã€‚ ä¾‹ my $dom = (_DOM (_E fuga => {a1 => "attr1", a2 => "attr2"}, (_E hoge => {}, "Hahaha!"), (_E "piyo"))); ã“
highfrontier 2006/01/10
Script

Perl

XML
ãƒªãƒ³ã‚¯
[PAR] perlã‚’exeåŒ– ã¼ãã¯ã¾ã¡ã¡ã‚ƒã‚“ï¼
(2005/06/19) PAR ã¨ã„ã†ã‚‚ã®ã‚’ä½¿ãˆã°perlã‚¹ã‚¯ãƒªãƒ—ãƒˆãŒwindowsã®å®Ÿè¡Œå½¢å¼(exe)åŒ–ã§ãã‚‹ã‚‰ã—ã„ã€‚ ä»•çµ„ã¿ã¯ã“ã‚“ãªæ„Ÿã˜ã€‚ Perlã‚¤ãƒ³ã‚¿ãƒ¼ãƒ—ãƒªã‚¿ã‚’å«ã‚€å¿…è¦ãƒ•ã‚¡ã‚¤ãƒ«ã‚’å…¨ã¦exeã«ã¾ã¨ã‚ã‚‹(å®Ÿã¯zip) exeãŒå®Ÿè¡Œã•ã‚Œã‚‹ã¨ã€è£ã§å±•é–‹ã—ã¦ã€ä¸ã®Perlã‚¤ãƒ³ã‚¿ãƒ¼ãƒ—ãƒªã‚¿(dll)ã§ã‚¹ã‚¯ãƒªãƒ—ãƒˆãŒå®Ÿè¡Œã•ã‚Œã‚‹ã€‚ ãªã‚‹ã»ã©ãªã‚‹ã»ã©ãƒ¼ã€‚ ã„ã¡ã„ã¡ActivePerlã‚’ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦äº‘ã€…ã¨ã‹ã—ãªãã¦ã‚‚ ã„ããªã‚Šå®Ÿè¡Œã§ãã¡ã‚ƒã†ã‚ˆã†ã«ãªã‚‹ã‚ã‘ã ãï¼ã™ã¦ãï¼ â€»ãŸã ã—æ‹¡å¼µåã‚’zipã«å¤‰ãˆã‚‹ã ã‘ã§ã€ä¸ã®ã‚½ãƒ¼ã‚¹ãŒè¦—ã‘ã‚‹ã‘ã© ã§ã€ã•ã£ããä½¿ã£ã¦ã¿ãŸã€‚ã¡ã‚‡ã£ã¨è‹¦åŠ´ã—ãŸï¼ ã‚ˆã£ã¦ä»¥ä¸‹ã¯ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãƒ¡ãƒ¢ã ï¼ ç¾åœ¨ã®æœ€æ–°ç‰ˆã¯5.8.7.813ã€‚å…¥ã‚Œã¡ã‚ƒãƒ€ãƒ¡ã€‚ ç´ ç›´ã«ã“ã‚Œã‚’ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ãŸã‚‰æœ€çµ‚çš„ã«PARã§ä½œã£ãŸexeã‚’å®Ÿè¡Œã—ãŸæ™‚ã« ã€Œãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã‚¨ãƒ³ãƒˆãƒªãƒã‚¤ãƒ³ãƒˆPL_memory_wrapãŒãƒ€ã‚¤ãƒŠãƒŸãƒƒã‚¯
highfrontier 2006/01/09
Tips

Perl

Script
ãƒªãƒ³ã‚¯
WSHã‚¹ã‚¯ãƒªãƒ—ãƒˆã‹ã‚‰ã®ãƒ•ã‚¡ã‚¤ãƒ«æ“ä½œï¼ˆ2ï¼‰ ï¼ ï¼ IT
ã“ã‚Œã¾ã§ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã®æ“ä½œã«ã¤ã„ã¦èª¬æ˜Žã—ã¦ããŸã€‚æ¬¡ã«ä»¥ä¸‹ã§ã¯ã€ãƒ•ã‚©ãƒ«ãƒ€ã®æ“ä½œæ–¹æ³•ã«ã¤ã„ã¦èª¬æ˜Žã—ã‚ˆã†ã€‚ãƒ•ã‚©ãƒ«ãƒ€ã«å¯¾ã—ã¦ã‚‚ã€ãƒ•ã‚¡ã‚¤ãƒ«ã®å‡¦ç†ã¨åŒæ§˜ã«ã€ã‚³ãƒ”ãƒ¼ã€ç§»å‹•ã€å‰Šé™¤ã€ä½œæˆã€æƒ…å ±å–å¾—ãŒã§ãã‚‹ã€‚å‡¦ç†æ–¹æ³•ã‚‚ãƒ•ã‚¡ã‚¤ãƒ«ã«å¯¾ã™ã‚‹ã‚‚ã®ã¨åŒæ§˜ã«ã€FSOã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ç›´æŽ¥åˆ©ç”¨ã™ã‚‹æ–¹æ³•ã¨ã€Folderã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ä½œæˆã—ã¦åˆ©ç”¨ã™ã‚‹æ–¹æ³•ã®2ç¨®é¡žãŒæä¾›ã•ã‚Œã¦ã„ã‚‹ã€‚ã¾ãšã¯FSOã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ä½¿ç”¨ã™ã‚‹æ–¹æ³•ã‚’è¿°ã¹ã¦ã‹ã‚‰ã€Folderã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ä½¿ç”¨ã™ã‚‹æ–¹æ³•ã«ã¤ã„ã¦è¿°ã¹ã‚‹ã“ã¨ã«ã™ã‚‹ã€‚ ä»¥ä¸‹ã¯FSOã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®ãƒ¡ã‚½ãƒƒãƒ‰ã®ã†ã¡ã€ãƒ•ã‚©ãƒ«ãƒ€ã«é–¢ä¿‚ã™ã‚‹ã‚‚ã®ã®ä¸€è¦§ã§ã‚ã‚‹ã€‚ ãƒ¡ã‚½ãƒƒãƒ‰ æ©Ÿèƒ½ CopyFolderãƒ¡ã‚½ãƒƒãƒ‰
highfrontier 2005/11/01
Tips

Windows

Script
ãƒªãƒ³ã‚¯
cygwin ã§ cron ã‚’ä½¿ã†
Landscape ãƒˆãƒƒãƒ—ãƒšãƒ¼ã‚¸ | < å‰ã®æ—¥ 2004-06-21 2004-06-23 æ¬¡ã®æ—¥ 2004-06-24 > Landscape - ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ãƒ¡ãƒ¢Â 2004-06-23 cygwin ã§ cron ã‚’ä½¿ã† å½“ã‚µã‚¤ãƒˆå†…ã‚’ Google æ¤œç´¢ã§ãã¾ã™ * cygwin ã§ cron ã‚’ä½¿ã†ã“ã®è¨˜äº‹ã®ç›´ãƒªãƒ³ã‚¯URL: Permlink | ã“ã®è¨˜äº‹ãŒå±žã™ã‚‹ã‚«ãƒ†ã‚´ãƒª: [ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢] [unix] ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä¸€æ—¥ä¸€å›žå®šæœŸå®Ÿè¡Œã—ãŸã„ã€‚ Linux ãªã©ã® unix ç³» OS ãªã‚‰ç°¡å˜ã ãŒã€ä»Šå›žã¯ Windows2000 + cygwin ç’°å¢ƒã§å‹•ã‹ã—ãŸã„ã€‚Windows ã§å¤œé–“ãƒãƒƒãƒã‚„è‡ªå‹•å®Ÿè¡Œã‚’ã•ã›ã‚‹ãªã‚‰ã‚¿ã‚¹ã‚¯ã‚¹ã‚±ã‚¸ãƒ¥ãƒ¼ãƒ©ã‚„ at ã‚’ä½¿ã†ã¨ã“ã‚ã€‚ã—ã‹ã—ã€ä»Šå›žã¯ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆãªã®ã§ãã‚Œã‚‰ã‚’ä½¿ã†ã¨ç’°å¢ƒå¤‰æ•°ã¨ã‹ã„ã‚ã„ã‚è½ã¨ã—ç©´ãŒã‚ã‚Šãã†ã€‚ã¨ã„ã†ã‚ã‘ã§ã€cygwin ã® c
highfrontier 2005/11/01
ãªã‚‹ã»ã©ã€ã‚¿ã‚¹ã‚¯ã‚ˆã‚Šã„ã„ã‹ã‚‚

Tips

cygwin

script
ãƒªãƒ³ã‚¯
ãã‚ˆã¸ã‚ã®Perlã‚³ãƒ¼ãƒ‰ã‚’ãƒªãƒ•ã‚¡ã‚¯ã‚¿ã—ã‚ˆã†ã®ã‚³ãƒ¼ãƒŠãƒ¼ No.2
2å›žç›®ã‚„ã£ã¦ã‚‹ã£ã½ã„ã®ã§ã€ä»Šå›žã‚‚ç§å®¶ç‰ˆã‚’æ›¸ã„ã¦ã¿ã‚‹ã€‚ ã¨ã„ã†ã‚ã‘ã§ id:naoya ã‹ã‚‰ã®ä»Šå›žã®èª²é¡Œã€‚ ã€Œã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’å®Ÿè¡Œã™ã‚‹ã“ã¨ã§ã€ç¾åœ¨ã®æ—¥ä»˜ã‚’è¿”ã™ã‚¹ã‚¯ãƒªãƒ—ãƒˆã€ ã‚„ã£ã±ã‚Šæœ€åˆã¯ localtime ã‚’ç´ ã§ä½¿ã£ã¡ã‚ƒã†ã‚ˆãã€‚Perl ã®å…¥é–€æ›¸ã«ã¯ãŠãã‚‰ãã»ã¨ã‚“ã© localtime ã§ã®ä¾‹ã«ãªã£ã¦ã‚‹ã¨æ€ã‚ã‚Œã¾ã™ã€‚ã—ã‹ã—ã€åƒ•ãªã‚‰ Time::Piece ã‚’ä½¿ã†ã€‚ #!/usr/local/bin/perl use strict; use warnings; use Time::Piece; my $lt = localtime; printf "%s %s\n", $lt->ymd('/'), $lt->hms;ãªãœã£ã¦ã€localtime ã®é–¢æ•°åž‹ã‚¤ãƒ³ã‚¿ãƒ•ã‚§ãƒ¼ã‚¹ãŒã ã•ã™ãŽã‚‹ã‹ã‚‰ã€‚Matt Sergeant ã‚¿ãƒ³ã®Time::Piece ã‚’ä½¿ãˆã°çµ„ã¿è¾¼ã¿ã® localtime ãŒ OO ã‚¤ãƒ³
highfrontier 2005/10/31
Time::Piece

Tips

script

perl
ãƒªãƒ³ã‚¯
1