Shell Programming and Scripting

I am trying to break a large file into smaller ones, with the break defined by the character "*".

The following is the code I have so far which breaks the input file on every line instead of at the "*" character.

Input file:

Code:

1
2
3
4
*5
6
7
8
9

Code:

Code:

#!/usr/bin/perl
open(FILE,"j1");
open(OUT,"lds_1.txt");
$filenum=1;
while(<FILE>) {
     if(  ~ /^\*/) {
           $filenum++;
     open(OUT1,">lds_$filenum.txt") || die $!;
     print OUT1 $_;
                   }
print OUT $_;
               }
close(FILE);

The output should be two files with the first file containing 1-4 and the second 6-9. The code above creates 9 files with a number in every file.

Any help is greatly appreciated.
Thanks

Code:

perl -0052ne 'open O, ">lds_$.";print O $_' j1

Very efficient code bartus11.

Thanks