Search Results

You need arrays for that. Try this:
awk '{for (i=1; i<=NF; i++) if ( $i > M[i] ) M[i]=$i} END{ for (i=1; i<=NF; i++) printf "%s ",M[i]; print}' infile

assuming your column is 1 use following

awk '{x+=$1} END {print x}' infile

47shailesh's script can easily be enhanced to achieve that:
awk '{x+=$1;print x} END {print x}' infile

You can also do it using bash or ksh

for ((i=2; i<7; i++)); do
for ((j=30; j<37; j++)); do
printf "((\$$j)-(\$$i)^2\n" j i
done
done

It does? That's a bug. Muttermuttergrumble. Working on it.

---------- Post updated at 10:19 PM ---------- Previous update was at 10:17 PM ----------

What a difference one letter makes...
...

If you meant 4+8+5, then sure. I'll let it work on multiple columns, too.

$ cat data
1 5
5 6
2 7
6 8
3 9
7 10
4 11
8 12
5 13
9 ...

Surely there's a way to do that with awk. awk doesn't have a single function for it of course, since it doesn't make much sense to do a boxcar average on a single line...

Let me see if I have the...

Something like this; can be done in any scripting language fairly easily


awk '
BEGIN {
for( i =2; i < 7; i++ )
for( j = 30; j < 37; j++ )
printf(...

nawk -v row=4 -f cosmo.awk myFile
cosmo.awk:

NR==1 {ARGV[ARGC++] = ARGV[1]}
FNR==NR {if (row==FNR) split($0, rowA);next}
{
for(i=1;i<=NF;i++)
printf("%d%c", (i==1)?$i:$i/rowA[i],...

bash-3.00$ cat test
8 10 12 14 16 18 0 2 6
2 4 6 8 10 12 16 18 10
6 8 12 16 18 0 2 2 6
2 2 2 2 2 2 2 2 2
10 12 16 4 8 16 4 16 0
8 10 14 16...

Then try this:#!/usr/bin/perl
open I,"$ARGV[0]";
chomp(@x=<I>);
for ($i=0;$i<=$#x;$i++){
@y=split / +/,$x[$i];
for ($j=0;$j<=$#y;$j++){
push @{$c[$j]},$y[$j];
}
}
for...

Sorry, I didn't see your update. Try this: perl -0pe '$f=`cat file1`;$f=~s/\n//;s/\nexit.?$/ $f$&/' file2

You are subtracting from the wrong variable. Try this: awk 'NR==FNR{x=$0-1;next}/awk/&&/Delete_zero_flux/{$4=$4x}1' test test2

Assuming that words "awk" and "Delete_zero_flux" appear together only on the line that you want to change:awk 'NR==FNR{x=$0;next}/awk/&&/Delete_zero_flux/{$4=$4x}1' file2 file1

When you execute something, it runs it in a separate shell, which has its own current directory. So changing it's directory doesn't change yours.

You have to run the script in your own shell,...

$ awk '!$2&&!c++' tst
9630. 0
$ awk '!$2&&!c++{print NR}' tst
15

This one...?
sed '/ 0$/!d;q' inputfile

#!/usr/bin/perl
open I, "$ARGV[0]";
while (<I>){
$n++;
chomp;
@F=split / /;
for ($i=0;$i<=$#F;$i++){
push @{$c[$i]},$F[$i];
}
}
for ($i=1;$i<=$#F;$i++){
$min[$i]=$c[$i][0];...

Check printf and %f.

Here a simple shell loop and awk code to accomplish the same :
file[1-4] matches file1 to file4.

for i in file[1-4]; do awk ' { sum1+=$1;sum2+=$2;sum3+=$3} END { printf...

This will handle multiple files and multiple columns. Each file can have a different number of columns.


#!/usr/bin/env ksh
awk '
function show_totals( i )
{
for( i =...

Try:
awk '{print "hi \047 " $1}' all > testing.txt

You can also use a variable for the quote like:
awk -v q="'" '{print "Hi " q " " $1}' all > testing.txt

awk "{print \"x ' y\"}" all

Try this in that directory:for i in *; do perl -i -ne 'print if $.!=69' $i; done

You can join them like this: paste -d" " file1 file2 file3

#!/usr/bin/perl
open I,"$ARGV[0]";
chomp(@x=<I>);
for ($i=0;$i<=$#x;$i++){
@y=split / +/,$x[$i];
for ($j=0;$j<=$#y;$j++){
push @{$c[$j]},$y[$j];
}
}
for ($i=0;$i<=$#y;$i++){
for...