file seperation

[pgrimsley]

ok i am trying to seperate a single large .doc file into smaller individual .doc files the first script worked as the files had a common start and end line ....ie ABC....DEF... so seperation was prety easy. the second file has common start lines but not end lines is there a way i can have it look at the top line and referance the bage break befor it for the end line here is what i have so far

open (IN, 'te26085807.doc'); 
open (OUT,'>>te_1');
$outcount = 1;
 
while (<IN>)
 
{ 
 
    print OUT;
 
       if ( $_=~/Certification of Duty for/ )
        {
 
 
            $UIC = substr $_, 42, 5;     # extract the UIC for file name
 
        }
 
        if ( $_=~/Top line of next document/ )
        {
 
            close (OUT,'>>te_$outcount');
 
            rename ("te_$outcount","/xxxx/xxxxx/xxx/xxxxx/NAME$UIC.doc");
 
            $outcount++;
 
            open (OUT,">>te_$outcount");
        }
        }
 

[ahgan]

Try reading the beginning of file first before opening filehandler and print the line out. You can use/set a flag to determine if a filehandler is open. While reading the file content, whenever the line matches the beginning of file, check if the output filehandler is open.
1) If yes, close it, rename the file as you wish, increase your output file count... etc, open a new file for printing. (this will take care of the 2nd output file onwards)
2) If no, open a new file for printing. (this will take care of the 1st output file)
This way, you do not really need to worry about the pattern matching for the end of file.

[pgrimsley]

where can i find some sample scripts on this