ãŸã¨ãˆã°ã€Cwd::cwd()ã§ã¯ãªãCwd::getcwd()を使ㆠ- Islands in the byte stream2010å¹´11月09æ—¥ ãŸã¨ãˆã°ã€Cwd::cwd()ã§ã¯ãªãCwd::getcwd()を使ㆠModule::Installベースã®Makefile.PLãŒç•°æ§˜ã«é…ã„ã®ã§Devel::NYTProfã§ãƒ—ãƒãƒ•ã‚¡ã‚¤ãƒ«ã‚’å–ã£ãŸã¨ã“ã‚ã€Cwd::cwd()ãŒéžå¸¸ã«é…ã„ã“ã¨ãŒã‚ã‹ã£ãŸã€‚ãã“ã§ã“れをCwd::getcwd()ã«ç½®ãæ›ãˆãŸã¨ã“ã‚ã€æ˜Žã‚‰ã‹ã«Makefile.PLã®å®Ÿè¡ŒãŒé«˜é€Ÿã«ãªã‚Šã‚ビã‚ビã¨å‹•ãよã†ã«ãªã£ãŸã€‚ 調ã¹ã¦ã¿ã‚‹ã¨ã“ã®cwd()ã€ãªã‚“ã¨å†…部ã§`pwd`ã‚’è¡Œã£ã¦ã„ã‚‹ã®ã ï¼ãã—ã¦Module::Installã¯cwd()を大é‡ã«å‘¼ã‚“ã§ãŠã‚Šã€ã“ã‚Œã ã‘ã§ç§’å˜ä½ã®æ™‚間を消費ã—ã¦ã„ãŸã®ã ã£ãŸã€‚ cwd()ãŒ`pwd`ã¨åŒã˜ã ã¨ã„ã†ã“ã¨ã¯ã€Cwd.pmã®podã«ã‚‚書ã„ã¦ã‚る。 $ perldoc Cwd ... getcwd my $cwd = getcwd(); Returns the cur
{{#tags}}- {{label}}
{{/tags}}