Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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

by ww (Bishop)
on Jan 02, 2013 at 13:31 UTC ( #1011273=note: print w/ replies, xml ) Need Help??


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

I'm with johngg on this.

WHY are you doing something that looks like makework? If you need to sort customers by alpha (the only plausible reason for your spec that I've dreamed up), you can do that with the datestamp in its initial position. This 4th line of this code is lifted almost verbatim from the doc for sort

my @old = qw(20120301Customer100 20120402Alsocust200 20130102Nothercu3 +00); my (@new, $item); @new = sort { substr($a, 8) cmp substr($b, 8) } @old; for $item(@new) { say $item; }

See perldoc -f sort and perldoc -f substr. But for best results (and as has been asked before) tell us what you really want to do and WHY you think you need to do that.


Comment on Re: Remove digits from a string and add timestamp to the result
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1011273]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2014-09-22 07:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (182 votes), past polls