file writing

[setak]

Hi,thanks 4 the previous help.
my problem is I have some data like this in a file=

AB:110256
aattggcaatgc
AB:1569854
ttgcttgcaa
aatcgcttttaa
ttttaaatgc
AB:569587
atgccttcat
cctcggattaag

I need to develop a programme,which will create multiple files according to the AB number (like AB:569587 will be one file)
and put each sequence in their corresponding files.like:

ttgcttgcaa
aatcgcttttaa
ttttaaatgc

this sequence will be put in the AB:1569854 file.

I have so far made a code which makes files according to the AB numbers,that is:

..
 
#!usr/bin/perl -w
open(FH,"h.txt")or die "cant open file";
@a=<FH>;
foreach $line(@a){
open(FHO,">$line") ;
                 }
 
close FH;
close FHO;
 
..

But I really dont know how to put data to each file from the main file,according to the file no.and their corresponding sequence.
plz help

[eWish]

Can you provide some actual data? Also, how is this data stored in the file, is it on one line or over multiple lines? What is separating the data?

--Kevin

[KevinADC]

personally I would like to see more effort on your part next time. This code is only tested with the sample data provided, may perform diferrently with real data:

#!usr/bin/perl
use strict;
use warnings;
open(FH,"h.txt")or die "cant open file: $!";
MAINLOOP: while (<FH>) {
    if (/^(AB:\d+)/) {
        chomp;
        tr/:/-/d;# because : should not be in filenames I change it to -
        open(FHO,">", $_) or die "Can't create file $_: $!";
        while (<FH>) {
            if (/^(AB:\d+)/) {
                close FHO; 
                redo MAINLOOP;
            }
            print FHO;
        }
    }
}                   
close FH;
print "finished";