Perl救援！
perl -aF’|‘ -lne ‘print join “|”, reverse @F’ < input</code>
-n
逐行读取输入并运行每个输入的代码;
-l
从输入中删除换行符并将其添加到
打印
;
-a
将输入分成
@F
阵列;
-F
指定如何分割输入（打开
|
在这种情况下）;
加入
将列表连接成一个字符串;
相反
做实际的工作。