タグ

関連タグで絞り込む (1)

タグの絞り込みを解除

Perlとcwdに関するkoba04のブックマーク (1)

  • たとえば、Cwd::cwd()ではなくCwd::getcwd()を使う - Islands in the byte stream

    2010年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

  • 1