DAIC

9# sxw


非常感谢！
看来你们地球上除了那一两个人之外，还是有其他人会Perl的的，我很欣慰。

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

DAIC

6# 523066680


你这样处理之后就变成1列了，不是我希望的结果。

523066680

恩，我也刚来。
Demon 发表于 2011-6-11 10:51

你怎么现在才来

523066680

空格要切分吗 ，我按逐字符处理了

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

输出结果

1a

2b

3c

Demon

那个人可能刚来…… 不管……  做题ing
523066680 发表于 2011-6-11 10:41

恩，我也刚来。

523066680

这里不就是Perl版块吗，不在这里，那该去哪儿呀？！
我发现这个论坛里面思维诡异的人还真是不少呢！
DAIC 发表于 2011-6-11 09:46

那个人可能刚来…… 不管……  做题ing

DAIC

这里不就是Perl版块吗，不在这里，那该去哪儿呀？！
我发现这个论坛里面思维诡异的人还真是不少呢！

chenqldiy

Perl?这个,你问错地方了把?