我想具体的字将被存储在一个CSV文件

Question

我需要在一个文件名的特定词应该从文件名称目录中拉出

!/usr/bin/perl -w 

my $directory = "/home/grds/datafiles"; 
opendir(DIR, $directory) or die "couldn't open $directory: $!\n"; 
@files = grep("EXP", readdir(DIR)); 
closedir(DIR); 

foreach $file (@files) { 
    # print "$file\n"; 
     open ($file 
} 

示例文件名：

EXPresult_3D0R0000002345_test345_cache1_IND0000ASD123_2014_04_12_18_56_1 

我需要

3D0R0000002345, test345, cache1, IND0000ASD123, 2014_04_12 

应该存储在带有单独列的Excel文件中。

Answer 1

这是相当简单的，如果你想要的是一个CSV输出

这个程序会检查每个目录项目是一个文件（不是目录），并且在名称中包含EXP，然后将其分解上下划线_最多六个字段。这使得尾部的日期 - 时间完好为单个场

然后，第一场被移除时，时间是从最后一个字段剥离，和所有剩余的字段被印刷，以逗号,

我已经使用加入autodie它不需要检查opendir

use strict; 
use warnings; 
use 5.010; 
use autodie; 

use File::Spec::Functions 'rel2abs'; 

use constant DIRECTORY => '/home/grds/datafiles'; 

opendir my $dh, DIRECTORY; 

while (my $node = readdir $dh) { 

    my $fullpath = rel2abs($node, DIRECTORY); 
    next unless -f $fullpath and $node =~ /EXP/; 

    my @fields = split /_/, $node, 6; 
    next unless @fields == 6; 

    shift @fields; 
    $fields[-1] =~ s/\d+_\d+_\d+\K.*//; 

    print join(',', @fields), "\n"; 
} 

输出的成功

3D0R0000002345,test345,cache1,IND0000ASD123,2014_04_12 

Answer 2

我刚写过使用Excel :: Writer :: XLSX，你需要安装这个模块来运行这个脚本，如果已经不可用的话。如果您需要更多功能，您还可以在cpan上查看此模块。

#!/usr/bin/perl 

use strict; 
use Excel::Writer::XLSX; 

my $k   = 0; 
my $reportfile = "report.xlsx"; 
my $workbook = Excel::Writer::XLSX->new($reportfile); 
die "Problems creating new Excel file: $!" unless defined $workbook; 
my $worksheet = $workbook->add_worksheet(); 

# Excel Format 
my $format = $workbook->add_format(); 

my @val; 
opendir(my $dir, "./test/"); 
my @file = grep(/EXP/, readdir($dir)); 
while (<@file>) { 
    @val = split(/_/, $_); 
    print "$val[1] $val[2] $val[3] $val[4] $val[5]_$val[6]_$val[7]\n"; 
    $format->set_align('top'); 
    $worksheet->write($k, 0, "$val[1]",     $format); 
    $worksheet->write($k, 1, "$val[2]",     $format); 
    $worksheet->write($k, 2, "$val[3]",     $format); 
    $worksheet->write($k, 3, "$val[4]",     $format); 
    $worksheet->write($k, 4, "$val[5]_$val[6]_$val[7]", $format); 
    $k++; 
}