[Perl 範例代碼] Useful Function : 取出檔案路徑中的目錄路徑

前言 : 某些場合, 我們需要針對某些檔案的路徑取出該檔案的目錄路徑, 那你就可以參考下面的範例代碼. 範例代碼 : 這裡有個 Subroutine:getDirectory. 你可以傳進一個檔案的路徑當作輸入參數. 而該API 會回傳對應該檔案路徑的目錄Path. 採用了正則表示式的解法取出檔案路徑從頭到最後一個'/' 字元的字串並回傳, 如果傳進去的路徑不是一個合法的檔案路徑 (在 Windows 中), 則返回 Null. 另外該 API 目前只支援 Windows. * test2.pl 代碼 : view plaincopy to clipboardprint? #!/usr/bin/perl -w   use Cwd;   ############################   #  Get Directory Subroutine   #  Parameter   #    In : $fp -> File path   #    Out : $directory -> File's directory path.   ############################   sub getDirectory {       my $prefix = "  ##getDirectory##: ";       my $fp = shift;       print "Get folder path from " . $fp . "... \n";        #Consider windows platform only       if(-d $fp || $fp =~ /.*\/$/) { # 如果Input 是目錄且存在, 就直接返回.           print $prefix . "Input is directory!\n";           return $fp . "/";              } else {           #print $prefix . "Check $fp ...\n";           if( $fp =~ /(^[a-zA-Z]:((\/(?! )[^\\\/:*?"<>|]+)+\/)|(\/))[^\\\/:*?"<>|]+$/){               #print "Got it: $1\n";                         return $1;           }       }           }   my $filepath = "C:/tmp/tmp2/test.txt";   my $base_dir = cwd() ;   $res1 = getDirectory $filepath;   print "\tResult1: " . $res1 . "\n";   $res2 = getDirectory $base_dir;   print "\tResult2: " . $res2 . "\n";   執行結果 : Get folder path from C:/tmp/tmp2/test.txt... Result1: C:/tmp/tmp2/ Get folder path from E:/EclipseProjects/PerlPrac/src/test... ##getDirectory##: Input is directory! Result2: E:/EclipseProjects/PerlPrac/src/test/