sxw

这个好像是chinaunix上的，有人问过，贴过来了（我忘了原帖在哪了，抱歉）

my @matrix;
my $max_len = 0;
while(<DATA>){
  chomp;
   my @fields = split / /, $_;
   my $len = @fields;
  $max_len = $max_len > $len ? $max_len : $len;
  push @matrix, [@fields];
}
for my $col (0..$max_len - 1){
  for my $line (@matrix){ 
    print $line->[$col]." "|| ' ';
  }
  print "\n";
}
__DATA__
1 2 3
a b c
复制代码

sxw

如果处理的是中文呢？比如：

　　　　　将进酒—李白
君不见，黄河之水天上来，奔流到海不复回。
君不见，高堂明镜悲白发，朝如青丝暮成雪。
人生得意须尽欢，莫使金樽空对月。
天生我材必有用，千金散尽还复来。
烹羊宰牛且为乐，会须一饮三百杯。
岑夫子，丹丘生，将进酒，杯莫停。
与君歌一曲，请君为我侧耳听：
钟鼓馔玉不足贵，但愿长醉不复醒。
古来圣贤皆寂寞，唯有饮者留其名。
陈王昔时宴平乐，斗酒十千恣欢谑。
主人何为言少钱，径须沽取对君酌。
五花马，千金裘，呼儿将出换美酒，
与尔同销万古愁。
复制代码

sxw

学习一下523066680版主的代码，哈哈

use Encode;
$n=0;
$big=0;
foreach (<DATA>) {
         chomp;
         $_=decode ("gb2312",$_);
        @{$arr[$n]}=split(//,$_);
        $big = $#{$arr[$n]} > $big ? $#{$arr[$n]} : $big;
        $n++;
}
foreach $j (0..$big) {
        foreach $i (reverse 0..$#arr) {
                printf("|%s", encode("gb2312",$arr[$i][$j])||'  ');
        }
        print "\n";
}
__DATA__
          将进酒/李白
君不见，黄河之水天上来，奔流到海不复回。
君不见，高堂明镜悲白发，朝如青丝暮成雪。
人生得意须尽欢，莫使金樽空对月。
天生我材必有用，千金散尽还复来。
烹羊宰牛且为乐，会须一饮三百杯。
岑夫子，丹丘生，将进酒，杯莫停。
与君歌一曲，请君为我侧耳听：
钟鼓馔玉不足贵，但愿长醉不复醒。
古来圣贤皆寂寞，唯有饮者留其名。
陈王昔时宴平乐，斗酒十千恣欢谑。
主人何为言少钱，径须沽取对君酌。
五花马，千金裘，呼儿将出换美酒，
与尔同销万古愁。
复制代码

sxw

20# DAIC


用reverse操作符啊