Кто-нибудь видит проблему здесь?Почему я вызываю «или умереть» при попытке открыть Filehandle?
use FindBin '$Bin';
$scriptdir = $Bin;
$folder= "64521459";
$file = "201608291350_60002015_1_Log-Minim.csv";
print "$scriptdir\\OK\\$folder\\$file";
open (OKBLABLA, ">", "$scriptdir\\OK\\$folder\\$file") or die "Can't create OK folder";
print OKBLABLA "success";
close OKBLABLA;
Похоже, что $folder
часть вызывает проблемы; когда я удаляю его, он работает - любая идея, почему? Разве скрипт не создаст новую директорию?
'open' не создает каталоги ... Вместо этого попробуйте' mkdir' или родителям каталога, который вы хотите создать, не существует, то функция 'make_path' из [' File :: Path'] (http://perldoc.perl.org/File/Path.html). – Dada
@Dada thanks, используется «use File :: Path qw/make_path /;», работает –
Почему вы не попросили Perl включить причину ошибки 'open' в сообщение об ошибке? 'die" Невозможно создать папку OK: $! \ n ";' –