免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 2933 | 回复: 11

抓取文件名 [复制链接]

论坛徽章:
2
2015年亚洲杯之沙特阿拉伯
日期:2015-03-27 17:28:472015年亚洲杯之韩国
日期:2015-03-27 22:34:22
发表于 2016-08-23 09:50 |显示全部楼层
本帖最后由 tingshuibanxia 于 2016-08-23 13:18 编辑

大家好!

在目录:/home/perl/  下有一系列文件:X4.scv
                                                    X1.scv
                                                     X22.scv
                                                     test
                                                     1.pl


想要抓取*.scv文件的前缀,用于后续分析,
写了一个脚本,请大神帮忙看看:



  1. #!/usr/bin/perl -w
  2. use strict;

  3. my @files = glob("/home/perl/*.scv");
  4. foreach my $file(sort @files){
  5.         my $ID =$file=~m/\w+\/;
  6.         print $ID;
  7. }


复制代码


输出: X1  X4 X22

论坛徽章:
6
丑牛
日期:2014-03-21 15:42:04子鼠
日期:2014-04-12 11:50:17处女座
日期:2014-09-01 09:25:1115-16赛季CBA联赛之吉林
日期:2015-12-22 14:01:5215-16赛季CBA联赛之广东
日期:2016-03-08 18:49:422016科比退役纪念章
日期:2016-07-06 12:19:55
发表于 2016-08-23 11:09 |显示全部楼层
试试?
  1. #!/usr/bin/perl -w
  2. use strict;

  3. my @files = glob("/home/perl/*.scv");
  4. foreach my $file(sort @files){
  5.         my ($ID) = $file =~ m{/home/perl/([^.]+)\.};
  6.         print "$ID$/";
  7. }
复制代码

论坛徽章:
2
2015年亚洲杯之沙特阿拉伯
日期:2015-03-27 17:28:472015年亚洲杯之韩国
日期:2015-03-27 22:34:22
发表于 2016-08-23 13:17 |显示全部楼层
似乎有点问题,不知道这种从变量中来匹配的正则表达怎么写啊啊啊啊

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-08-23 14:33 |显示全部楼层
试下 File::Basename 模块中的 basename 方法:
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use File::Basename;

  5. foreach (glob ('./*.scv')){
  6.     my $basename = basename ($_, '.scv');
  7.     print "$basename\n";
  8. }
复制代码

评分

参与人数 1信誉积分 +5 收起 理由
tingshuibanxia + 5 赞一个!

查看全部评分

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-08-23 15:29 |显示全部楼层
my ($ID) = $1 if ($file =~ m/(\w+)\./);    # $file => X4.scv
(\w+) => X4
\.        => .

论坛徽章:
6
丑牛
日期:2014-03-21 15:42:04子鼠
日期:2014-04-12 11:50:17处女座
日期:2014-09-01 09:25:1115-16赛季CBA联赛之吉林
日期:2015-12-22 14:01:5215-16赛季CBA联赛之广东
日期:2016-03-08 18:49:422016科比退役纪念章
日期:2016-07-06 12:19:55
发表于 2016-08-23 17:04 |显示全部楼层
额,那就用命令吧
  1. ls /home/perl/*.scv | cut -f4 -d / | cut -f 1 -d .
复制代码

回复 3# tingshuibanxia


求职 : 软件工程师
论坛徽章:
3
程序设计版块每日发帖之星
日期:2015-10-07 06:20:00程序设计版块每日发帖之星
日期:2015-12-13 06:20:00程序设计版块每日发帖之星
日期:2016-05-05 06:20:00
发表于 2016-08-23 21:05 |显示全部楼层
看到目录, 我就想到用 File::Find::Wanted qw(find_wanted); 这个模块提供的方法能够找出子目录中所有的文件, 自动过滤目录. 取文件名用 File::Basename;
这样这个代码即使处理别的文件夹, 或者嵌套包含文件夹的文件夹, 都能重用了.

  1. use 5.020;
  2. use File::Basename qw(basename);
  3. use File::Find::Wanted qw(find_wanted);

  4. my @files = find_wanted(sub { /\.csv$/}, ".");
  5. for (@files) {
  6.     say basename($_);
  7. }
  8. # my @sufix_name = map { basename} @files;
复制代码

评分

参与人数 1信誉积分 +5 收起 理由
tingshuibanxia + 5

查看全部评分

论坛徽章:
0
发表于 2016-08-23 21:23 |显示全部楼层
回复 7# 104359176
大神说的太棒啦!


求职 : 软件工程师
论坛徽章:
3
程序设计版块每日发帖之星
日期:2015-10-07 06:20:00程序设计版块每日发帖之星
日期:2015-12-13 06:20:00程序设计版块每日发帖之星
日期:2016-05-05 06:20:00
发表于 2016-08-24 19:09 |显示全部楼层
写了太多无用的代码, 只希望能写点以后可能用到的代码.

论坛徽章:
6
15-16赛季CBA联赛之新疆
日期:2016-03-22 22:34:5915-16赛季CBA联赛之山东
日期:2016-04-11 09:08:41程序设计版块每日发帖之星
日期:2016-06-28 06:20:00程序设计版块每日发帖之星
日期:2016-07-19 06:20:00每日论坛发贴之星
日期:2016-07-19 06:20:0015-16赛季CBA联赛之青岛
日期:2016-07-20 22:44:17
发表于 2016-08-25 02:56 |显示全部楼层
该道隔壁去问shell问题:
$>  echo $(for i in *scv ; do echo ${i%*.scv}; done)
X1 X22 X4

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP