作者LiloHuang (相见不如怀念)
看板Perl
标题Re: [问题] 一个关於perl读档的问题 请各位高手帮忙！
时间Thu May 1 00:19:39 2008
#!/usr/bin/perl
$input = qq~a b c d e
f g h i j
1 2 3 4 5
6 7 8 9 10~;
my @array = map{\@{[split/\s+/]}} split/$\//,$input;
for my $i(0..$#array/2) {
for my $j(0..$#{$array[$i]}) {
print "$array[$i][$j] $array[$#array/2+1+$i][$j] ";
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.40
1F：推 pqman:谢谢 不过您的语法对我来说有点难 我还要多学习！ 05/01 22:02