Dec 25

个人感觉perl获取文件名最方便的方法Basename 模块的使用方法 不指定

admin , 21:01 , 脚本JQuery » Perl , 评论(0) , 引用(0) , 阅读(91) , Via 本站原创 | |
搜索
我已经获得阿里云幸运券,准备分享给您。请点击获取  
个人感觉perl获取文件名最方便的方法Basename 模块的使用方法
how-to-get-perl-file-name-quick
问题:如何将一个文件的所在路径,文件名称,文件后缀区分开?比如 abc.pl 如何单独获取abc 和 pl 呢
方案:使用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/perl/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/perl/
suffix=.pl
name=perl_basename
Basename=perl_basename
dirname=/home/qilzhao
from:https://www.cnblogs.com/qixinsoc365/p/4346710.html
Tags: