-PR-
回答 受付中

Perl ログファイルの一部修正

  • 困ってます
  • 質問No.9361831
  • 閲覧数203
  • ありがとう数0
  • 気になる数0
  • 回答数1

お礼率 81% (9/11)

ご教示お願い致します。

$log = "ファイルの時間";

@NEWTM = grep(/,$log,/, @DATA);
last if ($j > @NEWTM);
$data = $NEWTM[$j];

my ($LogNo,$log,$Logname,$Logtitle,$Logtext,$Logpassword,$Logip,$Lognewtm,$Logcount) = split(/,/, $data);

++$Logcount;

for my $j (0 .. $#DATA) {
if ($DATA[$j] =~ /,$log/) {
$DATA[$j] = "$LogNo,$log,$Logname,$Logtitle,$Logtext,$Logpassword,$Logip,$Lognewtm,$Logcount\n";
last;
}
}

各スレッドの単純なアクセスカウンタを設置しました。

my ($LogNo,$log,$Logname,$Logtitle,$Logtext,$Logpassword,$Logip,$Lognewtm,$Logcount) = split(/,/, $data);

これは1発目に書き込まれたものを一度書き出し

++$Logcount;

で+1をし、

$DATA[$j] = "$LogNo,$log,$Logname,$Logtitle,$Logtext,$Logpassword,$Logip,$Lognewtm,$Logcount\n";

再度、書き込むという処理なのですが、

$Logcount以外は、書き出す必要もないですし、書き込む必要もありません。

この場合での$Logcountだけを書き換える処理をしたいのですが、どのようにするのでしょうか?
通報する
  • 回答数1
  • 回答数1
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ