Return to Answer

This is one way that use Perl tricks internals, without the need to use our global variable:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The trick here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is a trick to have in the toolchest.

This is one way that use Perl main internals, without the need to use our global variable:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The solution here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is something to have in the toolchest.

TIMTOWTDI

This is one way that use Perl tricks internals:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The trick here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is a trick to have in the toolchest.

This is one way that use Perl tricks internals, without the need to use our global variable:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The trick here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is a trick to have in the toolchest.

This is one way that use internals of Perl tricks:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The trick here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is a trick to have in the toolchest.

This is one way that use Perl tricks internals:

rename -n 'BEGIN{$main::i = 28} s/_.*/sprintf("_%03d.png", $main::i++)/e' ./*.png 

The trick here is to use the fully-qualified scalar variable $main::i (same as when in package main).

This is a trick to have in the toolchest.