Re: Splitting a long string


Just another Perl shrine
	PerlMonks

Re: Splitting a long string

by holli (Abbot)

on Aug 22, 2007 at 11:38 UTC ( [id://634309]=note: print w/replies, xml )

Need Help??

in reply to Splitting a long string

There are basically two ways. One is destructive to the original string, the other is not but means more code:

my $long_string = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

my $i          = 0;
my $readlength = 8;

# non destructive
while ( $i <= length($long_string) ) 
{
    my $part = substr( $long_string, $i, $readlength );
    $i += $readlength;
    
    print "$part\n";
}


# destructive
while ( $long_string =~ s/^(.{1,$readlength})// ) 
{
    my $part = $1;
    print "$part\n";
}
[download]

holli, /regexed monk/