我怎么能转换:
awk '{print $2 >> $1}' file
在一个简短的 Perl one-liner 中？
"file"可能如下所示:
fruit banana
vegetable beetroot
vegetable carrot
mushroom chanterelle
fruit apple
最佳答案
可能还有其他一些方法，但这是我能想到的
perl -ane 'open(FILE,">>",$F[0]); print FILE $F[1];close(FILE);' file
关于perl - 在 Perl 单行中转换 "awk ' {print $2 >> $1 }' file"的最佳方法是什么？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/3849015/