有人看出问题了吗?
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
不能创建一个不存在的目录,在任何平台上,在任何语言我知道。
打印语句指的是$folder
变量。
但是open语句指的是一个不存在的$ordner
变量。
在脚本开头使用use strict; use warnings;
,可以很容易地找到这类问题。