perl 如何用数据文件的头文件字段匹配任意取数据列

liuxh_198308

111111111111

liuxh_198308

花费了1天时间研究，还是没弄出来，有高手帮忙吗 ？再下不胜感激 。

MMMIX

回复 1# liuxh_198308

几点建议:
    1. 每个脚本都加上 use strict; 和 use warnings; 可以帮你检测及避免很多常见错误;
    2. 应该用现成的模块, 例如 Text::CSV, 来解析文件, 而不是自己手工解析;


至于你的问题, 你只要做个名字到列数的映射, 利用你现有的代码, 就完全可以解决了.

liuxh_198308

回复 3# MMMIX


    谢谢你的回复，我现在test.SCV 不是手工解析的 ，列的提取是根据我写的代码来提取的， 之前输入的参数是 1,2,5,6 的，现在想输入字段与文件头的字段进行匹配取出列 ，我试过很多方法不行，能帮忙看一下嘛？ 求解决 ，求大神 ，求高手！！救命啊。

MMMIX

回复 4# liuxh_198308


    你可以参考下面的例子:

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. use v5.14;
   
8. use autodie;
   
9. 
   
10. use Text::CSV;
    
11. 
    
12. # Usage: ./p.pl input.csv FIELD1 [FIELD2 ...]
    
13. 
    
14. my ($input, @fields) = @ARGV;
    
15. 
    
16. open my $in_fh, '<', $input;
    
17. 
    
18. my $csv = Text::CSV->new()
    
19.     or die "Cannot use CSV: " . Text::CSV->error_diag();
    
20. 
    
21. if (my $header = $csv->getline($in_fh)) {
    
22.     $csv->column_names(@$header);
    
23. } else {
    
24.     die "No header line in $input";
    
25. }
    
26. 
    
27. while (my $line = $csv->getline_hr($in_fh)) {
    
28.     say join ', ', map { $line->{$_} ? $line->{$_} : ' ' } @fields;
    
29. }
    

复制代码

运行示例:

$ ./p.pl input.csv eNodeB date TIMESTAMP_MILLISEC
10.0.0.36-M11375, 20150730, 161
10.0.0.32-E11443, 20150730, 629
10.0.0.36-M11375, 20150730, 161
10.0.0.36-M11375, 20150730, 162
10.0.0.36-M11375, 20150730, 163

rubyish

1 ge xiao lizi


perl abc.pl ./ test.CSV ./ , 1,2,3,4 3
perl abc.pl ./ test.CSV ./ , eNodeB,date,TIMESTAMP_SECOND,NONE,TIMESTAMP_MILLISEC 3

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. my @argv =
   
4.   qw/数据源目录 文件名 转换目标目录 分隔符 提取字段列表 开始行/;
   
5. die "usage: @argv\n" if @ARGV != @argv;
   
6. 
   
7. my ( $dir, $file, $dir2, $sep, $list, $line ) = @ARGV;
   
8. 
   
9. open my $DATA, '<', $dir . $file;
   
10. open my $SAVE, '>', $dir2 . 'ConvertLog';
    
11. 
    
12. my @list  = split ',', $list;
    
13. my @field = these();
    
14. 
    
15. convert();
    
16. 
    
17. #### SUB ####
    
18. 
    
19. sub these {
    
20.     my $field = <$DATA>;
    
21.     chomp $field;
    
22.     split $sep, $field;
    
23. }
    
24. 
    
25. sub gimme {
    
26.     return map { $_ - 1 } @list if $list[0] =~ /^\d+$/;
    
27.     my %field = map { $_, $a++ } @field;
    
28.     my $NA = keys %field;
    
29.     map { $field{$_} // $NA } @list;
    
30. }
    
31. 
    
32. sub print_fields {
    
33.     if ( $list[0] =~ /^\d+$/ ) {
    
34.         say $SAVE join $sep, map { $_ // 'NA' } @field[@_];
    
35.     }
    
36.     else {
    
37.         say $SAVE join $sep, @list;
    
38.     }
    
39. }
    
40. 
    
41. sub convert {
    
42.     my @index = gimme();
    
43.     print_fields(@index) if $line < 2;
    
44.     <$DATA> for 3 .. $line;
    
45. 
    
46.     while (<$DATA>) {
    
47.         chomp;
    
48.         my @data = map /([^"]+)/, split $sep;
    
49.         say $SAVE join ',', map { $_ // '' } @data[@index];
    
50.     }
    
51. }
    
52. 
    
53. __DATA__
    
54. eNodeB,date,HOUR,TIMESTAMP_MINUTE,TIMESTAMP_SECOND,TIMESTAMP_MILLISEC
    
55. "10.0.0.36-M11375","20150730","2","45","9","161"
    
56. "10.0.0.32-E11443","20150730","2","45","14","629"
    
57. "10.0.0.36-M11375","20150730","2","45","9","161"
    
58. "10.0.0.36-M11375","20150730","2","45","9","162"
    
59. "10.0.0.36-M11375","20150730","2","45","9","163"
    

复制代码

liuxh_198308

回复 5# MMMIX

谢谢了，这个受益匪浅 ，好好学习，天天向上！

   

liuxh_198308

回复 6# rubyish


   我执行你代码，报错 ，第二行编译不通过  ， use 5.022; 是什么东西，是版本还是模板 ？  

liuxh_198308

回复 6# rubyish


    高手，use 5.022; 你这个里面包含了哪些模板包啊。

MMMIX

回复 8# liuxh_198308


    use 5.022; 用来指定当前脚本需要的 perl 的最低版本为 5.22.