Re: [問題] 一個關於perl讀檔的問題 請各位高手幫忙！
#!/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
推
05/01 22:02, , 1F
05/01 22:02, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
