テキストファイルになにも入っていないのを確認して・・・

質問

書き込みファイル（.txt、.datなど）は最初データは入っていませんよね。空っぽです。

そのときにある変数に0や1を入れたいのですが、ちゃんと認識してくれません。

書き込みファイルの内容は@txtに入っているとします。ただし、まだデータは1件も書き込まれていません。

foreach (@txt) {

chomp;
($id, $tonum, $c_date, $c_status, $chkbox) = split(/,/, $_);
if( !$_ ){ $id = 0;}

として、$idに0を入れたいと思ったのですが、
記録された内容は、

1,1020,2006/9/14,E,0
,1020,2006/9/14,B,0　→ココ

でした。つまりなにも入っていないのです。

ここに値を入れる方法を教えてください。

回答No.3

taseki · ベストアンサー

> if( !$_ )
> ↑で$_の中に値が入っているかどうかわかるでしょうか？

下にも書いたように、このループ内ではありえません。つまりここは永遠に実行されません（真になることはない）。
なぜなら、foreach (@txt) という文は配列@txtの「要素一つ一つに対して」処理をするループだからです。要素が無いなら1回もループしません。

> ためしに
> if(@txt)やif(!@txt)ですと、値が入っているか
> 判明した感じがします。

上記のif文がループの外（ループの前）なら有効です。

> 最後のレコードIDを取得するにはどうすればよいやら？
> データは
> 4,・・・
> 3,・・・
> 2,・・・
> 1,・・・
> 0,・・・
> という形で保存されています。
> ループで回していくと最後のidは0になってしまいます。

それで良いのでは？
ちゃんと「最後のレコードID」が取得できているように見えますが…。

もしかして、「最後のレコードID」ではなくて「レコードIDの最大値」を取得して、1を加えて新レコードのIDを生成したい、という意味ですか？
それなら、

$new_id = -1;
foreach (@txt) {
chomp;
($id, $tonum, $c_date, $c_status, $chkbox) = split(/,/);
if ($id > $new_id){ $new_id = $id;}
}
$new_id++;
# ★新レコードを追加する
$new_rec = join(',', ($new_id, $num, $date, $status, $chk));
push (@txt, $newmsg);

という感じです。
上記★の時点で、「$idの最大値に1を加えたもの」が$new_idに入っています。もし@txtが空だった場合は0が入っています。

お礼

回答ありがとうございました。お礼おそくなりました。おかげさまで上記の方法で$new_idを取得することができました。

回答No.2

taseki

正直、ロジックがさっぱり解らないので参考ですが…、以下の部分、

foreach (@txt)

↑これは、配列@txtの「要素一つ一つに対して」処理をするループです。
ですから、

if( !$_ ){ $id = 0;}

↑『もし要素が無かったら』というようなことは、このループ内でありえないです。
つまりここは永遠に実行されません。

$id は連番にしたい（先頭はゼロ）ということなら、
--------------
$id = 0;
foreach (@txt) {
　　各レコード処理
　　$id++;
}
★
--------------
とすれば、ループを抜けた★の位置では、$idの中身は、
・@txtが空だったときは、ゼロのまま
・@txtにレコードが入っていたときは、最後のレコードIDに1を加えたもの→新しく追加するレコードには、このIDを使えば良い
というようになります。

お礼

＞正直、ロジックがさっぱり解らないので参考ですが…、以下の部分

それは失礼しました。

変数の中に配列や文字が入っているかどうかを試すif文を作りたかったのです。

if( !$_ )

↑で$_の中に値が入っているかどうかわかるでしょうか？

ためしに
if(@txt)やif(!@txt)ですと、値が入っているか
判明した感じがします。

＞最後のレコードIDに1を加えたもの

はい。
最後のレコードIDを取得するにはどうすればよいやら？

データは

4,・・・
3,・・・
2,・・・
1,・・・
0,・・・

という形で保存されています。
ループで回していくと最後のidは0になってしまいます。

そこで質問文のような方法でループで最初のidを
取ろうと思ったわけです。

回答No.1

BLUEPIXY

実際のプログラムを補足していただけますか