🌈 搜索
📅 最后修改于: 2022-03-11 14:45:25.440000 🧑 作者: Mango
cat FILENAME | perl -e 'foreach $Line () { @Cols=($Line=~/^\s*(\d+)\s*(.*?)\s*$/); push(@{$Link{$Cols[0]}}, $Cols[1]); } foreach $List (values %Link) { print join("\t", @{$List})."\n"; }'