perl分离文件名和文件路径

---

前言

我们在利用perl脚本处理文件的时候，有时候需要分离文件路径和文件名。

---

一、perl分离文件名和文件路径

我们可以利用现有的模块中的函数来快速实现这个功能。

use File::Basename;

my $filename = 'c:\demo\perl_demo.pl';

my $basename = basename $filename;
my $dirname = dirname $filename;

print $basename . "\n"; # perl_demo.pl
print $dirname . "\n"; # c:\demo

二、perl组合文件名和文件路径

这里顺便记录一下如何组合文件路径和文件名。

use File::Spec;

my $basename = 'perl_demo.pl';
my $dirname = 'c:\demo';

my $filename = File::Spec->catfile($dirname, $basename);

print $filename . "\n";

---

总结

本文主要记录perl中分离和组合文件路径与文件名的方法。