>perl -E "$_=shift @ARGV; say qq|Before: $_|; s/(\d+)/++($_=$1)/e; say + qq|after : $_|" EVO:00000000022 Before: EVO:00000000022 after : EVO:00000000023
"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
-- Dr. Cox, Scrubs
In reply to Re^2: Increment a string with letters and numbers
by NetWallah
in thread Increment a string with letters and numbers
by mrguy123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |