文件分割的问题

wanggd1983

FY08PH                           
1  1  0.0001      0.8949844      0.0025411
1  2  0.0031      0.6633958      0.0018847
1  3  0.0391      1.4998371      0.0042515
1  4  0.0871      1.7926689      0.0050744
1  5  0.0941      2.0104193      0.0056846
HN08PH                        
1  1  0.0001      0.1515567      0.0003936
1  2  0.0031      0.1733360      0.0004509
1  3  0.0391      0.0208691      0.0000542
1  4  0.0871      0.3093801      0.0008036
1  5  0.0941      0.3627602      0.0009420
1  7  0.1011      0.6468905      0.0016786
1  8  0.1121      1.0136816      0.0026284
1  9  0.1231      1.0476771      0.0027167

我有这么一个文件
现在想把FY08PH 作为文件名，然后把下一个类似行之前的输入到一个文件里，变成：

FY08PH.txt, 包含下面的内容：                           
1  1  0.0001      0.8949844      0.0025411
1  2  0.0031      0.6633958      0.0018847
1  3  0.0391      1.4998371      0.0042515
1  4  0.0871      1.7926689      0.0050744
1  5  0.0941      2.0104193      0.0056846
HN08PH.txt, 包含下面的内容：                        
1  1  0.0001      0.1515567      0.0003936
1  2  0.0031      0.1733360      0.0004509
1  3  0.0391      0.0208691      0.0000542
1  4  0.0871      0.3093801      0.0008036
1  5  0.0941      0.3627602      0.0009420
1  7  0.1011      0.6468905      0.0016786
1  8  0.1121      1.0136816      0.0026284
1  9  0.1231      1.0476771      0.0027167

先行谢过：）

libiqing77

#! /usr/bin/perl -w open FILE,"123.txt";#这里是你存放原数据的文件的路径 while (<FILE>) {        chomp;      if (/^([A-Z]+\d+[A-Z]+)/) {                  $filename="$1";             }         open OUT,">>$filename.txt";         print OUT "$_\n"; }       close OUT;

[ 本帖最后由 libiqing77 于 2009-3-24 13:40 编辑 ]

shijiang1130

while(<DATA>){         if (/[A-Z]/) {         print $_;         $fileName=$_;         open(O,">>$fileName"); } else{            print O $_; }     } __DATA__ FY08PH                            1  1  0.0001      0.8949844      0.0025411 1  2  0.0031      0.6633958      0.0018847 1  3  0.0391      1.4998371      0.0042515 1  4  0.0871      1.7926689      0.0050744 1  5  0.0941      2.0104193      0.0056846 HN08PH                         1  1  0.0001      0.1515567      0.0003936 1  2  0.0031      0.1733360      0.0004509 1  3  0.0391      0.0208691      0.0000542 1  4  0.0871      0.3093801      0.0008036 1  5  0.0941      0.3627602      0.0009420 1  7  0.1011      0.6468905      0.0016786 1  8  0.1121      1.0136816      0.0026284 1  9  0.1231      1.0476771      0.0027167

wanggd1983

搞定，多谢多谢：）