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.
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.
mikedgibsonAuthor Commented:
I found a way to accomplish this myself.
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.