05-10-2012
sort
Quote:
Originally Posted by
unankix
Hi Ranga,
Thanks for the reply.
I am using the script to sort the files in a folder in order to timestamp:
opendir(DIR,$directory)|| die "Error in opening dir $directory\n";
my @sorted_files =
map $_->[1],
reverse sort { $a->[0] <=> $b->[0] }
map -f "$directory/$_" ? [ ( stat _ )[9], $_ ] : (),
readdir(DIR);
closedir(DIR)
@sorted_files=sort(@sorted_files);
Can you please let me know if there is any way I can modifythis script to first sort the files on name and then on Timestamp.
If you will explain your answer,that will be great help.
Thanks.
Dont take this req as a big deal. In perl, sort function sort the array as you required.
Cheers,
Ranga
![Smilie Smilie](https://www.unix.com/images/smilies/smile.gif)
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I have files like
ER08EVENTDC080911232324.txt
ER08EVENTCD080911232323.txt
ER08EVENTCD080910222222.txt
ER08EVENTCD080910130245.txt
ER08EVENTAA080910130245.txt
ER08EVENTAA080910232000.txt
ER08EVENTAA080911015005.txt
ER08EVENTAA080910130150.txt
ER08EVENTAA080910232010.txt... (5 Replies)
Discussion started by: harshada
5 Replies
2. Shell Programming and Scripting
Dear all,
Please advice how do I sort a file based on timestamp information. I want to sort the second column in asc/desc order which has timestamp information in format YYYY-MM-DD HH:MM:SS
Example
File - Input.txt contains
cat ss.txt
100|2009-03-30 11:38:43
141|2009-06-01 12:12:01... (1 Reply)
Discussion started by: sureshg_sampat
1 Replies
3. UNIX for Dummies Questions & Answers
Team,
Pls help writing a shell script which will sort all the files in a directory with the timestamp they were created. (like ls -lrt) (6 Replies)
Discussion started by: asappidi
6 Replies
4. Shell Programming and Scripting
Hi
I have a requirement like below
I need to sort the files based on the timestamp in the file name and run them in sorted order and then archive all the files which are one day old to temp directory
My files looks like this
PGABOLTXML1D_201108121235.xml... (1 Reply)
Discussion started by: saidutta123
1 Replies
5. Homework & Coursework Questions
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
I must write a shell script that calls two external Perl functions--one of which sorts the data in a file, and... (6 Replies)
Discussion started by: kowit010
6 Replies
6. Shell Programming and Scripting
I need to be able to identify files with file timestamps greater than a given timestamp.
I am using the following solution, although it appears to compare files at the "seconds" granularity and I need it at the milliseconds. When I tested my solution, it missed files that had timestamps... (3 Replies)
Discussion started by: nkm0brm
3 Replies
7. Shell Programming and Scripting
Hi,
Trying to sort grep result based on timestamp of the filename.
I have the following result and want to sort them on timestampgrep -i 'ERROR' *log*2013*
s_m_xxx_xxx_xxx_xxx_xxxx.log.20130906092431:TRANSF_1_1_1> DBG_21216 Finished transformations for Source Qualifier . Total errors ... (5 Replies)
Discussion started by: bobbygsk
5 Replies
8. Shell Programming and Scripting
originally the shellscript
#ln_file_name=`echo $ld_interface_date"_"${8}".csv"`
#ln_file_name=`echo 201202011527_HL_HLTM1_B04A.csv`
ln_file_name="*"`echo ${7}".csv"`
get_file_list_1=$log_path"tm1_file_list.gfl1"
cd ${source_path}
echo "Try to find any file exist in the... (10 Replies)
Discussion started by: feilhk
10 Replies
9. Shell Programming and Scripting
Hello,
I have a sample file with the below contents :
Backup Oracle8_P112_PEGA_Archivedel Completed full 10/11/2015 03:50:06PM
Backup Oracle8_G567_PEGA_Archivedel Completed full 10/11/2015 01:15:56PM
Backup Oracle8_P112_PEGA_Archivedel Completed full ... (8 Replies)
Discussion started by: rahul2662
8 Replies
10. Shell Programming and Scripting
Used below command to get list of files sorted by timestamp
find -L . -type f -name '*dat*' | xargs ls -ltrg
I want to get only the filenames so I tried adding basename but it doenst work , can some one advise on how to get only file name (1 Reply)
Discussion started by: lalitpct
1 Replies
LEARN ABOUT DEBIAN
sort::key::maker
Sort::Key::Maker(3pm) User Contributed Perl Documentation Sort::Key::Maker(3pm)
NAME
Sort::Key::Maker - multikey sorter creator
SYNOPSYS
# create a function that sorts strings by length:
use Sort::Key::Maker sort_by_length => sub { length $_}, qw(integer);
# create a multikey sort function;
# first key is integer sorted in descending order,
# second key is a string in default (ascending) order:
use Sort::Key::Maker ri_s_keysort => qw(-integer string);
# some sample data...
my @foo = qw(foo bar t too tood mama);
# and now, use the sorter functions previously made:
# get the values on @foo sorted by length:
my @sorted = sort_by_length @foo;
# sort @foo inplace by its length and then by its value:
ri_s_keysort_inplace { length $_, $_ } @foo;
DESCRIPTION
Sort::Key::Maker is a pragmatic module that provides an easy to use interface to Sort::Key multikey sorting functionality.
It creates multikey sorting functions on the fly for any key type combination and exports them to the caller package.
The key types natively accepted are:
string, str, locale, loc, integer, int,
unsigned_integer, uint, number, num
and support for other types can be added via Sort::Key::Register (or also via Sort::Key::register_type()).
USAGE
use Sort::Key::Maker foo_sort => @keys;
exports two subroutines to the caller package: "foo_sort (&@)" and "foo_sort_inplace (&@)".
Those two subroutines require a sub reference as their first argument and then respectively, the list to be sorted or an array.
For instance:
use Sort::Key::Maker bar_sort => qw(int int str);
@bar=qw(doo tomo 45s tio);
@sorted = bar_sort { unpack "CCs", $_ } @bar;
# or sorting @bar inplace
bar_sort_inplace { unpack "CCs", $_ } @bar;
use Sort::Key::Maker foo_sort => &genmultikey, @keys;
when the first argument after the sorter name is a reference to a subroutine it is used as the multikey extraction function. The
generated sorter functions doesn't require neither accept one, i.e.:
use Sort::Key::Maker sort_by_length => sub { length $_ }, 'int';
my @sorted = sort_by_length qw(foo goo h mama picasso);
SEE ALSO
Sort::Key, Sort::Key::Register.
Sort::Maker also available from CPAN provides similar functionality.
AUTHOR
Salvador Fandin~o, <sfandino@yahoo.com>
COPYRIGHT AND LICENSE
Copyright (C) 2005 by Salvador Fandin~o
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.
perl v5.14.2 2010-04-16 Sort::Key::Maker(3pm)