if (-f)가 작동하지 않는 이유는 무엇입니까?

Question

처음에 ARGV [0]이 파일인지 디렉토리인지 확인하는 경우 정확한 결과가 적용되어 정상적으로 작동합니다. 그런 다음 하위 파일로 내려 가면 다시 시도하고 아무 것도 반환하지 않습니다. 이것은 작은 어리석은 질문처럼 보일지도 모르지만 주말에 프로그래밍과 학생에 대한 도움이 부족합니다. 때로는 새로운 눈 세트가 도움이 될 수 있습니다. 미리 감사드립니다. 이미 언급 한 바와 같이 당신은 당신의 파일 경로를 놓치고

#!/usr/bin/perl -w 

my %hash; 
my $args = @ARGV; 

my $dh = $ARGV[0]; 

if (-f $dh) { 
    words($dh); 

} elsif (-d $dh) { 
    files($dh); 
} 

sub words { 
    open(my $file, '<', $_[0]) or die 'cant open file'; 
    while (my $line = <$file>) { 
     chomp $line; 
     @words = split(/\s+/, $line); 
     foreach $word (@words) { 
      $word =~ tr/A-Z/a-z/; 
      $hash{$word}++; 
     } 
    } 

    foreach $key (keys %hash) { 
     print $key. " " . $hash{$key} . "\n"; 
    } 
} 

sub files { 
    opendir(DH, $_[0]); 
    my @paths = grep !/^\./, readdir(DH); 
    closedir(DH); 
    foreach (@paths) { 
     if (-f $_) { 
      print $_. "\n"; 
     } 
    } 
} 

Answer 1

,

if (-f "$_[0]/$_") .. 

또는 덜 모호한 수 있도록,

sub files{ 
    my ($path) = @_; 

    opendir(my $DH, $path); 
    my @paths = grep !/^\./, readdir($DH); 
    closedir($DH); 

    foreach (@paths) { 
    if (-f "$path/$_") { 
     print "$_\n"; 
    } 
    } 
} 

Answer 2

, readdir의 반환 값은 포함 basename. 따라서 파일 테스트를 수행하려면 chdir 또는 경로 정보를 명시 적으로 포함시켜야합니다.

if (-f "$_[0]/$_") { 

하나 개의 대안 솔루션은 크로스 플랫폼 경로 지정 조작을 수행하기위한 Path::Class 또는 이와 유사한 모듈을 사용하는 것입니다.

use strict; 
use warnings; 

use Path::Class; 

my $path = shift // die "Usage: $0 <Dir or File>\n"; 

words($path) if -f $path; 
files($path) if -d $path; 

sub words { 
    my $file = file(shift); 

    my %count; 
    $count{ lc($_) }++ for split ' ', $file->slurp; 

    for my $key (keys %count) { 
     printf "%s %s\n", $key, $count{$key}; 
    } 
} 

sub files { 
    my $dir = dir(shift); 

    for ($dir->children) { 
     next if $_->is_dir; 
     print "$_\n", $_->basename; 
    } 
}