配列表示画面方法について

質問

いつもお世話になります。
perlでHTMLにテーブルを書き出すプログラムを作成しております。
基本的にデータファイルを読込み、表示させているプログラムなのですが、画面仕様の変更により困っております。
たとえば下記のような構成のデータファイルを読込んで、読込んだデータを横３列（役職、氏名で一列）に表示するようテーブルの吐き出しを変更したいのですが、どのようにすればよろしいでしょうか
？
＜データファイル＞
番号<>役職<>氏名

＜書出し＞
現在は読込んだデータをそのままセルに入れております。
<tr>
　　<td>$sNewsData[5]</td>
　　<td>$sNewsData[6]</td>
</tr>

単純にファイルを３つに分けおのおのフォームで読込むのでは余りにもお粗末（データ書出しプログラムの変更をしたくない）と思いまして。
表示部分のプログラムだけで解決したいと思っております。

どなたかご教示願います。

回答No.2

osamuy · ベストアンサー

表示順序に制約が無いのであれば、
<tr><td>行1<td>行2<td>行3</tr>
<tr><td>行4(snip.)
――で済むのでは。
表示順序を保ったまま3段分割するなら、

案1)いったん配列@dにデータを読み込んで、
push @a, map { '<><>'; }(1 .. (2-$#a) % 3); # 3段ぴったりになるよう詰め物。
my $step = ($#a + 1) / 3; #１段分のデータ数を計算。
――として、
<tr><td>行1<td>行$step+1<td>行$step*2+1</tr>
<tr><td>行2<td>行$step+2<td>行$step*2+2</tr>
――と出力。
案2)テーブルをネストする。
<table>
<table>
<tr><td>行1<td>行2<td>行3</tr>
</table><table>
<tr><td>行$step+1<td>行$step+2<td>行$step+3</tr>
(snip)

補足

ご回答ありがとうございます。
理解力不足で申し訳ありませんが案１をもう少し詳しく解説していただけますでしょうか？
push @a, map { '<><>'; }(1 .. (2-$#a) % 3); や$step = ($#a + 1)
や<tr><td>行1<td>行$step+1<td>行$step*2+1</tr>が分かりません。
大変恐縮ですが、よろしくお願いいたします。
今日中に製作しないといけないのですが、解決しておりません。

回答No.3

osamuy

データを3分割して出力するために、1次元配列のデータを２次元配列にみたてて、n行めを出力するためのデータを
$a[0][n], $a[1][n], $a[2][n]
――として扱ってみるというのが案1です。
扱いたいデータは2次元ですが、実際に持ってるのは1次元のデータなので、２次元から1次元に逆変換する必要があります。
これは簡単で、1次元配列の要素数をNとし、それを3分割した場合の1段のサイズをMとすると、M * 3 = Nが成り立ち、2次元配列a[x][y]との間には1次元配列d[k]の間には、
x * M + y = k
――が成り立ちます。
これで1次元配列があったとき、そのデータを2次元配列のように扱う方法が理解できたかと思います。

実際には3で割り切れない場合があるので、要素を1個か2個追加して割り切れるようにしてみます。そうしておくと後のプログラミングが楽なので。それがpushとmapのところ。瑣末な話なので混乱させたのなら、申し訳ないです。

お礼

osamuyw様回答が遅れて申し訳ありません。大変参考になりました。ありがとうございます。

回答No.1

rafysta

my $file = 'sample.dat';
open IN, '<', $file or die "cannot open $file: $!";
while(<IN>){
chomp;
my @data = split /<>/;
print "<tr>\n";
foreach(@data){
print "<td>$_</td>";
}
print "</tr>\n";
}
close IN;