Perl 에서 주어진 path 를 parsing 해서 directory, extension, filename 을 알아내는 방법

다음과 같이 한다.

         use File::Basename;

         my @a = fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);  
         print "dir : $a[1]\n";  
         print "file : $a[0]\n";  
         print "ext : $a[2]\n";  

다음과 같은 함수를 만들어두면 좀더 직관적으로 쓸 수 있다.

 use File::Basename;

 sub filepathParse  
 {  
      my @a = fileparse(shift, qr/\.[^.]*/);  
      return ($a[1], $a[0], $a[2]);  
 }  

검색어 : perl path manipulation, filename
키워드 : pathname, basename, string, filenameOnly
레퍼런스 : http://perldoc.perl.org/File/Basename.html