作者s1106 (big john)
看板Perl
标题[问题] 建立目录问题
时间Tue Nov 3 23:16:25 2009
写了一个从档案读取2.txt的字元来建立目录如下:
#!/usr/bin/perl -w
unless (open(INFILE, "2.txt")) {
die ("cannot open input file file:$^E\n");
}
$line=<INFILE>;
while ($line ne "") {
mkdir ($line) or warn "Cannot opendir :$^E\n";
$line=<INFILE>;
}
--------------------------------------------------
当我执行时 ,Cannot opendir :档案名称、目录名称或磁碟区标签语法错误。
有人可以告诉我哪里错了吗？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.224.56.184
1F：→ cibs:你 2.txt 里面放什麽？ 11/04 00:58
2F：→ s1106:中文字元 11/04 07:39