抓取文件名

tingshuibanxia

大家好！

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


想要抓取*.scv文件的前綴，用于后續(xù)分析，
寫了一個(gè)腳本，請(qǐng)大神幫忙看看：

1. 
   
2. 
   
3. #!/usr/bin/perl -w
   
4. use strict;
   
5. 
   
6. my @files = glob("/home/perl/*.scv");
   
7. foreach my $file(sort @files){
   
8.         my $ID =$file=~m/\w+\/;
   
9.         print $ID;
   
10. }
    
11. 
    
12. 
    

復(fù)制代碼

輸出： X1  X4 X22

stanley_tam

試試？

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my @files = glob("/home/perl/*.scv");
   
5. foreach my $file(sort @files){
   
6.         my ($ID) = $file =~ m{/home/perl/([^.]+)\.};
   
7.         print "$ID$/";
   
8. }

復(fù)制代碼

tingshuibanxia

似乎有點(diǎn)問題，不知道這種從變量中來匹配的正則表達(dá)怎么寫啊啊啊啊

sunzhiguolu

試下 File::Basename 模塊中的 basename 方法:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Basename;
   
5. 
   
6. foreach (glob ('./*.scv')){
   
7.     my $basename = basename ($_, '.scv');
   
8.     print "$basename\n";
   
9. }
   

復(fù)制代碼

sunzhiguolu

my ($ID) = $1 if ($file =~ m/(\w+)\./);    # $file => X4.scv
(\w+) => X4
\.        => .

stanley_tam

額，那就用命令吧

1. ls /home/perl/*.scv | cut -f4 -d / | cut -f 1 -d .

復(fù)制代碼

回復(fù) 3# tingshuibanxia

104359176

看到目錄, 我就想到用 File::Find::Wanted qw(find_wanted); 這個(gè)模塊提供的方法能夠找出子目錄中所有的文件, 自動(dòng)過濾目錄. 取文件名用 File::Basename;
這樣這個(gè)代碼即使處理別的文件夾, 或者嵌套包含文件夾的文件夾, 都能重用了.

1. use 5.020;
   
2. use File::Basename qw(basename);
   
3. use File::Find::Wanted qw(find_wanted);
   
4. 
   
5. my @files = find_wanted(sub { /\.csv$/}, ".");
   
6. for (@files) {
   
7.     say basename($_);
   
8. }
   
9. # my @sufix_name = map { basename} @files;
   

復(fù)制代碼

華小飛_Perl

回復(fù) 7# 104359176
大神說的太棒啦！

104359176

寫了太多無用的代碼, 只希望能寫點(diǎn)以后可能用到的代碼.

RE_HASH

該道隔壁去問shell問題：
$>  echo $(for i in *scv ; do echo ${i%*.scv}; done)
X1 X22 X4