05/08/23 05:30:59 jskS7WB1
質問です.
カウンターを制作しているのですが,counter.datにカウント数を記録するのに
「count=32」といったように「count=カウント数」といったように記録したいのですが,
#!/usr/bin/perl
# カウントファイルから読み込み
open(IN, "counter.txt");
$count = <IN>;
close(IN);
# カウント増加
$count++;
# カウントファイルに書き込み
open(OUT, "> counter.txt");
print READ "count=";
print OUT $count;
close(OUT);
っというところまではかけたのですが,読み込むときに,
「count=32」の数字だけを読み込んでカウントアップさせるには
読み込む部分をどのように書き直せばよろしいでしょうか?
初歩的な質問になってしまいましたが,すみませんがよろしくお願いします.