やあ



私は1行にキー列のすべての値を変換する、などのための処理をしています



キーcol1 col2

1 1 1

1 2 1

1 1 3

1 3 1

2 1 1

2 1 2



私は、スクリプトにはどのようにこのデータを変換してるんです



1 （鍵） | 1:2:1:3 （全Col1値） 、 1:1:3:1 （ col2値）

2 （鍵） | 1:1,1:2

これが私を達成するためにを使用している2つのwhileループと4ループの他の場合

実行するようにしている3時間以上0200000 （ 2ラック） 、このスクリプトをしている列の数を今すぐに私の生産を4とは、入力ファイル内の番号を記録している。

どのように実行時間を最小限に抑えるためのすべての考えですか？

エラーをチェック！完了しない！

ハッシュを使用して、しなければならない、この超高速！

#! /opt/third-party/bin/perl

open(FILE, "<", "r");

while(<FILE>) {
  next if(/^$/);
  chomp;
  my @arr = split(/ /);
  my @val = split(/,/, $fileHash{$arr[0]});
  $val[0] .= (":" . $arr[1]);
  $val[1] .= (":" . $arr[2]);
  $val[0] .= ("," . $val[1]);
  $val[0] =~ s/,:/,/;
  $val[0] =~ s/^://;
  $fileHash{$arr[0]} = $val[0];
}

close(FILE);

foreach my $k ( keys %fileHash ) {
  print "$k $fileHash{$k}\n";
}

exit 0

やあ、

これは[ OK ]をする必要があります。

入力：

1 1 1

1 2 1

1 1 3

1 3 1

2 1 1

2 1 2

3 1 1

4 2 1

4 1 3

1 3 1

2 1 1

2 1 2

2|1:1:1:1|1:1:1:1
3|1|1
4|2:1|2:1
1|1:2:1:3:3|1:2:1:3:3

awk '
{
if (NF>1)
{
	col[$1]=$1
	if (col1[$1]=="")
		col1[$1]=$2
	else
		col1[$1]=sprintf("%s:%s",col1[$1],$2)
	if (col2[$1]=="")
		col2[$1]=$2
	else
		col2[$1]=sprintf("%s:%s",col2[$1],$2)
}
}
END{

for (i in col)
	print i"|"col1[i]"|"col2[i]
}' filename