Re: Splitting a long string


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Splitting a long string

by dug (Chaplain)

on Aug 22, 2007 at 10:51 UTC ( [id://634303]=note: print w/replies, xml )

Need Help??

in reply to Splitting a long string

Another way to do this is to treat your data as an "in memory" file (see perldoc -f open). Setting the INPUT_RECORD_SEPARATOR variable to a reference to an integer will make the readline operator read that many bytes, or as many as it can until EOF. Putting that all together gives us:

#!/usr/bin/perl

use warnings;
use strict;

my $string = "x" x 100_400;

{ 
  open ( my $sth, "<", \$string ) or die $!;
  local $/ = \1_000;
  while ( my $chunk = <$sth> ) {
    print $chunk, "\n";
  }
}
[download]

-- Douglas Hunter