Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

sort - perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting sort - perl
# 1  
Old 04-26-2010
sort - perl
Hi,

can I sort the fields on the basis of dates in the following format?

from this

Code:
Dec 17 2007  2:18:18:000PM
Dec 17 2007  5:18:18:000AM
Jan 19 2009  4:30:02:000AM
Mar 21 2010  9:13:55:000AM
Dec 16 2007  4:29:21:000PM
Dec 24 2009 12:29:23:000PM

to
Code:
Dec 16 2007  4:29:21:000PM
Dec 17 2007  5:18:18:000AM
Dec 17 2007  2:18:18:000PM
Jan 19 2009  4:30:02:000AM
Dec 24 2009 12:29:23:000PM
Mar 21 2010  9:13:55:000AM


Thanks.
# 2  
Old 04-26-2010
Code:
$ 
$ 
$ cat -n datetimes
     1    Dec 17 2007  2:18:18:000PM
     2    Dec 17 2007  5:18:18:000AM
     3    Jan 19 2009  4:30:02:000AM
     4    Mar 21 2010  9:13:55:000AM
     5    Dec 16 2007  4:29:21:000PM
     6    Dec 24 2009 12:29:23:000PM
$ 
$ ##
$ perl -M"Date::Calc qw(:all)" -lne 'chomp($x=$_);
>   @d = Parse_Date("$_");
>   s/.* //;
>   @t = split/:/;
>   $t[0]+=12 if ($t[3] =~ /PM$/ && $t[0] < 12);
>   pop @t;
>   $dt{Date_to_Time(@d,@t)} = $x;
>   END {foreach $k (sort keys %dt) {print $dt{$k}}}
> ' datetimes
Dec 16 2007  4:29:21:000PM
Dec 17 2007  5:18:18:000AM
Dec 17 2007  2:18:18:000PM
Jan 19 2009  4:30:02:000AM
Dec 24 2009 12:29:23:000PM
Mar 21 2010  9:13:55:000AM
$ 
$

tyler_durden
# 3  
Old 04-27-2010
Thanks a lot.
I want to implement this inside the script itself.
will try it first and if needed I will ask.

Thanks again.
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need help in sort variable in perl

Hi, I need help in sorting variables in perl i have two variables and if those two variables are equal then its good. I have a problem here example: variable1= number2 number1 variable2=number1 number2 in my case above both the variables are also equal but the condition is not... (5 Replies)
Discussion started by: rocky1954
5 Replies

2. Shell Programming and Scripting

perl hash sort

I have a hash as below 'C1' => { 'x' => 41.9 , 'y' => 5.79999999999995} 'c2 288' => { 'x' => 428.05 , 'y' => 5.79999999999995} 'turn' => { 'x' => 493.25 , 'y' => 209.85} '0001' => { 'x' => 530.1 , 'y' => 195.7} '000001' => { 'x' => 235.25 , 'y' => 728.15} 'XYZ' => { 'x' => 56.65 , 'y' =>... (6 Replies)
Discussion started by: chakrapani
6 Replies

3. UNIX for Advanced & Expert Users

Perl Sort

I am getting the problem to sort these input in perl. INPUT ------ Eddie-3 Michael-1 Nica-4 Montoya-6 Then the program should print the output as follows: OUTPUT ------- Michael-1 Eddie-3 Nica-4 Montoya-6 I am only able to sort to the words but I want to sort to numbers.. My... (5 Replies)
Discussion started by: mr_harish80
5 Replies

4. Shell Programming and Scripting

sort in perl

Hi Is there any way I could reproduce the following code in perl 5.8: sort -u FILE | sort -t: -k1,1 -k2n which sorts by unicity first, then by first key, then by second key in numeric format. What I have now is @sort_array=uniq sort @sort_array; after the contents of my... (5 Replies)
Discussion started by: Indalecio
5 Replies

5. Shell Programming and Scripting

how to do sort in perl?

Hi, Can anyone advise how to correct my script pls? I'm not getting the correct output =( Details below: Logfile ======== Player Num : 14 Player Name : Jacee Thirkins MVP winner : 1998 End of details.... Player Num : 35 Player Name : Lander Diaz MVP winner : 2002... (1 Reply)
Discussion started by: gholdbhurg
1 Replies

6. Shell Programming and Scripting

perl sort

Hi all, Say i have a array @array=("abc,"a",ab"); I would like to sort them according to the length. Any idea? thanks in advanced. i tried below code, but not work. sub sort_fun{ if (length shift(@_) >= length shift(@_) ){ return 1; } else{ return 0; } } (1 Reply)
Discussion started by: summer_cherry
1 Replies

7. Shell Programming and Scripting

Sort and Unique in Perl

Hi, May I know, if a pipe separated File is large, what is the best method to calculate the unique row count of 3rd column and get a list of unique value of the 3rdcolum? Thanks in advance! (20 Replies)
Discussion started by: deepakwins
20 Replies

8. Shell Programming and Scripting

sort function in perl

Hi, here is my perl script.This script creates an array and is sorting it using the in-built sort function in perl. #!/usr/local/bin/perl my number=6; my @num_arr=(1,2,3,4,5); my @array=(23,"$number","Hello",2.345,@num_arr); #printing the array print... (2 Replies)
Discussion started by: DILEEP410
2 Replies

9. Shell Programming and Scripting

sort and uniq in perl

Does anyone have a quick and dirty way of performing a sort and uniq in perl? How an array with data like: this is bkupArr BOLADVICE_VN this is bkupArr MLT6800PROD2A this is bkupArr MLT6800PROD2A this is bkupArr BOLADVICE_VN_7YR this is bkupArr MLT6800PROD2A I want to sort it... (4 Replies)
Discussion started by: reggiej
4 Replies

10. Shell Programming and Scripting

Sort file in perl

Hi, I have an entry file for a perl script from which I need to remove duplicate entry. For example: one:two:three one:four:five two:one:three must become : one:two:three two:one:three The duplicate entry is only the first field. I try many options of sort system command but don't... (4 Replies)
Discussion started by: annececile
4 Replies
Login or Register to Ask a Question