１回のｐｒｉｎｔ文で２件レコードをファイルに書くには？

[上に] [前に] [次に]
あき 1999/10/17(日) 04:05:27
１回のｐｒｉｎｔ文で２件レコードをファイルに書こうとしています。
２件のレコードは”０＜＞”で始まるものと”１＜＞”で始まるもので区別しています。

open(TATEIN,"$tatefile");
@tatelines = <TATEIN>;
close(TATEIN);

unshift(@tate_work,"1<>");
    　　unshift(@tatelines,@tate_work);

$new_tatemsg = "0<>$name<>$email<>$url<>$date<>$subj\n";
    　　unshift(@tatelines,$new_tatemsg);
# データ追加
open(TATEOUT,">$tatefile");
print TATEOUT @tatelines;
close(TATEOUT);

このように記述したところ、１回目の書き込みではうまくいったのですが、
再度ＣＧＩを起動してもう１回書き込むと、１回目に書いた”0＜＞”で始まるレコードと
２回目に書いた”1＜＞”で始まるレコードがくっついてしまい、合計３レコードになって
しまいました。

きちんと４レコードにするにはどう直せば良いのでしょうか。
お手数ですがどなたか教えていただけないでしょうか。
あき 1999/10/17(日) 17:23:07
[[解決]]
良く見たら@tate_workの最後に"\n"をつけていませんでした。
どうもすみませんでした。
[上に] [前に] [次に]