Perl one-liner : 기본 이름과 같은 경로에서 성을 얻기 위해 배열에서 스트립 경로

Question

디렉토리에있는 dir 또는 파일의 이름을 가져 와서 최소한의 양으로 배열에 넣으려고합니다. 가능한 한 코드. <path/to/dir/*>

정규식 대체 : s/.+\///이

내가 생각하는 방법을 내 절름발이 시도가 작동 것이다 :

my @flist = <path/to/dir/*> 
s/.+\/// for @flist; 

나는

가

펄 글로브 모든 조각을 가지고 있지만 함께 넣어 수 없습니다 그러나 나는 그렇지 않다고 생각한다.

펄 마스터의 도움이 거의 필요하지 않습니까?

Gracias!

편집 : 위의 코드는 세미콜론이 필요하다고 생각합니다. N00b 실수. 죄송합니다! 아직 기술적으로 두 줄에 있지만.

Answer 1

을 내가 필요한 모든는 어떤 기능을 수행

my @flist = map m|([^/]+)$|, <path/to/dir/*>; 

Answer 2

코드가 제대로 작동하지 않는 것 같습니다. File::Basename (코어 모듈)과 같이 경로를 제거하는 모듈을 사용할 수도 있습니다. 더 간단한 방법은 경로가 전혀 포함되지 않도록하는 것입니다.

단순히 dir로 이동하고 거기에 glob을 사용할 수 있습니다. 이후에 작업 디렉토리가 변경된다는 것을 기억하십시오.

chdir "/path/to/dir"; 
my @flist = <*>; 

또한 opendir 및 readdir를 사용할 수 있습니다. 숨겨진 파일을 포함하여 glob 이상의 파일이 반환됩니다.

opendir my $dh, "/path/to/dir" or die $!; 
my @flist = readdir $dh; 

Answer 3

@flist = map basename($_), @flist; 

또는

$_ = basename($_) for @flist; 

---

줄 수 당신에게 중요하기 때문에

, 다음은 당신이 요구하는 선 당신이 이미 가지고있는 라인의 깔끔한 조합은 다음과 같습니다

my @flist = map basename($_), <path/to/dir/*>; 

Answer 4

숨겨진 파일을 모두 포함하려면 도트와 도트 도트) 당신이 할 수 있습니다 : 당신이 관심있는 diretory로 변경 한 이후

chdir /mypath or die "$!\n"; 
my @list = glob(".* *"); 

이 glob

을보기 만 파일 이름은 경로없이보고됩니다. 점과 점 점 파일을보고 건너 뛰려면하지만, 다른 숨겨진 (점) 사람을보고, 당신이 할 수 있습니다

for (@list) { 
    next if m{^\.\.?$}; 
    print "$_\n"; 
} 

Answer 5

my @flist=glob('/usr/include/*.h'); 
s/.*\///g for @flist; 
print join ("\n",@flist);