perl语言：分割路径字符串，获取文件名

最新推荐文章于 2024-07-15 22:13:36 发布
最新推荐文章于 2024-07-15 22:13:36 发布
阅读量3.6k 收藏 3
点赞数 1
分类专栏： Python 文章标签： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cvMat/article/details/79469014
版权 
#获取path变量内的A1_0.htk文件名

$path="C:\Users\ABC\Desktop\ivector\data\A1_0.htk";
@Name = split(/\\/,$path); #将path按“\”分割，得到一个数组，@表示数组
$num = 1; #因为perl数组是从0开始，一会需要将数组的长度减1
$count = @Name;  #获取数组的长度
$ind = $count-$num; #perl两数相减
$fileName = $Name[$ind]; #最终获取文件名
print "$fileName" #打印结果
cvMat
关注
专栏目录
Perl基础
luguifang2011的专栏
11-30 2127
脚本 Perl 是一种脚本语言，它在每次运行前都需要编译。在unix/linux下，通常perl脚本都是以 #!/usr/bin/perl 为开头的。这其实是perl（可执行文件）的全局路径，这个路径当然可以写成其他，只要能找到perl， 但有一点需要注意，perl的全局路径（/usr/bin/perl)不能超过32个字符。 Perl的内容和命令行 Perl路径给出后: #!/usr/bi
Perl语言学习笔记 9 正则表达式处理文本
Anders的技术成长专栏
08-15 1481
1、替换 s/PATTERN/REPLACE/; #返回是否替换成功的布尔值 可以使用捕获变量，如：s/(\w)/$1/ 匹配失败则不做任何处理 2、定界符 对于没有左右之分的定界符，重复三次即可，如：s///、s### 对于有左右之分的定界符，需使用两对，一对包含模式，一对包含替换字符串，这两对可以不一样，如：s{}{}、s[]{}、s 3、可选修饰符 /g可进行全局替换，
Perl 获取当前目录下所有文件名
mjj_1094的博客
12-06 4645
#查找该目录下所有不同子目录下的文件，并输出路径  #!/usr/bin/perl -w use strict; use File::Spec;   local $\ ="\n";#当前模块的每行输出加入换行符     my %options;   ###目录路径 $options{single_case} = 's';#$path= 's';也可     my @case
Perl分割字符串的一个精妙的写法
weixin_34019929的博客
01-25 419
1 #!/usr/bin/perl -w 2 use strict; 3 use warnings; 4 5 #分割字符串的一个精妙的写法 6 sub spliteName 7 { 8 my $fileName = shift ; 9 my $arr_hash_ref = shift ; 10 open my $fd ,'<'...
perl 分割文件路径和文件名
weixin_30606669的博客
08-07 251
while (<DATA>) { ($name1, $name2) = /(.*)\\(.*)/;print "$name1 $name2\n"; } __DATA__E:\xyz\123\A汉字.docE:\f中文\abc\123\pp.txtE:\mm\pic\a哈d哈\abc.jpgE:\shen\ab\2啊\2哦2.jpgE:\a\b\e\c.jpg 转载于...
oracle下perl文件路径,perl 读取所需文件的路径，然后打开相应的文件
weixin_39966465的博客
04-11 128
以下是DNA序列，存储在window下F：\perl\data.txt里面：AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCCCCCCCGTCGTAGTAAAGTATGCAGTAGCVGCCCCCCCCCCGGGGGGGGAAAAAAAAAAAAAAATTTTTTATAAACG下面是程序：#下面的程序是用来计算一段DNA序列中ATGC的数量的#首先定义四种碱基的数量为0$c...
Perl初级教程 （5） 遍历文件夹内指定扩展名文件，查找匹配关键字的输出。
weixin_30279671的博客
07-25 509
#!/usr/bin/perl -W## File: find.pl# License: GPL-2 use strict;use warnings;use File::Find; #定义要匹配的关键字 my $str1="20090414095014";my $str2="Report"; #定义键盘接收输入，第一个为文件夹路径，第二个为文件扩展名。 die "Usage: $0...
Perl split字符串分割函数用法指南
Free雅轩的博客
04-18 3948
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中。 本文和大家重点讨论一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中。这个Perl split函数使用规则表达式（RE），如果未特定则工作在$_变量上。 Perl split函数 Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分
fg.rar_文件分割 perl
09-20
"fg.rar_文件分割 perl" 这个压缩包文件提供了一个使用Perl编程语言来实现大文本文件分割的解决方案。Perl因其强大的文本处理能力和正则表达式功能，在处理这类任务时表现出色。 首先，Perl是一种高级通用编程语言...
Linux工具应用_PERL
最新发布
qq_39355579的博客
07-15 551
perl脚本是当前工作中最常用的脚本，还是先熟练掌握之后再看其他
Perl内置及特殊变量
06-18
- **$’**：在上个格式匹配信息后的字符串，与$`配合使用进行字符串分割。 - **$+**：与上个正则表达式搜索格式匹配的最后一个括号，用于解析复杂的正则表达式匹配。 - **$<**：当前执行解释器的用户的真实ID，用于...
perl 处理文件路径的一些模块
点点滴滴的积累
07-14 427
原帖地址：http://yesho.blogbus.com/c1615293/index_3.html perl有句格言：There is more than one way to do it。意思就是任何问题用perl都有好几种解决方法。以前处理文件路径的时候都是自己写正则表达式，而用perl的模块来解决则更加迅速、准确。 1). File::Basename 有3个方法：fi...
[Perl]字符串拆分及拼接案例
元直的博客
08-11 1479
Perl字符串拆分及拼接案例 背景：将文件中的32bit数据（Hex，16进制表示的数据）拆分为每8bit一组，并在每2个组中间插入ECC，不关心ECC的具体值，用任意数据替代即可。
【perl】【 split】使用
lu20090288的博客
04-15 1331
perl split会根据给定的模式拆分字符串，对于使用制表符、冒号、空格或任意符号分割不同字段数据的字符串来说，用这个操作符分解提取字段相当方便。只要你能将分隔符写成模式，就可以用split分解数据。
perl如何遍历指定文件夹下的指定扩展名文件，并按时间顺序要求删除
kongjunlongaa的博客
06-07 1980
（linux下）要求是，遍历/ccd/pa/下的所有后缀为log的文件（包括所有子文件夹），只保留时间顺序离现在最近的20个文件，其它删除。 ; my $num = 20; my $pattern = 'log$'; ＃my $basedir = '/ccd/pa/'; my @files
Perl安装路径
weixin_30848775的博客
02-05 760
Linux下默认安装路径： /usr/share/perl 该路径下包含了perl的版本，进到对应的版本目录下，可以看到perl默认带的模块。 转载于:https://www.cnblogs.com/sunhuijian/archive/2013/02/05/2893536.html...
perl分离文件名和文件路径
hh199203的博客
06-24 876
主要记录perl中分离和组合文件路径与文件名的方法
perl 文件/路径 读写删
fdsafwagdagadg6576的专栏
01-17 1140
example1: read from command line 钻石操作符 #!/opt/exp/bin/perl -w sub say { print @_,"\n"; } my $file =$ARGV[0]; open (my $fh, ' #@a= read file to array; then while read array one by one
Perl字符串处理函数大全
北雨南萍
02-17 1463
本文重点讨论Perl字符串处理函数的用法,每种函数都有各自的特点和作用, 下面请看本文详细介绍. Perl字符串处理函数 1. index 语法: position=index(string,substring,position); 语义: 返回子串substring在字符串string中的位置,如果不存在则返回-1。 参数position是可选项,表示匹配之前跳过的字符数,或
Perl语言：数字字符串转换与编程历史概览
在Perl语言学习课件中，我们主要探讨了数字与字符串的转换以及Perl语言的历史发展和特性。Perl是一种强大的脚本语言，它起源于1987年12月的Perl 1.0版本，由Randal Schwartz等人开发，最初是为了简化Unix shell脚本...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值