Question

我正在尝试将文件路径从文本文件发送到varible。然后我想使用该文件路径并打开它并列出里面的目录。

open (FILE, 'drive_path.txt') or die $!;
my $dir= (<FILE>);
close (FILE);
chomp $dir;
print $dir;
opendir (DIR, '$dir') or die $!;

打印输出为我提供了正确的路径位置：

C:\Documents and Settings\KSoli7151794\Desktop\TEST

但出于某种原因，它说“没有这样的文件或目录” 有什么帮助吗？

编辑：这是我桌面上的文件列表：驱动器C中的卷是操作系统驱动器卷序列号为18C9-6274

C：\ Documents and Settings目录\ KSoli7151794 \ Desktop

10/04/2013  11:35 AM    <DIR>          .
10/04/2013  11:35 AM    <DIR>          ..
11/18/2010  11:27 AM           587,776 7za.exe
10/04/2013  11:31 AM                51 drive_path.txt
10/03/2013  05:39 PM             1,494 ExtractAndCreate.bat
09/27/2013  04:34 PM               604 ExtractAndDelete.bat
10/04/2013  11:30 AM             1,854 ParseAndRename.pl
08/07/2013  11:38 AM    <DIR>          Resources
10/04/2013  11:06 AM    <DIR>          TEST
10/04/2013  11:35 AM                 0 test.txt
               8 File(s)        995,380 bytes
               4 Dir(s)  285,785,993,216 bytes free

带错误消息的新代码：

open (FILE, 'drive_path.txt') or die $!;
my $dir= (<FILE>);
close (FILE);
chomp $dir;
print $dir;
opendir (DIR, $dir) or die $!;

C:\Documents and Settings\KSoli7151794\Desktop\TEST
Invalid argument at ParseandRename.pl line 18

前18行

#!/usr/local/bin/perl

use strict;
use warnings;

open (FILE, 'drive_path.txt') or die $!;
local $/;
my $blocksize;
my $directory;
my $testcase;
my $count = -1;
my @foldernames;
my @testsuite;
my $dir = (<FILE>);
close (FILE);
chomp $dir;
print $dir;
opendir (DIR, $dir) or die $!;

解：我拿出了local$/;，似乎按预期工作了。

Answer 1

单引号可防止变量插值。您的代码尝试打开名为$dir的目录（美元符号后跟字母d等）。您的代码中不需要它们：

opendir (DIR, $dir) or die $!;

perlcritic：

可以检测到此类错误

字符串*可能*需要在第...行第15行进行插值。请参阅第页 PBP 51。（严重程度：1）

更新：试试这一行：

opendir (DIR, 'C:\Documents and Settings\KSoli7151794\Desktop\TEST') or die $!;

在Perl中不能opendir“没有这样的文件或目录”

1 个答案: