awk '
function print_total() {
printf("\nTotal Sum of %s: %d\n", last, total)
}
last != substr($1, 1, 4) {
if(NR > 1) {
print_total()
printf("\n=======================\n")
}
last = substr($1, 1, 4)
total = 0
}
{ print
total += $2
}
END { print_total()
}' hhhh
but, with the sample data you provided, I get the output:
Code:
aaa1a 1
aaa1g 2
aaa1f 3
Total Sum of aaa1: 6
=======================
baa4f 3
baa4d 4
baa4s 4
Total Sum of baa4: 11
=======================
cddg1 3
cddg3 4
Total Sum of cddg: 7
=======================
cddfg 1
Total Sum of cddf: 1
instead of what you said you wanted. The output above seems to more correctly match the title of this thread. If this isn't what you really wanted, please explain your requirements more clearly.
You should always tell us what operating system and shell you're using when you start a new thread. Otherwise, suggestions you receive might not work in your environment. In this case, if you're using a Solaris/SunOS operating system, change awk in the above suggestion to /usr/xpg4/bin/awk or nawk.
Note that using cat as you did in your sample code, eats up system resources and makes your code slower than letting awk read the file directly (as I did in my suggestion above).
This User Gave Thanks to Don Cragun For This Post:
Hi, I've written a shell function in bash that reads letters into an array, then outputs them in one column with:
for n in "${array}"; do
echo $n
done
I was wondering if anyone knew how i would transpose the letters that are output by the for loop. Right now my output is:
aabbcc... (4 Replies)
Hi,
I need to remove all lines from a file that do not start with numbers
For instance, if the first three characters on any line are not numbers, delete those lines
I've tried to do it with awk and it's not working, any ideas ?
Thanks (5 Replies)
I want to add letters A,B,C,… in front of every line of input while printing them out using PERL.
eg
A file is parsed as a cmd line arg and its context will be displayed as
A line1...
B line 2..
I tried this..but I want better and perfect solution!
!perl -p
my $counter;
BEGIN { $counter... (4 Replies)
Hello,
I am working with a perl script that tries to find the average "frequency" in which lines are duplicated. So far I've only managed to find the way to count how many times the lines are repeated, the code is as follows:
perl -ae'
my $filename= $ENV{'i'};
open (FILE, "$filename") or... (10 Replies)
I'm reading in numbers from a file and trying to add them together. Here is the code so far. I know the 1+2+3.... part is wrong. The file has five numbers in it with each number on its own line. The numbers are decimals if that matters. Thanks.
while read EachLine
do
echo $EachLine
done <... (6 Replies)
Hi,
Is there a tool somewhat parallel to rev, but which randomizes instead of reverses?
I've tried rl, but I can only get it to randomize words.
I was hoping for something like this
echo "hello" | ran
leolh
less simpler solutions are also welcome.
Sorry if the question is... (21 Replies)
Hi there,
first of all this is not homework...this is a new type of exercise for practicing vocabulary with my students.
I have a file consisting of two columns, separated by a tab, each line consisting of a word and its definition, separated by a line break.
What i need is to replace a... (15 Replies)
The awk below executes and is close (producing the first 4 columns in desired). However, when I add the sum of $7, I get nothing returned. Basically, I am trying to combine all the matching $4 in f1 and output them with the average of $7 in each match. Thank you :).
f1
... (2 Replies)
Discussion started by: cmccabe
2 Replies
LEARN ABOUT V7
pgmtexture
pgmtexture(1) General Commands Manual pgmtexture(1)NAME
pgmtexture - calculate textural features on a portable graymap
SYNOPSIS
pgmtexture [-d d] [pgmfile]
DESCRIPTION
Reads a portable graymap as input. Calculates textural features based on spatial dependence matrices at 0, 45, 90, and 135 degrees for a
distance d (default = 1). Textural features include:
(1) Angular Second Moment,
(2) Contrast,
(3) Correlation,
(4) Variance,
(5) Inverse Difference Moment,
(6) Sum Average,
(7) Sum Variance,
(8) Sum Entropy,
(9) Entropy,
(10) Difference Variance,
(11) Difference Entropy,
(12, 13) Information Measures of Correlation, and
(14) Maximal Correlation Coefficient.
Algorithm taken from:
Haralick, R.M., K. Shanmugam, and I. Dinstein. 1973. Textural features for image classification. IEEE Transactions on Systems, Man, and
Cybertinetics, SMC-3(6):610-621.
BUGS
The program can run incredibly slow for large images (larger than 64 x 64) and command line options are limited. The method for finding
(14) the maximal correlation coefficient, which requires finding the second largest eigenvalue of a matrix Q, does not always converge.
REFERENCES
IEEE Transactions on Systems, Man, and Cybertinetics, SMC-3(6):610-621.
SEE ALSO pgm(5), pnmcut(1)AUTHOR
Copyright (C) 1991 by Texas Agricultural Experiment Station, employer for hire of James Darrell McCauley.
22 Aug 1991 pgmtexture(1)