On Thu, 17 Oct 2002, Belden Lyman wrote: > >>>the numbers would be most appreciated as I'm simply picking > >>>everything in a 12 char range each time. > >>> > >>In the interest of more than one way, here's something else: > >> > >>pos($_) = 9; # skip first 9 chars > >>push @ext, $1 while /(.{12})/g; > > > > Wouldn't it be better to use split with a zero width lookahead assertion? > > Dunno - I'm having trouble writing such a split. zero width lookahead; > not my forte. I assume the use of the lookahead is to skip the pos() ?
Look at the example in perldoc -f split: print join(':', split(/(?=\w)/, 'hi there!')); Something like that might work. S. -- Shevek I am the Borg. sub AUTOLOAD{my$i=$AUTOLOAD;my$x=shift;$i=~s/^.*://;print"$x\n";eval qq{*$AUTOLOAD=sub{my\$x=shift;return unless \$x%$i;&{$x}(\$x);};};} foreach my $i (3..65535) { &{'2'}($i); }