awk：最初の列に基づいてソートし、2番目の列のみを出力し、2番目の列をすべて出力します。

元のawkソリューションが削除されました - aより良いソリューション公開済み

実際に入力を事前にソートしてから、awkを使用してフォーマットすることができます。

sort twocol | awk 'BEGIN{OFS="\t"} {print $1 == last ? "" : $1, $2; last = $1}'
001     01
        02
        03
        11
002     01
        02
        03
        04
003     01
007     03
010     21
137     12
        94

これにより、タブ区切りの出力が生成されます。スペースが必要な場合は結果をパイプしますexpand。

または、匿名配列のPerlハッシュを使用して2番目の列値を集計し、ソートして印刷することもできます。

perl -alne '
  push @{ $h{$F[0]} }, $F[1] 
  }{ 
  foreach $k (sort {$a <=> $b} keys %h) {
    @a = sort {$a <=> $b} @{ $h{$k} };
    print join "\n", map { ($_ == 0 ? $k : "") . "\t" . $a[$_] } 0..$#a;
  }
  ' twocol
001     01
        02
        03
        11
002     01
        02
        03
        04
003     01
007     03
010     21
137     12
        94

{$a <=> $b}ゼロパディングされたデータを事前にソートすることは、数字でソートするのと同じであるため、これらの操作は不要です。

ただ楽しく、ミラー:

mlr -S --nidx --ofs tab put -q '
  @m[$1] = is_not_array(@m[$1]) ? [$2] : append(@m[$1],$2); 
  end { 
    @m = sort(apply(@m, func(k,v) { return {k: joinv(sort(v), "\n\t")}; }));
    emit @m, ""
  }
  ' twocol 
001     01
        02
        03
        11
002     01
        02
        03
        04
003     01
007     03
010     21
137     12
        94

アイデアawk：

awk '
BEGIN { OFS="\t"  }
      { a[$1][$2] }                               # we can sort on both indices to obtain the desired ordering
END   { PROCINFO["sorted_in"] = "@ind_num_asc"    # applies to all follow-on array references (ie, both indices of the a[] array)
        for (i in a) {
            firstcol = i
            for (j in a[i]) {
                print firstcol, j
                firstcol = ""
            }
         }
      }
' twocol

メモ:これはサポートがGNU awk 4.0+必要です。PROCINFO["sorted_in"]

これで以下が生成されます。

001     01
        02
        03
        11
002     01
        02
        03
        04
003     01
007     03
010     21
137     12
        94

PROCINFO["sorted_in"]利用できない場合は、sortそれを使用して単純化されたスクリプトを提供できますawk。

awk '
BEGIN { OFS="\t" }
      { if ($1 != prev1) {
           print $1,$2
           prev1 = $1
        }
        else
           print "",$2
      }
' < <(sort twocol)

これはまた次のものを生成します。

001     01
        02
        03
        11
002     01
        02
        03
        04
003     01
007     03
010     21
137     12
        94

使用幸せ（以前のPerl_6）

~$ raku -ne 'BEGIN my %h;  %h.append: .split(/ \s+ /);  END put .key => .value.sort.join("\n\t") for %h.sort;'  file

#OR

~$ raku -ne 'BEGIN my %h;  %h.append: .words;  END put .key => .value.sort.join("\n\t") for %h.sort;'  file

これはPerlプログラミング言語の1つであるRakuで書かれた答えです。簡単に言えば、上記のコードはawk- と同じことを行い、Raku（Perlなど）の-ne非自動印刷コマンドラインフラグを使用します。

• ハッシュ値は%hブロックとして宣言されますBEGIN。
• 行が.split1 つ以上の\s空白文字の上にあります。または（2番目の答え）は、.wordsスペースに分割するRakuのルーチンです。どちらの回答でも、結果（2つ）要素はappendハッシュとしてコンパイルされるキーと値のペアとして理解されます。
• ENDブロック内では、%hハッシュ値（sortキーに含まれる）は個別に出力され、各put値.keyの後に.valueはすでに存在する各値が続きますsort.join("\n\t")。次の行に進む値を\t2番目の列に移動します。

入力例：

007 03
001 03
003 01
137 12
001 11
002 01
002 02
002 03
001 02
002 04
137 94
010 21
001 01

出力例：

001 01
    02
    03
    11
002 01
    02
    03
    04
003 01
007 03
010 21
137 12
    94

時にはRakuのデフォルト値を見るのが有益であるかもしれません。

~$ raku -ne 'BEGIN my %h; %h.append: .words; END say .key => .value.sort for %h.sort;'  file
001 => (01 02 03 11)
002 => (01 02 03 04)
003 => (01)
007 => (03)
010 => (21)
137 => (12 94)

https://docs.raku.org/type/Hash
https://raku.org