Split a long string into smaller string

I am reading fields from a large file and I end up with a variable holding a string of an unfixed length (1->50000 bytes). I need a perl script that will take this long string and if it is longer than 4,000 bytes, split it into an array of strings of 4,000 bytes or less.
LVL 2
mikedgibsonAsked:
Who is Participating?
 
mikedgibsonConnect With a Mentor Author Commented:
I accomplished it with

my $length = length($note);
if ($length >= 4000) {
      $numnotes = ($length-($length%4000))/4000;      
      for ($i = 0; $i <= $numnotes; $i++) {      
        print "Note Part ".($i+1).":".substr($note,$i2*4000,4000)."\"\n";
      }

Maybe not the best way to do it but it works.
0
 
FishMongerCommented:
0
 
mikedgibsonAuthor Commented:
I found a way to accomplish this myself.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.