Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Remove digits from a string and add timestamp to the result

by sen (Hermit)
on Jan 02, 2013 at 11:43 UTC ( #1011251=note: print w/replies, xml ) Need Help??


in reply to Remove digits from a string and add timestamp to the result

Hi Sunil, If i understand your requirement correclty,

try this, Customer_."$timestmp"._100

Update:

$a=Customer100; $b=20130201; $a=~ /(.*?)(\d+)/; $a= $1."_".$b."_".$2; print $a;
Update1:
$a=~ s/(.*?)(\d+)/$1\_$b\_$2/;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1011251]
help
Chatterbox?
[1nickt]: choroba no kidding! The muscle memory alone makes it insignificant. I suppose the addition of param checking is nice. But if you are using MOo anyway you are using Type::Tiny, and you can easily use T::T for params in regular methods.

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2017-11-24 13:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (349 votes). Check out past polls.

    Notices?