我怎么能转换：
awk '{print $2 >> $1}' file
在一个简短的Perl单线程？
“文件”可能如下所示：
fruit banana
vegetable beetroot
vegetable carrot
mushroom chanterelle
fruit apple
解决方法
不是纯粹的Perl,但你可以这样做：
perl -nae '`echo $F[1] >> $F[0]`' input_file