example file Ответов: 1

Как читать каталоги и подкаталоги с помощью переменной Perl?

У меня есть приведенный ниже код, как я могу прочитать содержимое текстового файла и проверить с помощью каталогов и подкаталогов имена существуют или нет с помощью perl.

Note:result_file.txt имеет содержание.Каждое содержимое обозначает каталоги/подкаталоги в текущем местоположении.

Что я уже пробовал:

<pre>open( my $fh2, '<', "result_file.txt" ) || die( $! ))
{
while ( my $row = <$fh2> ) {
	chomp $row;
	my $dir = $row;
      print $dir,"\n";
	#print "****$row****";
}
close($fh2);
}

1 Ответов

Рейтинг:
7

Jochen Arndt

См. файловые тестовые операции по адресу perlfunc-встроенные функции Perl - metacpan.org[^].

use Cwd;
 
my $curdir = cwd();
if (-e $dir && -d $dir)
{
    print "$dir is an existing directory at $curdir\n";
}