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;