前言
我们在利用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中分离和组合文件路径与文件名的方法。