最近作ã£ãŸã‚¹ã‚¯ãƒªãƒ—ト - file-glob ã“㨠k.daibaã®æ—¥è¨˜æ°—象åºã®ã‚µã‚¤ãƒˆã‹ã‚‰æ°—象衛星ã®ç”»åƒã‚’ダウンãƒãƒ¼ãƒ‰ã—ã¦ï¼Œwindowsã®ãƒ‡ã‚¹ã‚¯ãƒˆãƒƒãƒ—ç”»é¢ã«è²¼ã‚Šä»˜ã‘ã‚‹perlスクリプトを作ã£ã¦ã¿ãŸï¼ŽActivePerl 5.8.3 上ã§ä½œæˆï¼Žå‹•ã‹ã™ãŸã‚ã«ã¯ï¼ŒImage::Magick ã¨win32::APIをインストールã—ã¦ãŠãã“ã¨ãŒå¿…è¦ï¼Žæ‰‹ã‚’抜ã„ãŸã®ã§ï¼ŒC:\scripts ã¨ã„ã†ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãŒã‚ã‚‹ã“ã¨ã‚’å‰æã«ã—ã¦ã„る．1時間ã”ã¨ç”»åƒã‚’æ›´æ–°ã™ã‚‹ã‚ˆã†ã«ã—ã¦ã„る．ã“ã®ã‚¹ã‚¯ãƒªãƒ—トをwall.plã¨ã„ã†åå‰ã«ã—ãŸã¨ã™ã‚‹ã¨ï¼Œ"wperl wall.pl"ã¨èµ·å‹•ã™ã‚Œã°ï¼Œã‚³ãƒžãƒ³ãƒ‰ãƒ—ãƒãƒ³ãƒ—ト画é¢ã‚’ç«‹ã¡ä¸Šã’ã£ã±ãªã—ã«ã—ãªãã¦ã™ã‚€ï¼Ž #!wperl -w use LWP::Simple; use Image::Magick; use Win32::API; use strict; my ($file, $dir, $jpgFile, $bmpFile); my ($syste
{{#tags}}- {{label}}
{{/tags}}