[Perl] Basename 模塊的使用方法

問題：如何將一個文件的所在路徑，文件名稱，文件后綴區分開？

方案：perl - File:Basename 模塊

說明：在perl腳本中，使用use File::Basename模塊后，可以調用三種常用的函數：fileparse, basename, dirname.

1. fileparse： 輸入參數全路徑名稱和后綴列表；返回三個值：文件名，路徑，后綴，並存放在列表中。

2. basename: 輸入參數全路徑名稱和后綴列表; 返回文件名

3. dirname: 輸入參數全路徑名稱; 返回文件路徑

示例：

#! /usr/bin/perl

use strict;
use warnings;
use File::Basename;

my $fullname='/home/qilzhao/perl_basename.pl';
my @suffixlist=qw(.pl .txt .sv .v);
my ($name, $path, $suffix)=fileparse($fullname, @suffixlist);

print "name=$name\n";
print "path=$path\n";
print "suffix=$suffix\n";

$name=fileparse($fullname, @suffixlist);
print "name=$name\n";

my $Basename=basename($fullname, @suffixlist);
print "Basename=$Basename\n";

my $dirname = dirname($fullname);
print "dirname=$dirname\n";

執行上述腳本，得到下面的結果：

name=perl_basename
path=/home/qilzhao/
suffix=.pl
name=perl_basename
Basename=perl_basename
dirname=/home/qilzhao