open READ,"<src.txt";
foreach (<READ>) {
	$n=0;
	for $i (0..(length($_)-1)) {
		$arr[$n++].=substr($_,$i,1);
	}
}
close READ;
foreach (@arr) {
	print "$_ \n";
}
<STDIN>;
复制代码

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
复制代码

open READ,"<src.txt";
foreach (<READ>) {
        $n=0;
        for $i (0..(length($_)-1)) {
		if (substr($_,$i,1) ne " ") {
                	$arr[$n++].=substr($_,$i,1)." ";
		}
        }
}
close READ;
foreach (@arr) {
        print "$_\n";
}
<STDIN>;
复制代码

$n=0;
$big=0;
foreach (<DATA>) {
	@{$arr[$n]}=split(" ",$_);
	$big = $#{$arr[$n]} > $big ? $#{$arr[$n]} : $big;
	$n++;
}
foreach $j (0..$big) {
	foreach $i (0..$#arr) {
		print "$arr[$i][$j] ";
	}
	print "\n";
}
<STDIN>;

__DATA__
1 2 3 4
a b c dd
复制代码

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

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

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