Shell Programming and Scripting

awk:

Code:

awk '{
	a[$2]=sprintf("%s %s",a[$2],$0)
}
END{
for(i in a)
 print a[i]
}' file

perl:

Code:

open(FH,"<file");
while(<FH>){
	@arr=split(" ",$_);
	$_=~tr/\n//d;
	$hash{$arr[1]}=sprintf("%s %s",$hash{$arr[1]},$_);
}
close(FH);
for $key(keys %hash){
print $hash{$key},"\n";
}

$ cat file
00:03:6e:4e:4f:5c
00:09:7b:4e:4c:6d
00:04:55:5a:8d:ec

$ cat file | tr '\n' ' '
00:03:6e:4e:4f:5c 00:09:7b:4e:4c:6d 00:04:55:5a:8d:ec $

is this wat you needed?

Did you try to use nawk or /usr/xpg4/bin/awk as suggested?

Thanks so much for all your help, I appreciate it ...
Sara

I have a H U G E file with over 1million entries in it.
Looks something like this:

USER0001|DEVICE001|VAR1
USER0001|DEVICE001|VAR2
USER0001|DEVICE001|VAR3
USER0001|DEVICE001|VAR4
USER0001|DEVICE001|VAR5
USER0001|DEVICE001|VAR6
USER0001|DEVICE002|VAR1
USER0001|DEVICE002|VAR2
USER0001|DEVICE002|VAR3
USER0001|DEVICE002|VAR4
USER0001|DEVICE002|VAR5
USER0002|DEVICE001|VAR1
USER0002|DEVICE001|VAR2
USER0002|DEVICE001|VAR3
USER0002|DEVICE001|VAR4
USER0002|DEVICE001|VAR5
USER0002|DEVICE002|VAR1
USER0002|DEVICE002|VAR2
USER0002|DEVICE002|VAR3
USER0002|DEVICE002|VAR4
USER0002|DEVICE002|VAR5
USER0003|DEVICE003|VAR1
USER0003|DEVICE003|VAR2
USER0003|DEVICE003|VAR3
USER0003|DEVICE003|VAR4
USER0003|DEVICE003|VAR5
USER0003|DEVICE003|VAR6
USER0003|DEVICE003|VAR1
USER0003|DEVICE003|VAR2
USER0003|DEVICE003|VAR6


I would like a way to output only the uniq veriables onto a single line like so:

USER0001|DEVICE001|VAR1|VAR2|VAR3|VAR4|VAR5|VAR6
USER0001|DEVICE002|VAR1|VAR2|VAR3|VAR4|VAR5
USER0002|DEVICE001|VAR1|VAR2|VAR3|VAR4|VAR5
USER0002|DEVICE002|VAR1|VAR2|VAR3|VAR4|VAR5
USER0003|DEVICE003|VAR1|VAR2|VAR3|VAR4|VAR5|VAR6
USER0003|DEVICE003|VAR1|VAR2|VAR6


Is this doable with awk or do I need to use perl?

Please don't hijack threads - start a new thread for new unrelated questions.
Forum's rules can be found here.
Yes, it is possible with either awk or perl.

ok, borrowing from the previous suggestion on this thread:

Code:

nawk 'BEGIN {FS="|"}END{for(r in _)print r FS _[r]}{idx=$1 FS $2;_[idx]=_[idx]?_[idx] FS $3:$3}' myFile