02-02-2009
Hi Reddy,
Johnson's script absolutely fine :
for filename in *
do
printf "Average for %s = " "$filename"
awk '/^MAS/ || /^Delhi/ { ++n; sum += $3 }
END { print sum / n }
' "$filename"
done
For the change in your file content just change the line :
awk '/^MAS/ || /^Delhi/ { ++n; sum += $3 }with
awk '/^MAS/ || /^Delhi/ { ++n; sum += $6 } #as u need average of column 6....So that part of the code is dealing with the column number....as u should understand from the Average formula.....
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Anyone has a script or command in UNIX that can take 4 to five different numbers and calculate the average? (2 Replies)
Discussion started by: bbbngowc
2 Replies
2. UNIX for Dummies Questions & Answers
Hi All
I like to know how can we calculate the number of rows and the average of the values present in the file. I will not know what will be the rowcount, which will be dynamic in nature of the file.
eg.
29
33
48
30
28 (6 Replies)
Discussion started by: pk_eee
6 Replies
3. Shell Programming and Scripting
Hi Friends,
In continuation to my earlier post
https://www.unix.com/shell-programming-scripting/99166-script-find-average-given-column-also-specified-number-rows.html
I am extending my problem as follows.
Input:
Column1 Column2
MAS 1
MAS 4 ... (2 Replies)
Discussion started by: ks_reddy
2 Replies
4. Shell Programming and Scripting
Dear users,
I need your support, I have a file like this:
272134.548 6680572.715
272134.545 6680572.711
272134.546 6680572.713
272134.548 6680572.706
272134.545 6680572.721
272134.543 6680572.710
272134.544 6680572.715
272134.543 6680572.705
272134.540 6680572.720
272134.544... (10 Replies)
Discussion started by: Gery
10 Replies
5. UNIX for Dummies Questions & Answers
Could anybody help with this?
I have input below .....
david,39
david,39
emelie,40
clarissa,22
bob,42
bob,42
tim,32
bob,39
david,38
emelie,47
what i want to do is count how many names there are with different ages, so output would be like this ....
david,2
emelie,2
clarissa,1... (3 Replies)
Discussion started by: itsme999
3 Replies
6. Homework & Coursework Questions
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 am trying to complete a script which will allow me to find:
a) reads a value from the keyboard. (ask the... (4 Replies)
Discussion started by: dstewie
4 Replies
7. Shell Programming and Scripting
Dear All,
I have this file tab delimited
A 1 12 22
B 3 34 33
C 55 9 32
A 12 81 71
D 11 1 66
E 455 4 2
B 89 4 3
I would like to make the average every column where the first column is the same, for example,
A 6,5 46,5 46,5
B 46,0 19,0 18,0
C 55,0 9,0 32,0
D 11,0 1,0 66,0... (8 Replies)
Discussion started by: paolo.kunder
8 Replies
8. UNIX for Dummies Questions & Answers
I have a table, say this:
name1 num1 num2 num3 num4
name2 num5 num6 num7 num8
name3 num1 num3 num4 num9
name2 num8 num9 num1 num2
name2 num4 num5 num6 num4
name4 num4 num5 num7 num8
name5 num1 num3 num9 num7
name5 num6 num8 num3 num4
I want a code that will sort my data according... (4 Replies)
Discussion started by: FelipeAd
4 Replies
9. UNIX for Dummies Questions & Answers
I have a dataset with 120 columns. I would like to write a script, that takes the average of every two columns, starting from columns 2 and 3, and moving consecutively in frames of 3 columns, all the way until the last column.
The first column in the output file would be the averages of columns... (1 Reply)
Discussion started by: evelibertine
1 Replies
10. Shell Programming and Scripting
Experts,
Need your support for this awk script.
we have only one input file, all these column 1 and column 2 are in same file and have to do lookup for values in one file(column1 and column2) but output we need in another file
Need to grep row whose string contains 9K from column 1. When found... (6 Replies)
Discussion started by: as7951
6 Replies
LEARN ABOUT DEBIAN
net::sieve::script
Net::Sieve::Script(3pm) User Contributed Perl Documentation Net::Sieve::Script(3pm)
NAME
Net::Sieve::Script - Parse and write sieve scripts
SYNOPSIS
use Net::Sieve::Script;
my $test_script = 'require "fileinto";
# Place all these in the "Test" folder
if header :contains "Subject" "[Test]" {
fileinto "Test";
}';
my $script = Net::Sieve::Script->new ($test_script);
print "OK" if ( $script->parsing_ok ) ;
print $script->write_script;
or
my $script = Net::Sieve::Script->new();
my $cond = Net::Sieve::Script::Condition->new('header');
$cond->match_type(':contains');
$cond->header_list('"Subject"');
$cond->key_list('"Re: Test2"');
my $actions = 'fileinto "INBOX.test"; stop;';
my $rule = Net::Sieve::Script::Rule->new();
$rule->add_condition($cond);
$rule->add_action($actions);
$script->add_rule($rule);
print $script->write_script;
DESCRIPTION
Manage sieve script
Read and parse file script, make Net::Sieve::Script::Rule, Net::Sieve::Script::Action, Net::Sieve::Script::Condition objects
Write sieve script
Support RFC 5228 - sieve base
RFC 5231 - relationnal
RFC 5230 - vacation
Draft regex
missing
5229 variables
5232 imapflags
5233 subaddress
5235 spamtest
notify draft
CONSTRUCTOR
new
Argument : optional text script
Purpose : if param, put script in raw, parse script
Return : main Script object
Accessors :
->raw() : read or set original text script
->require() : require part of script
->rules() : array of rules
->max_priority() : last rule id
METHODS
parsing_ok
return 1 on raw parsing success
write_script
Purpose : write full script, require and rules parts
Return : set current require,
return rules ordered by priority in text format
equals
$object->equals($test_object): return 1 if $object and $test_object are equals
read_rules
$script->read_rules() : read rules from raw
$script->read_rules($some_text) : parse text rules
use of read_rules set $script->rules()
Return 1 on success
find_rule
Return Net::Sieve::Script::Rule pointer find by priority
Return 0 on error, 1 on not find
swap_rules
Swap priorities,
now don't take care of if/else/elsif
Return 1 on success, 0 on error
reorder_rules
Reorder rules with a list of number, start with 1, and with blanck separator. Usefull for ajax sort functions.
Thank you jeanne for your help in brain storming.
Return 1 on success, 0 on error
delete_rule
Delete rule and change priority, delete rule take care for 'if' test
if deleted is 'if'
delete next if next is 'else'
change next in 'if' next is 'elsif'
Return : 1 on success, 0 on error
add_rule
Purpose : add a rule in end of script
Return : priority on success, 0 on error
Argument : Net::Sieve::Script::Rule object
BUGS
Rewrite a hand made script will lose comments. Verify parsing success with parsing_ok method before write a new script.
SUPPORT
Please report any bugs or feature requests to "bug-net-sieve-script at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Sieve-Script>. I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
AUTHOR
Yves Agostini - Univ Metz - <agostini@univ-metz.fr>
<http://www.crium.univ-metz.fr>
COPYRIGHT
Copyright 2008 Yves Agostini - <agostini@univ-metz.fr>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
SEE ALSO
Net::Sieve
perl v5.10.0 2008-09-15 Net::Sieve::Script(3pm)