解难题：如何把这样一个文件按照里面的内容分成许多小文件？

happyboy227

解难题：如何把这样一个文件按照里面的内容分成许多小文件？

  原文件只有一个：profile.txt
内容：
IDLihong_16542        76        84        92
Beijing        school        1982-1988
Tianjing        highschool        1998-1993
Beijing        BNU        1993-1998
IDChenying_26613        82        96        100
Shanghai        school        1983-1989
Shanghai        highschool        1989-1994
Beijing        QHU        1994-1998
Beijing      MPH         1998-now
IDZhangdong_15525        72        86        80
Shandong        school        1983-1989
Shandong        highschool        1989-1994
Beijing        BNU        1994-1998


。。。。。。。
编perl或shell程序把它分成：
文件1: Lihong_Record.txt
内容：
IDLihong_16542        76        84        92
Beijing        school        1982-1988
Tianjing        highschool        1998-1993
Beijing        BNU        1993-1998

文件2: Chenying_Record.txt
内容：
IDChenying_26613        82        96        100
Shanghai        school        1983-1989
Shanghai        highschool        1989-1994
Beijing        QHU        1994-1998

文件3: Zhangdong_Record.txt
内容：
IDZhangdong_15525        72        86        80
Shandong        school        1983-1989
Shandong        highschool        1989-1994
Beijing        BNU        1994-1998

.......

admirer

SCO UNIX

1. #!/bin/sh
   
2. cat file|sed -n '/^ID/p'|sed 's:^ID\([^_]*\)_.*$:\1:'|while read name
   
3. do
   
4. cat file|sed -n "/^ID${name}/,/^ID/p"|sed '$d' >${name}_record.txt
   
5. done

复制代码

夜未眠

另一种办法.FreeBSD

1. 
   
2. #!/usr/bin/awk -f
   
3. {
   
4.         if(match($0,/^ID[^_]*_/))
   
5.                 fn=substr($0,3,RLENGTH-3)
   
6.         print $0 >> ""fn"_Record.txt"
   
7. }
   

复制代码

powerplane

楼主在perl版也发了同样的问题
偶用perl，一个命令行就搞掂它,嘿嘿

1. perl -ne 'chomp;/^ID(.*)_/; `echo "$_" >> "$1_Record.txt"`;' profile.txt

复制代码

happyboy227

Powerplane's code don't work !!!!!!!!!!!
Every file only has one line, look:
--------------------------------------------------
$ ls
Chenying_Record.txt  profile.txt  Zhangdong_Record.txt
Lihong_Record.txt    _Record.txt

$ cat Chenying_Record.txt
IDChenying_26613 82 96 100

$ cat Zhangdong_Record.txt
IDZhangdong_15525 72 86 80

$ cat Lihong_Record.txt
IDLihong_16542 76 84 92

happyboy227

CONGRADULATION: Admirer is right !!!!!!!!!!!
look at the result:
------------------------------------------------------------------   

$ ls
Chenying_record.txt  div2               profile.txt
div1                 Lihong_record.txt  Zhangdong_record.txt

$ cat Lihong_record.txt
IDLihong_16542 76 84 92
Beijing school 1982-1988
Tianjing highschool 1998-1993
Beijing BNU 1993-1998

powerplane

? !! I did test my program before I post.
Did you misreplace operator ">>" with operator ">", that will cause your every recrod file only one line.
">>" means : append content
">" means: write/rewrite content     
Why don't you just copy and paste my code on your machine, and execute it?

here is the result on my machine:

1. echo 'for i in $(ls *_Record.txt); do echo [$i:];cat $i;echo; done' | sh

复制代码

[Chenying_Record.txt:]
IDChenying_26613 82 96 100
Shanghai school 1983-1989
Shanghai highschool 1989-1994
Beijing QHU 1994-1998
Beijing MPH 1998-now

[Lihong_Record.txt:]
IDLihong_16542 76 84 92
Beijing school 1982-1988
Tianjing highschool 1998-1993
Beijing BNU 1993-1998

[Zhangdong_Record.txt:]
IDZhangdong_15525 72 86 80
Shandong school 1983-1989
Shandong highschool 1989-1994
Beijing BNU 1994-1998

happyboy227

Powerplane: I am using Red Hat Linux 8.0 to test your code. The result is still as I posted here. Maybe your code doesn't work on Linux. By the way, What is your OS? Linux or Solaris?

powerplane

OS shouldn't be a problem to perl.
I use freebsd 5.1,and the version of perl is 5.6.1.