Increment a string with letters and numbers

mrguy123 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Increment a string with letters and numbers by jwkrahn (Abbot) on Mar 28, 2013 at 08:56 UTC
`$ perl -le'$_ = "EVO:0000023"; print; substr( $_, -7 )++; print' EVO:0000023 EVO:0000024` [download]	[reply] [d/l]
Re^2: Increment a string with letters and numbers by mrguy123 (Hermit) on Mar 28, 2013 at 09:01 UTC
Nicely done :) Thanks!	[reply]
Re: Increment a string with letters and numbers by kcott (Archbishop) on Mar 28, 2013 at 09:08 UTC
G'day mrguy123, The following substitution should do what you want: `s/(\d+)$/my $y = $1; ++$y/e` [download] In use with your specific example: `$ perl -Mstrict -Mwarnings -E ' my $x = q{EVO:0000023}; $x =~ s/(\d+)$/my $y = $1; ++$y/e; say $x ' EVO:0000024` [download] And, assuming you want `0000099` to roll over to `0000100`, this works unchanged: `$ perl -Mstrict -Mwarnings -E ' my $x = q{EVO:0000099}; $x =~ s/(\d+)$/my $y = $1; ++$y/e; say $x ' EVO:0000100` [download] -- Ken	[reply] [d/l] [select]
Re^2: Increment a string with letters and numbers by NetWallah (Canon) on Mar 28, 2013 at 19:12 UTC
Slightly shorter version of Ken's idea, taking advantage of auto-localization of $_: `>perl -E "$_=shift @ARGV; say qq\|Before: $_\|; s/(\d+)/++($_=$1)/e; say + qq\|after : $_\|" EVO:00000000022 Before: EVO:00000000022 after : EVO:00000000023` [download] "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	[reply] [d/l]
Re: Increment a string with letters and numbers by vinoth.ree (Monsignor) on Mar 28, 2013 at 08:59 UTC
String increment - reasoning *All is well*	[reply]
Re: Increment a string with letters and numbers by hdb (Monsignor) on Mar 28, 2013 at 09:00 UTC
More or less same procedure as yours but in one expression. Probably not much of an improvement... `while(<DATA>) { s/(\D+)(0*)(\d+)/sprintf("%s%07d",$1,$3+1)/e; print; } __DATA__ EVO:0000023 EVO:0000099 EVO:0010099 EVO:9999999` [download]	[reply] [d/l]
Re: Increment a string with letters and numbers by LanX (Saint) on Mar 28, 2013 at 20:15 UTC
hmm no one offered split till now :) `DB<107> ($str,$n)=split /:/,'EVO:0000023' => ("EVO", "0000023") DB<108> print "$str:",++$n EVO:0000024 DB<109> print "$str:",++$n EVO:0000025` [download] ++ is magic and does a string increment as long as you don't use $n in numeric context otherwise use sprintf Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
Re: Increment a string with letters and numbers by kschwab (Vicar) on Mar 28, 2013 at 21:09 UTC
`echo "EVO:0000023" \| perl -pe 's/(\d+)/++($_=$1)/e;'` [download]	[reply] [d/l]
Re^2: Increment a string with letters and numbers by kschwab (Vicar) on Mar 28, 2013 at 21:16 UTC
upon further examination, already submitted. ah well.	[reply]
Re^3: Increment a string with letters and numbers by emptyshell (Initiate) on May 21, 2013 at 02:24 UTC
I have the same question but how is this done if there are for example EVO:001, EV0:002, EVO:003 in a file and I want each one incremented.. I just want to supply EVO: then have it increment the number part. The closest I have gotten is this but it injects a one instead of incrementing the variable `#!perl=C:\bin\perl use warnings; use strict; use Tie::File; tie my @data, 'Tie::File', 'myfile.txt' or die $!; sub inc { my ($num) = @_; ++$num } s/(MyString\d+)/$1 . (inc($2))/eg for @data; untie @data;` [download]	[reply] [d/l]
Re^4: Increment a string with letters and numbers by Athanasius (Archbishop) on May 21, 2013 at 03:14 UTC
Re^5: Increment a string with letters and numbers by emptyshell (Initiate) on May 21, 2013 at 04:55 UTC
Re: Increment a string with letters and numbers by Anonymous Monk on Mar 28, 2013 at 08:45 UTC
However, since this is Perl, there has to be a quicker and more elegant way to do this. Nope	[reply]