在perl文件名中包含变量
我正在尝试创建一个脚本来搜索日志文件中的特定错误。日志文件有日期戳，所以我只想检查今天的日志文件。这最终将成为一项工作。当我运行这个。我当前收到以下错误： 尾部：无法打开“/var/log/file.2014-09-03-Wed\n.log”进行读取：否 这样的文件或目录 因此我得到了日期，但随后添加了一个\n。脚本如下：在perl文件名中包含变量,perl,variables,filenames,Perl,Variables,Filenames,我正在尝试创建一个脚本来搜索日志文件中的特定错误。日志文件有日期戳，所以我只想检查今天的日志文件。这最终将成为一项工作。当我运行这个。我当前收到以下错误： 尾部：无法打开“/var/log/file.2014-09-03-Wed\n.log”进行读取：否 这样的文件或目录 因此我得到了日期，但随后添加了一个\n。脚本如下： $date=`date +"%Y-%m-%d-%a"`; $string = `tail -n50 /var/log/"file.$date.log" | grep -B2
$date=`date +"%Y-%m-%d-%a"`;
$string = `tail -n50 /var/log/"file.$date.log" | grep -B2 'Too many connected clients'`;
if($string =~ m/Reply: 421 Service not available. There are too many connected users, please try later/){
print "Max connections reached $date"
}
任何建议都将不胜感激 尝试使用
chomp（$data）$date=~s/\n/chomp（$data）$date=~s/\n/chomp（$data）$date=~s/\n/chomp（$data）$date=~s/\n/$date\nchomp($date);
从
$date\nchomp($date);
从
$date\nchomp($date);
从
$date\nchomp($date);
使用
Time:：Pieceuse Time::Piece;
my $date = localtime->strftime('%Y-%m-%d-%a');
print $date, "\n";
2014-09-03-Wed
使用
Time:：Pieceuse Time::Piece;
my $date = localtime->strftime('%Y-%m-%d-%a');
print $date, "\n";
2014-09-03-Wed
使用
Time:：Pieceuse Time::Piece;
my $date = localtime->strftime('%Y-%m-%d-%a');
print $date, "\n";
2014-09-03-Wed
使用
Time:：Pieceuse Time::Piece;
my $date = localtime->strftime('%Y-%m-%d-%a');
print $date, "\n";
2014-09-03-Wed
$date=
date+%Y-%m-%d-%a“tail-n50'/var/log/file.$date.log'| grep-B2'连接的客户端太多'chompdate+%Y-%m-%d-%a“tail-n50'/var/log/file.$date.log'| grep-B2'连接的客户端太多'chompdate+%Y-%m-%d-%a“tail-n50'/var/log/file.$date.log'| grep-B2'连接的客户端太多'chompdate+%Y-%m-%d-%a“tail-n50'/var/log/file.$date.log'| grep-B2'连接的客户端太多'chomp