Perlã§ãƒ•ã‚¡ã‚¤ãƒ«ã‚’サブディレクトリã”ã¨ã‚³ãƒ”ーã™ã‚‹ - 日曜プãƒã‚°ãƒ©ãƒžã®ãã‚žã‚事Perlをツール的ã«ä½¿ã£ã¦ã„ã¦ã€ã‚³ãƒ¼ãƒ‰ã®ä¸ã§è¤‡æ•°ã®éšŽå±¤ã«ã‚るファイルをディレクトリã”ã¨å†å¸°çš„ã«ã‚³ãƒ”ーã—ãŸããªã£ãŸã€‚ 以å‰ã€ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚³ãƒ”ーã«ã¤ã„ã¦ä½•ã‹æ›¸ã„ãŸæ°—ãŒã—ã¦èª¿ã¹ã¦ã¿ãŸã®ã ãŒã€å¤§ã—ãŸã“ã¨ãŒæ›¸ã„ã¦ã„ãªã‹ã£ãŸÂ…。 ファイルã®ã‚³ãƒ”ーをã™ã‚‹å ´åˆã¯ã€File::Copyã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã†ã®ãŒè‰¯ã„。 ã¨ã„ã†ã“ã¨ã§ã€ä»–ã®æ–¹æ³•ã‚’調ã¹ã¦ã¿ãŸã¨ã“ã‚ã€ã€ŒFile::Copy::Recursiveã€ã‚’使ã†ã®ãŒã‚ˆã•ãã†ã ã€ã¨ã„ã†ã¨ã“ã‚ã«è¡Œãç€ã„ãŸã€‚ 標準モジュールã§ã¯ãªã„ã®ã§cpanã‹ã‚‰ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹å¿…è¦ãŒã‚ã£ãŸãŒã€ç‰¹ã«å•é¡Œã¯ãªãスムーズã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ããŸã€‚ ç¾åœ¨ã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªä»¥ä¸‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã€çµ¶å¯¾ãƒ‘スã®ã€Œ/tempã€ã¸ã‚³ãƒ”ーã™ã‚‹å ´åˆã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã™ã‚‹ã€‚ use strict; use warnings; use File::Copy::Recursive qw(rcopy); my $from
{{#tags}}- {{label}}
{{/tags}}