我的 perl 腳本采用第一個命令列引數并將 '$numlines' 設定為它。然后我有一個 if 陳述句應該確定 numlines 是否為數字（如果它是數字，我想稍后使用此值）但即使我輸入一個數字值作為我的第一個命令列引數，我的腳本總是跳過 if 陳述句無論如何。
我的代碼：
my $line;
my $counter = 0;
my @list;
my $numlines = shift @ARGV;
if ( $numlines !~ (/^-?\d $/) ) {
print "First argument is a number\n";
while ($line=<>) {
push(@list, $line);
}
@list = reverse @list;
foreach (@list) {
if ( $counter == $numlines ) {
last;
}
print "$_";
$counter ;
}
exit 0;
}
uj5u.com熱心網友回復：
條件應該是相反的。
if ($numlines =~ /^-?\d $/)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/438704.html
標籤：perl Unix perlscript