為什么我會收到抱怨括號的錯誤？
sh：第 1 行的語法錯誤：`)' 意外
將此日期擴展名添加到新檔案時 -mv abc abc$(date %Y%m%d%H%M%S)
因為它似乎不喜歡最后一個括號
#!/usr/bin/perl
# =========================================== #
# Script to watch POEDIACK file size
#
# - Comments -
#
# script will check the file size of the POEDIACK file in
# $LAWDIR/$PLINE/edi/in.
# If it's > 1 gig, it will send notification via email
#
#
# =========================================== #
use strict;
use POSIX qw(strftime);
# get env vars from system
my $LAWDIR = @ENV{'LAWDIR'};
my $PLINE = @ENV{'PLINE'};
#my $email_file = "/lsf10/monitors/poediack.email";
my $curr_date = strftime('%m%d%Y', localtime);
my $ack_file = "$LAWDIR" . "/$PLINE" . "/edi/in/POEDIACK";
my $ack_location = "$LAWDIR" . "/$PLINE" . "/edi/in/";
my $mv_location = "$LAWDIR" . "/$PLINE" . "/edi/in/Z_files";
my $ack_file_limit = 10;
#my $ack_file_limit = 1000000000;
my $ack_file_size;
if( -e $ack_file)
{
$ack_file_size = -s $ack_file;
if ( $ack_file_size > $ack_file_limit )
{
`compress -vf $ack_file`;
`mv $mv_location\$ack_file.Z $mv_location\$ack_file.Z.$(date %Y%m%d%H%M%S)`;
}
}
else
{
print "POEDIACK File not found: $ack_file\n";
}
### end perl script ###
uj5u.com熱心網友回復：
$(被解釋為一個變數。它是行程的組 ID。你需要逃避它。
你可能不應該逃避$ack_file。
`mv $mv_location$ack_file.Z $mv_location$ack_file.Z.\$(date %Y%m%d%H%M%S)`;
避免復雜的shell命令并使用它更安全，更快捷rename。
use autodie;
my $timestamp = strftime('%Y%m%d%H%M%S', localtime);
rename "$mv_location$ack_file.Z", "$mv_location$ack_file.Z.$timestamp";
或者使用現有的 log rotator。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/409714.html
標籤：
上一篇：從哈希內的陣列中洗掉值
下一篇：嘗試匹配電子郵件中的名稱