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


in reply to Understanding the Schwartzian transform.

In English, from right to left (bottom up, in this case): read list of file names in directory. Store each name in an array ref containing the filename, and its modification time. Take that new list, and sort it in descending order based on a custom sort sub that does a numerical compare on the 2nd element of the array ref (I.e., the modification time). Finally, take that now-sorted list of array refs and map each ref back to the filename by extracting the first element (remember arrays are 0-based). The result is stored in @sorted_names. Try breaking that up into its components and printing out the result of each step if you're still unsteady on the details. Hope this helps.

Replies are listed 'Best First'.
Re^2: Understanding the Schwartzian transform.
by Anonymous Monk on Jul 22, 2013 at 06:59 UTC
    ...and its associated size in bytes 
    s/associated size in bytes/modification time/;

    [download]


    Excellent. Thanks all for the help. Is this the canonical form of the Schwartzian Transform or a variant?
[reply]
[d/l]

      Is this the canonical form of the Schwartzian Transform or a variant?

      Yes, it can be considered as the canonical form of the Schwartzian Transform. The original ST that appeared in a newsgroup more than 15 years ago might not have worked on fila age (I don't remember), but, definitely, the "output_array = map {block} sort {block} map {block} input array" is the canonical form of the Schwartzian Transform.

[reply]

        but, definitely, the "output_array = map {block} sort {block} map {block} input array" is the canonical for of the Schwartzian Transform.

        Sorry, that is like the generic form of Guttman-Rosler Transforms (see links) except without the secret ingredient :)(normalize/restore)

        Schwartzian is 

        my @sorted = map  { restore_from_cache    }
             sort { by_cached_expensive   }
             map  { store_cache_expensive } @original;

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom