Graham Barr wrote:

On Thu, Oct 17, 2002 at 09:37:11PM +0100, Shevek wrote:

On Thu, 17 Oct 2002, Belden Lyman wrote:

pos($_) = 9;  # skip first 9 chars
push @ext, $1 while /(.{12})/g;

No need for the while.

  pos($_) = 9;  # skip first 9 chars
  push @ext, /.{12}/g;


You're right. No need for the push, either:

pos($_) = 9;  # skip first 9 chars
@ext = /.{12}/g;


Reply via email to