Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl function to sort a file based on key fields
Top Forums Shell Programming and Scripting Perl function to sort a file based on key fields Post 302283556 by KevinADC on Tuesday 3rd of February 2009 01:39:16 PM
Old 02-03-2009
Not having a year in the date makes it difficult to sort the data by date. The sort routine will assume they are all in the same year.

Code:
use strict;
use warnings;
use Time::Local;
open (IN, '<', 'c:/perl_test/testlog.txt') or die "$!";
my @sorted = map {$_->[0]}
             sort {$a->[1] cmp $b->[1] || $a->[2] cmp $a->[2] || epoch($a->[3]) <=> epoch($b->[3]) }
             map {chomp; [ $_,(split(/\|/))[0,1,3] ];} <IN>;
close (IN);
print "$_\n" for @sorted;


{
   my %months = (Jan=>0,Feb=>1,Mar=>2,Apr=>3,May=>4,Jun=>5,Jul=>6,Aug=>7,Sep=>8,Oct=>9,Nov=>10,Dec=>11);
   sub epoch {
      my ($date) = $_[0];
      my ($mon,$mday,$hour,$min) = split(/[\s:]/,$date);
      $mday =~ tr/a-zA-Z//d;
      return timegm(0,$min,$hour,$mday,$months{$mon},0);
   }
}

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need a Help with sort a text file with some fields

Ive got a file called listacdrs with this structure: 01/09/2006 12:13 p.m. 1.046.528 CF0155.DAT 01/09/2006 12:13 p.m. 1.046.528 CF0156.DAT 01/09/2006 12:13 p.m. 1.046.528 CF0157.DAT 01/09/2006 12:13 p.m. 1.046.528 CF0158.DAT 01/09/2006 12:14 p.m. ... (3 Replies)
Discussion started by: alexcol
3 Replies

2. Shell Programming and Scripting

how to replace a text inside a file based on a xml key

<c-param> <param-name>Number</param-name> <param-value>22</param-value> <description>my house number</description> </c-param> <c-param> <param-name>Address</param-name> ... (4 Replies)
Discussion started by: reldb
4 Replies

3. 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

4. UNIX for Dummies Questions & Answers

Sort the fields in a comma delimited file

Hi, I have a comma delimited file. I want to sort the fields alphabetically and again store them in a comma delimited file. For example, My file looks like this. abc,aaa,xyz,xxx,def pqr,ggg,eee,iii,qqq zyx,lmo,pqr,abc,fff and I want my output to look like this, all fields sorted... (3 Replies)
Discussion started by: swethapatil
3 Replies

5. Shell Programming and Scripting

Merge two files based on a 3rd key file

Hi, I want to merge the two files based on the key file's columns. The key file: DATE~DATE HOUSE~IN_HOUSE CUST~IN_CUST PRODUCT~PRODUCT ADDRESS~CUST_ADDR BASIS_POINTS~BASIS_POINTS ... The other 2 files are From_file & To_file - The From_file: DATE|date/time|29|9 ... (9 Replies)
Discussion started by: dips_ag
9 Replies

6. Homework & Coursework Questions

Shell script calling Perl function, sort and find data, write to new files

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

7. Shell Programming and Scripting

awk sort based on difference of fields and print all fields

Hi I have a file as below <field1> <field2> <field3> ... <field_num1> <field_num2> Trying to sort based on difference of <field_num1> and <field_num2> in desceding order and print all fields. I tried this and it doesn't sort on the difference field .. Appreciate your help. cat... (9 Replies)
Discussion started by: newstart
9 Replies

8. Shell Programming and Scripting

Fetch the values based on a Key using awk from single file

Hi, Please help to fetch the values for a key from below data format in linux. Sample Input Data Format 11055005|PurchaseCondition|GiftQuantity|1 11055005|PurchaseCondition|MinimumPurchase|400 11055005|GiftCatalogEntryIdentifier|Id|207328014 11429510|PurchaseCondition|GiftQuantity|1... (2 Replies)
Discussion started by: mohanalakshmi
2 Replies

9. Shell Programming and Scripting

How to Modify a file content in UNIX and sort for only required fields ?

I have the below contents in a file after making the below curl call curl ... | grep -E "state|Rno" | paste -sd',\n' | grep "Disconnected" > test "state" : "Disconnected",, "Rno" : "5554f1d2" "state" : "Disconnected",, "Rno" : "10587563" "state" : "Disconnected",, "Rno" :... (2 Replies)
Discussion started by: Vaibhav H
2 Replies

10. Shell Programming and Scripting

EBCDIC File Split Based On Record Key

I was wondering if anyone could explain to me how to split a variable length EBCDIC file into seperate files based on the record key. I have the COBOL layout, and so I need to split the file into 13 different EBCDIC files so that I can run each one through a C++ converter I have, and get the... (11 Replies)
Discussion started by: hanshot1stx
11 Replies

LEARN ABOUT DEBIAN

stwritetime

sttime(3)						    ShapeTools Toolkit Library							 sttime(3)

NAME

       stMktime, stWriteTime - date and time handling

SYNOPSIS

       #include <config.h>
       #include <sttk.h.h>

       time_tstMktime (char *string);

       char*stWriteTime (time_t date);

DESCRIPTION

       stMktime scans the given string and tries to read a date and time from it. It understands various formats of date strings. The following is
       a list of all valid formats, optional parts in brackets.

       [Tue] Jan 5[,] [19]93
		     This includes the standard asctime(3) format.

       Jan 5	     With no year given, the year defaults to the current year.

       [19]93/01/05  This notation requires month and day represented by exactly two digits.

       5.1.[19]93    This is the usual German notation.

       5.1.	     German notation referencing the current year.

       A certain time, given together with the date must always have the following form.

       hours:minutes[:seconds]
		       Each of the fields must be an integer value within the proper range (hours: 0-23, minutes and seconds: 0-59). Values  below
		       10 may be written as one digit numbers.

       The  time  value  may be placed anywhere in the date string: at the beginning, at the end, or somewhere in the middle. Any amount of white-
       space may be given between a field of the time value and the separating colon. The time is always considered to be local time.

       stWriteTime generates a time string similar to asctime(3) from its date argument.

SEE ALSO

       asctime(3)

BUGS

       Time Zone Names within the time string (like `MET') are not handled properly. In most cases they will cause a failure.

sttk-1.7						     Thu Jun 24 17:43:35 1993							 sttime(3)
All times are GMT -4. The time now is 04:39 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy