безопасное создание дерева каталогов

[ocehb]

my $file = "aa/bb/cc/dd.txt";
$` ne "" && mkdir $` while ($file =~ m#/#g);
open F,"> $file";

некий аналог mkdir -p

Comments

все бы хорошо, но

[codesign.livejournal.com]

pervar says:
The use of this variable ($`) anywhere in a program imposes a considerable performance penalty on all regular expression matches

Re: все бы хорошо, но

[ocehb]

да, за все надо платить.