http://www.perlmonks.org?node_id=1046463


in reply to sort timestamps with associated names.

Just for fun and not to be taken too seriously, here is a "Pseudo-Schwartzian" solution:

use strict; use warnings; print map { /^(.{19})(.*)$/; "$2$1\n" } sort map { /^(.*)(.{19})$/; + "$2$1" } <DATA>; __DATA__ RRsnap02 2013-07-24 12:35:35 vmk000 2013-07-22 17:16:50 vmk001 2013-07-22 20:00:36 vmk009 2013-07-23 18:21:12 vmk010 2013-07-23 18:31:00 vmk020 2013-07-23 23:30:43 vmk024 2013-07-24 03:27:30 vmk031 2013-07-24 10:27:36 vmk032 2013-07-24 11:27:38 vmk032 2013-07-24 11:27:38

UPDATE: -- for me for not realizing that choroba had posted the same thing above already: Re: sort timestamps with associated names.

Replies are listed 'Best First'.
Re^2: sort timestamps with associated names.
by choroba (Cardinal) on Jul 26, 2013 at 08:50 UTC
    This is not ST, it is Guttman Rosler.
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ