Sponsored Content
Full Discussion: Sorting from file
Top Forums Shell Programming and Scripting Sorting from file Post 302964120 by RudiC on Monday 11th of January 2016 03:59:56 AM
Old 01-11-2016
Yes, you're right, I forgot the matches' count although arranged for in the header and the array. Try
Code:
awk -F: '
NR==1   {print "Points\tTeam       \tMatches\tWins\tTies\tLosses"
         for (n = split ($0, TEAM); n > 0; n--) POINTS[TEAM[n]]=0
         next
        }

/^Round/        {next}

        {    split ($2, TM, "-")
             split ($3, RE, "-")
         P = split ($4, PR, ",")
         MATCHES[TM[1]]++
         MATCHES[TM[2]]++
         if (P > 3)             {POINTS[TM[1]]++
                                 POINTS[TM[2]]++
                                 TIES[TM[1]]++    
                                 TIES[TM[2]]++   
                                 VAL = 1
                                }
         else                    VAL = 3

         if (RE[1] > RE[2])     {POINTS[TM[1]] += VAL
                                 WINS[TM[1]]++
                                 LOSSES[TM[2]]++
                                }
         if (RE[1] < RE[2])     {POINTS[TM[2]] += VAL
                                 WINS[TM[2]]++
                                 LOSSES[TM[1]]++
                                }
        }
END     {for (p in POINTS) print POINTS[p], p, MATCHES[p]+0, WINS[p]+0, TIES[p]+0, LOSSES[p]+0
        }
' OFS="\t" season2002-2003.txt

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help sorting file.

Hi, I have this file (filex) 07-11-2003 10:11:12!cccc!ddd!eeeeeeee 07-11-2003 09:11:11!dddd!kkkkk!xxxxxx 09-12-2003 14:18:43!aaaa!bbbbb!cccc where I need to sort it by date+time in this order: 09-12-2003 14:18:43!aaaa!bbbbb!cccc 07-11-2003 10:11:12!cccc!ddd!eeeeeeee 07-11-2003... (3 Replies)
Discussion started by: gio123bg
3 Replies

2. Shell Programming and Scripting

sorting file

hi everyone, i have a document where i have email addresess and names, i need to check if the email addresses are uniq, if they repeat erase one of them, how can i do that? document sample: aD00763357@cucei.udg.mx,ABRAHAM ANTONIO SEVERIANO a199721111@cucei.udg.mx,ABRAHAM GONZALEZ... (4 Replies)
Discussion started by: sx3v1l_1n51de
4 Replies

3. Programming

regarding file sorting

i ahve a file like: ************************************* sree 122132 12321 *********************************** phani 21321 3213214 ****************************** dddsds 213213123 23213213 ******************************* i want to sort the file with respect to name how we can do this... (1 Reply)
Discussion started by: phani_sree
1 Replies

4. Shell Programming and Scripting

file sorting

i have a data in afile like this ************************************** sree sree@yahoo.com 98662323432 ************************************* phani phani@yahoo.com 98662323344 ************************************* i want to sort the file with respect to name. how can i do this. thank... (5 Replies)
Discussion started by: phani_sree
5 Replies

5. Shell Programming and Scripting

Sorting file

I have the file as follow: A: 60 B: 80 C: 40 D: 11 E: 100 I want to sort the file and get the output to file as follow: E: 100 B: 80 A: 60 C: 40 D: 11 Could any one help me please? (1 Reply)
Discussion started by: moutaz1983
1 Replies

6. Shell Programming and Scripting

Finding & Moving Oldest File by Parsing/Sorting Date Info in File Names

I'm trying to write a script that will look in an /exports folder for the oldest export file and move it to a /staging folder. "Oldest" in this case is actually determined by date information embedded in the file names themselves. Also, the script should only move a file from /exports to... (6 Replies)
Discussion started by: nikosey
6 Replies

7. UNIX for Dummies Questions & Answers

sorting s file

how would i sort a file on the third column based on numerical value instead of the ASCII order? (1 Reply)
Discussion started by: trob
1 Replies

8. UNIX for Dummies Questions & Answers

Sorting data in file based on field in another file

Hi, I have two files, one of which I would like to sort based on the order of the data in the second. I would like to do this using a simple unix statement. My two files as follows: File 1: 12345 1 2 2 2 0 0 12349 0 0 2 2 1 2 12350 1 2 1 2 2 2 . . . File2: 12350... (3 Replies)
Discussion started by: kasan0
3 Replies

9. Solaris

What about sorting a 5G file?

Hi Guys, My client (dear clients, I hate to love you) has the funky idea of sorting a 5G flat file. Certainly enough, this is taking forever and also fulls the / of our machine. Any idea of how we could proceed to make this a little bit more efficient? Maybe by forcing sort to "stay in... (7 Replies)
Discussion started by: plmachiavel
7 Replies

10. Shell Programming and Scripting

Need help in Sorting a file

Hi Unix Admins, I wanted to sort a file in a specific order, i.e the input file contains two fields and the first column is not unique and had to be sorted. example Input File ------- 2014-10-21:Rand1 2014-11-02:Rand2 2014-11-02:Rand3 2014-11-02:Rand4 2014-11-03:Rand5 2014-11-04:Rand6... (4 Replies)
Discussion started by: Naveenezone
4 Replies
UNIVERSAL(3pm)						 Perl Programmers Reference Guide					    UNIVERSAL(3pm)

NAME
UNIVERSAL - base class for ALL classes (blessed references) SYNOPSIS
$is_io = $fd->isa("IO::Handle"); $is_io = Class->isa("IO::Handle"); $sub = $obj->can("print"); $sub = Class->can("print"); use UNIVERSAL qw( isa can VERSION ); $yes = isa $ref, "HASH" ; $sub = can $ref, "fandango" ; $ver = VERSION $obj ; DESCRIPTION
"UNIVERSAL" is the base class which all bless references will inherit from, see perlobj. "UNIVERSAL" provides the following methods and functions: $obj->isa( TYPE ), CLASS->isa( TYPE ), isa( VAL, TYPE ) C<TYPE> is a package name $obj is a blessed reference or a string containing a package name C<CLASS> is a package name C<VAL> is any of the above or an unblessed reference When used as an instance or class method ("$obj-"isa( TYPE )>), "isa" returns true if $obj is blessed into package "TYPE" or inherits from package "TYPE". When used as a class method ("CLASS-"isa( TYPE )>; sometimes referred to as a static method), "isa" returns true if "CLASS" inherits from (or is itself) the name of the package "TYPE" or inherits from package "TYPE". When used as a function, like use UNIVERSAL qw( isa ) ; $yes = isa $h, "HASH"; $yes = isa "Foo", "Bar"; or require UNIVERSAL ; $yes = UNIVERSAL::isa $a, "ARRAY"; , "isa" returns true in the same cases as above and also if "VAL" is an unblessed reference to a perl variable of type "TYPE", such as "HASH", "ARRAY", or "Regexp". $obj->can( METHOD ), CLASS->can( METHOD ), can( VAL, METHOD ) "can" checks if the object or class has a method called "METHOD". If it does then a reference to the sub is returned. If it does not then undef is returned. This includes methods inherited or imported by $obj, "CLASS", or "VAL". "can" cannot know whether an object will be able to provide a method through AUTOLOAD, so a return value of undef does not necessarily mean the object will not be able to handle the method call. To get around this some module authors use a forward declaration (see perl- sub) for methods they will handle via AUTOLOAD. For such 'dummy' subs, "can" will still return a code reference, which, when called, will fall through to the AUTOLOAD. If no suitable AUTOLOAD is provided, calling the coderef will cause an error. "can" can be called as a class (static) method, an object method, or a function. When used as a function, if "VAL" is a blessed reference or package name which has a method called "METHOD", "can" returns a reference to the subroutine. If "VAL" is not a blessed reference, or if it does not have a method "METHOD", undef is returned. VERSION ( [ REQUIRE ] ) "VERSION" will return the value of the variable $VERSION in the package the object is blessed into. If "REQUIRE" is given then it will do a comparison and die if the package version is not greater than or equal to "REQUIRE". "VERSION" can be called as either a class (static) method, an object method or or a function. These subroutines should not be imported via "use UNIVERSAL qw(...)". If you want simple local access to them you can do *isa = &UNIVERSAL::isa; to import isa into your package. perl v5.8.0 2002-06-01 UNIVERSAL(3pm)
All times are GMT -4. The time now is 08:35 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy