Sort flat file by 3rd column in perl Post: 302573398

Sponsored Content

Top Forums Shell Programming and Scripting Sort flat file by 3rd column in perl Post 302573398 by Skrynesaver on Monday 14th of November 2011 09:57:37 AM

11-14-2011

Registered User

Code:

#!/usr/bin/perl
use strict;
use warnings;

open (my $data , '<', $ARGV[0])|| die "could not open $ARGV[0]:\n$!";
my @array=(<$data>);
my @sorted=sort {(split(/\|/,$a))[2]<=>(split(/\|/,$b))[2]} @array;
print @sorted;

The "magic" line here is the sort routine, we use split to create an unnamed temporary array and then the numeric comparison operator ( <=>, also known as the spaceship operator ), to provide a numeric comparison. Perl's sort function is extremely powerful precisely because one of the arguments can be a function, (have a look at perldoc -f sort).

The method you are trying to use above works for this case, however it depends on the third field being unique to each record.

Code:

#!/usr/bin/perl
use strict;
use warnings;

my (%link_strength);
open (my $data , '<', $ARGV[0])|| die "could not open $ARGV[0]:\n$!";
my @array=(<$data>);
for (@array){
    $link_strength{$1}=$_  if /(?:[^|]+\|){2}([^|]+)/;
}
print $link_strength{$_} for (sort {$a<=>$b} keys %link_strength);

Last edited by Skrynesaver; 11-14-2011 at 11:12 AM..

This User Gave Thanks to Skrynesaver For This Post:

Skrynesaver

View Public Profile for Skrynesaver

Find all posts by Skrynesaver

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Look up column in a flat file

Here is on more go ! Need a shortcut for my problem ! problem is i have a look_update with fixed sequence of column that is : MANDT:SERAIL:SERSCHA:SEREX:EQTYP:BSTVP I will be getting data in a flat file having same number of column but the sequence could be different in each...

2. UNIX for Dummies Questions & Answers

Trim String in 3rd Column in Tab Delimited File...SED/PERL/AWK?

Hey Everybody, I am having much trouble figuring this out, as I am not really a programmer..:mad: Datafile.txt Column0 Column1 Column2 ABC DEF xxxGHI I am running using WGET on a cronjob to grab a datafile, but I need to cut the first three characters from...

3. Shell Programming and Scripting

Converting Column to Rows in a Flat file

Hi, Request To guide me in writing a shell program for the following requirement: Example:if the Input File contains the follwing data Input File Data: 80723240029,12,323,443,88,98,7,98,67,87 80723240030,12,56,6,,,3,12,56,6,7,2,3,12,56,6,7,2,3,88,98,7,98,67,87...

4. Shell Programming and Scripting

Flat File column manipulation

Hi All, I have a tab delimited input file with say 4 fields (columns) as below : 0000443 1AGPR061 2006 Daiml 0002198 1B3XG0K2 1989 Chdds 0002199 1Bd64J0L 1990 Ch34s 0002275 1B3s4J0K 1989 Chadys 0002276 1B465302 2002 Dageml 0002290 1B45430K 1989 Cays I want the 2nd column in file to...

5. Shell Programming and Scripting

How to read the first column in a flat file with ~ as delimiter

I have one flat file like below id1~col~batch1 id2~col2~batch2 id3~col3~batch3 I need to read the first column one by one and I need to write one db2 query based on that column1 Like for (i=0;i<=10;i++) do insert into table column (con_id) values (select column from table where...

6. UNIX for Dummies Questions & Answers

Sort after 2. column in array in Perl

Hey How do I sort an array numerically after the second column? My values are integers like 1, 2, 3, 4... and they are not unique, so I can't just reverse my hash and sort by keys. I wanna sort my file/array so that I get the lines with the highest value in the top - that is descending. ...

7. Shell Programming and Scripting

Summation of column value in flat file

Hello Guys Please find my below requirement I have a flat file with column headers in first line and data The structure like below col1 col2 col3 A 1 2 B 3 4 C 5 6 Say I have to take the summation of col2 (that will depend on the...

8. UNIX for Dummies Questions & Answers

sort a unix file by 3rd column

Hi, Can anybody tell me how to sort a unix file by 3rd column and not by ltr? Please help Thanks in advance

9. Shell Programming and Scripting

Sort based on positions in flat file

Hello, For example: 12........6789101112..............20212223242526..................50 ( Positions) LName FName DOB (Lastname starts from 1 to 6 , FName from 8 to 15 and date of birth from 21 to29) CURTIS KENNETH ...

10. Shell Programming and Scripting

Solution for replacement of 4th column with 3rd column in a file using awk/sed preserving delimters

input "A","B","C,D","E","F" "S","T","U,V","W","X" "AA","BB","CC,DD","EEEE","FFF" required output: "A","B","C,D","C,D","F" "S", T","U,V","U,V","X" "AA","BB","CC,DD","CC,DD","FFF" tried using awk but double quotes not preserving for every field. any help to solve this is much...

LEARN ABOUT OSX

ttk_frame

ttk::frame(n)							 Tk Themed Widget						     ttk::frame(n)

__________________________________________________________________________________________________________________________________________________

NAME

       ttk::frame - Simple container widget

SYNOPSIS

       ttk::frame pathName ?options?
_________________________________________________________________

DESCRIPTION

       A ttk::frame widget is a container, used to group other widgets together.

STANDARD OPTIONS

       -class		     -cursor		  -takefocus
       -style

       See the ttk_widget manual entry for details on the standard options.

WIDGET-SPECIFIC OPTIONS
       [-borderwidth borderWidth]  The desired width of the widget border.  Defaults to 0.  [-relief relief] One of the standard Tk border styles:
       flat, groove, raised, ridge, solid, or sunken.  Defaults to flat.  [-padding padding] Additional padding  to  include  inside  the  border.
       [-width width]  If specified, the widget's requested width in pixels.  [-height height] If specified, the widget's requested height in pix-
       els.

WIDGET COMMAND

       Supports the standard widget commands configure, cget, identify, instate, and state; see ttk::widget(n).

NOTES

       Note that if the pack, grid, or other geometry managers are used to manage the children of the frame, by the GM's requested size will  nor-
       mally take precedence over the frame widget's -width and -height options.  pack propagate and grid propagate can be used to change this.

SEE ALSO

       ttk::widget(n), ttk::labelframe(n), frame(n)

KEYWORDS

       widget, frame, container

Tk									8.5							     ttk::frame(n)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Look up column in a flat file

Discussion started by: jambesh

2. UNIX for Dummies Questions & Answers

Trim String in 3rd Column in Tab Delimited File...SED/PERL/AWK?

Discussion started by: rickdini

3. Shell Programming and Scripting

Converting Column to Rows in a Flat file

Discussion started by: srinikal

4. Shell Programming and Scripting

Flat File column manipulation

Discussion started by: net