ファイルに繰り返し行が見つかった場合にメッセージを出力する/メールを送信するperlコードを書いています。これまでの私のコード:
#!/usr/bin/perl
use strict;
my %prv_line;
open(FILE, "somefile") || die "$!";
while(<FILE>){
if($prv_line{$_}){
$prv_line{$_}++;
}
#my problem: print I saw this line X times
}
close FILE
私の問題:出力付きの静的メッセージを生成するにはどうすればよいですか:スクリプト出力を印刷せずに「この行をX回見ました」を印刷してくださいありがとう