关于perl输出到不同文件

nanshanjin

我现在有一个数据，格式有4列，
1  a  b  c  d
1  e  f  g  h
. . . .
2  a  b  c  d
2 e  f  g  h
....
现在需要将第一列为1的行输出到文件1.txt，数字为2的输出到2.txt，以此类推，如果最大数字为22，则会产生22个文件，请问如何实现？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.         my ($n) = split;
   
8.         push (@{$hData{$n}}, $_);
   
9. }
   
10. 
    
11. foreach (keys %hData){
    
12.         my $fn = $_ . '.txt';
    
13.         open (my $FHw, '>', $fn);
    
14.         print $FHw @{$hData{$_}};
    
15.         close ($FHw);
    
16. }
    
17. 
    
18. __DATA__
    
19. 1  a  b  c  d
    
20. 1  e  f  g  h
    
21. 2  a  b  c  d
    
22. 2 e  f  g  h
    

复制代码

moperyblue

1. awk '{print > $1".txt"}'

复制代码

TrishaTie

回复 2# sunzhiguolu

• while (<DATA>){
•         my ($n) = split;
•         push (@{$hData{$n}}, $_);
• }
    push (@{$hData{$n}}, $_);  这句的意思能麻烦你详解下？
  

sunzhiguolu

回复 4# TrishaTie
以标量 $n 的值作为哈希变量 %hData 的"键", 且将该哈希的值用作数组引用 将标量 $_ 的值添加到该引用指向的列表中。

TrishaTie

回复 5# sunzhiguolu

哦哦， 谢谢哈， 理解了

j_cle

回复 3# moperyblue

这个很厉害啊，学习了