perl对长度不一文本的行列进行置换的实现代码

有时遇到各行或各列的长度不一致时就麻烦了，虽然可以在R里面把文件按最长的行(列)填充，但是不便，所以想起用perl去实现一个。
由逗号分隔的不定长度的文本文件, 现要实现行列转置, 即由

以下是完整的代码，供大家参考。

准备学习下，自己动手实现一遍，最好是做成模板，随调随用。