Search Results

This line overwrites the system variable $PATH. From that point on your script will not be able to find any programs without using the full path.
Choose another name for this variable. Something...

can you try this

the below code is to remove the non-printing characters


perl -lane '$_=~ tr/\x20-\x7f//cd;print $_' input.txt > output.txt

Please use code tags (https://www.unix.com/how-post-unix-linux-forums/167686-forum-video-tutorial-how-use-code-tags.html) for codes and data samples. Otherwise extra spaces would be truncated and the...

Perl, ok?
perl -ane '$x{$F[0]}+=$F[1]; $y{$F[0]}+=$F[2]; END {for(sort keys %x){print "$_ $x{$_} $y{$_}\n"}}' inputfile

It should work
please not that there is a double space in the given sed rule :

s/ */ /g is s/<space><space>*/<space>/g

Please copy paste exactly what you have tried because for me it works...

If infile is sorted:
awk 'p!=$1{if(p)print p,s,t;s=t=x;p=$1}{s+=$2;t+=$3}END{print p,s,t}' infile
otherwise:
sort infile | awk 'p!=$1{if(p)print p,s,t;s=t=x;p=$1}{s+=$2;t+=$3}END{print p,s,t}'

$
$ cat f60
bag 12 12
bag 18 15
bags 15 13
bags 15 14
blazer 24 24
blazer 33 32
boots 19 15
$
$ perl -lane '$i=0; map{$x{$F[0]}->[$i++]+=$_} @F[1,2]}{for (sort keys %x){print "$_...

awk '{a[$1]+=$2;b[$1]+=$3}END{for (i in a) print i,a[i],b[i]}' yourfile
Note that this code assume your file is already sorted on its first-column

If you want the output sorted :
awk...

Try: awk '{a[$1]+=$2;b[$1]+=$3}END{for (i in a) print i,a[i],b[i]}' file