在Perl单行中转换"awk"{print $ 2 >> $ 1}"文件"的最佳方法是什么？

Question

我怎么能转换:

awk '{print $2 >> $1}' file

在一个简短的Perl单线程？

"文件"可能如下所示:

水果香蕉
蔬菜甜菜根
蔬菜胡萝卜
蘑菇鸡油菌
果子苹果

Answer 1

可能还有其他一些方法,但这是我能想到的

perl -ane 'open(FILE,">>",$F[0]); print FILE $F[1];close(FILE);' file