Sponsored Content
Full Discussion: Stuck with awk !!!
Top Forums UNIX for Advanced & Expert Users Stuck with awk !!! Post 302853481 by Scott on Saturday 14th of September 2013 02:04:02 PM
Old 09-14-2013
Code:
awk '
  NR == FNR { if( !$2 ) { B++; next }
              BANK[B]+= $1
              next
            }
  ! $2 { T = BANK[++C]; print $0 " (total " T ")"; next }
  {
    printf( "%.2f ", $1 / T * 100 )
  } 1
' file file

Code:
Bank1.sss (total 69)
91.30      63  Result code [0] 
2.90       2  Result code [106] 
5.80       4  Result code [108] 
Bank2.sss (total 482)
98.34     474  Result code [0] 
0.21       1  Result code [103] 
0.83       4  Result code [106] 
0.41       2  Result code [187] 
0.21       1  Result code [580]

 

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

stuck....!

I have been busy reading away on devices and filesystems and I am stuck on a particular subject matter.. I'm not understanding the concept behind mknod mkfifo makedev or related commands.. can anyone shed some light on the subject.! any feedback welcome! moxxx68 (0 Replies)
Discussion started by: moxxx68
0 Replies

2. Shell Programming and Scripting

Got stuck so plz help

I'm having problem writing a shell script using bash that takes a file as an argument. The script should be able to determine what permissions the owner, group and everybody has for the file passed in. could anyone plz help me out. (3 Replies)
Discussion started by: boris
3 Replies

3. UNIX for Dummies Questions & Answers

stuck and confused

#!/bin/bash echo $1 | cat - $2 >> /tmp/$$ && mv /tmp/$$ $2 im trying to get the first argument to go in the middle of the second argument which is a file, anyone any ideas. i have only managed to get it to go on the end or the front. been fiddling about with wc -l, i get the number of lines... (5 Replies)
Discussion started by: iago
5 Replies

4. Programming

I'm stuck :(

Suppose that I have some data: 12,30 12,45 2,3 7,8 3,9 30, 8 45,54 56,65 Where (a,b) indicates that a is connected to b. I want to get all connected nodes to one point. For instance, the output of the above example should be something like: Group 1 2,3 3,9 Group 2 12,30 12,45... (4 Replies)
Discussion started by: Legend986
4 Replies

5. AIX

really stuck- need to get a variable within a variable- AWK

Hi all, I have been struggling with this all day, and it is key to a conversion database I have to write. The data converts the information out of an array using AWK, and basically all I have to do is figure out how to get the value of a variable inside a variable. Right now at its... (11 Replies)
Discussion started by: jeffpas
11 Replies

6. Shell Programming and Scripting

help! im stuck..

I want to search for the line with the group name and add the user into the group. The file format is the same as /etc/group The code i wrote is egrep "^$newGID" $group >/dev/null FS=":" oldData=awk -F: '{print $3}' newData= "$oldData,$newUser" sed -n $4/$newData $group but a friend... (1 Reply)
Discussion started by: cherrywinter
1 Replies

7. Shell Programming and Scripting

I am stuck in my script

Hi All I have script that find 777 dir with specific extension like .php .Now after finding all 777 directory i will place in httpd.conf using a directory directive ,Now i was not do that,if directory entry exitst in httpd.conf then script ignor it dont show me at stdout else if it dont find... (2 Replies)
Discussion started by: aliahsan81
2 Replies

8. Shell Programming and Scripting

awk getting stuck after BEGIN

I am beginner in awk awk 'BEGIN{for(i=1;(getline<"opnoise")>0;i++) arr=$1}{print arr}' In the above script, opnoise is a file, I am reading it into an array and then printing the value corresponding to index 20. Well this is not my real objective, but I have posted this example to describe... (1 Reply)
Discussion started by: akshaykr2
1 Replies

9. Linux

Stuck in pthread_cond_signal()

I am developing a multi-threaded library that helps the transformation of messages between threads in different processes using shared memory. I am using the pthreads condition facility in order to synchronize access to the shared memory slots through which the messages are passed. My test... (2 Replies)
Discussion started by: dhzdh
2 Replies

10. Homework & Coursework Questions

stuck on assignment

I was given this to do, Write a Shell script to automatically check that a specified user is logged in to the computer. The program should allow the person running the script to specify the name of the user to be checked, the frequency in seconds at which the script should check. If a... (1 Reply)
Discussion started by: operator
1 Replies
Net::Jabber::Dialback::Result(3)			User Contributed Perl Documentation			  Net::Jabber::Dialback::Result(3)

NAME
Net::Jabber::Dialback::Result - Jabber Dialback Result Module SYNOPSIS
Net::Jabber::Dialback::Result is a companion to the Net::Jabber::Dialback module. It provides the user a simple interface to set and retrieve all parts of a Jabber Dialback Result. DESCRIPTION
To initialize the Result with a Jabber <db:*/> you must pass it the XML::Stream hash. For example: my $dialback = new Net::Jabber::Dialback::Result(%hash); There has been a change from the old way of handling the callbacks. You no longer have to do the above yourself, a NJ::Dialback::Result object is passed to the callback function for the message. Also, the first argument to the callback functions is the session ID from XML::Streams. There are some cases where you might want this information, like if you created a Client that connects to two servers at once, or for writing a mini server. use Net::Jabber qw(Server); sub dialbackResult { my ($sid,$Result) = @_; . . . } You now have access to all of the retrieval functions available. To create a new dialback to send to the server: use Net::Jabber qw(Server); $Result = new Net::Jabber::Dialback::Result(); Now you can call the creation functions below to populate the tag before sending it. For more information about the array format being passed to the CallBack please read the Net::Jabber::Client documentation. Retrieval functions $to = $Result->GetTo(); $from = $Result->GetFrom(); $type = $Result->GetType(); $data = $Result->GetData(); $str = $Result->GetXML(); @dialback = $Result->GetTree(); Creation functions $Result->SetResult(from=>"jabber.org", to=>"jabber.com", data=>key); $Result->SetTo("jabber.org"); $Result->SetFrom("jabber.com"); $Result->SetType("valid"); $Result->SetData(key); Test functions $test = $Result->DefinedTo(); $test = $Result->DefinedFrom(); $test = $Result->DefinedType(); METHODS
Retrieval functions GetTo() - returns a string with server that the <db:result/> is being sent to. GetFrom() - returns a string with server that the <db:result/> is being sent from. GetType() - returns a string with the type <db:result/> this is. GetData() - returns a string with the cdata of the <db:result/>. GetXML() - returns the XML string that represents the <db:result/>. This is used by the Send() function in Server.pm to send this object as a Jabber Dialback Result. GetTree() - returns an array that contains the <db:result/> tag in XML::Parser::Tree format. Creation functions SetResult(to=>string, - set multiple fields in the <db:result/> from=>string, at one time. This is a cumulative type=>string, and over writing action. If you set data=>string) the "from" attribute twice, the second setting is what is used. If you set the type, and then set the data then both will be in the <db:result/> tag. For valid settings read the specific Set functions below. SetTo(string) - sets the to attribute. SetFrom(string) - sets the from attribute. SetType(string) - sets the type attribute. Valid settings are: valid invalid SetData(string) - sets the cdata of the <db:result/>. Test functions DefinedTo() - returns 1 if the to attribute is defined in the <db:result/>, 0 otherwise. DefinedFrom() - returns 1 if the from attribute is defined in the <db:result/>, 0 otherwise. DefinedType() - returns 1 if the type attribute is defined in the <db:result/>, 0 otherwise. AUTHOR
By Ryan Eatmon in May of 2001 for http://jabber.org.. COPYRIGHT
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.12.1 2004-08-17 Net::Jabber::Dialback::Result(3)
All times are GMT -4. The time now is 08:31 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy