程序求助-按特定字符拆分文件

Kobe2414

各位大侠，求助一个按特定字符拆分文件的程序问题：
文件aa如下：
=== Wafer ID: A123 ===
Are
You
OK
?
=== Wafer ID: B234 ===
Yes,
I
Am
OK
.
=== Wafer ID: C345 ===
No,
I
Am
Not
OK
.

想要的结果，产生三个文件：
result_A123：
=== Wafer ID: A123 ===
Are
You
OK
?

result_B234：
=== Wafer ID: B234 ===
Yes,
I
Am
OK
.

result_C345：
=== Wafer ID: C345 ===
No,
I
Am
Not
OK
.


程序完成了一部分，下面不知道要如何操作了，求助大神。
#!/usr/bin/perl -w

open(DATA, "< aa");
  @data = <DATA>;
close DATA;

foreach $line(@data) {
  if($line =~ m/Wafer ID:\s*(\S+)/) {
    $num = $1;
      open(OUT, "> result_$num");
        print OUT $num;
      close OUT;
  }
}

Kobe2414

网速慢，重复回复了。

Kobe2414

搞定了，贴出来供大家参考修正 #!/usr/bin/perl -w open(DATA, "< aa";   @data = <DATA>; close DATA; my $outfile; foreach $line(@data) {   if($line =~ m/Wafer ID:\s*(\S+)/) {     close(OUT) if(defined($outfile));     $num = $1;     $outfile = "result_$num";     open(OUT, "> $outfile";   }   print OUT $line; } close(OUT);

Kobe2414

网速慢，重复回复了。