爲什麼$＃ARGV 0？

Question

我一直在通過Perl資源進行搜索，而且我看不到錯在哪裏。我敢肯定，我失去了一些東西明顯，因爲當我給你

my $gArgc = $#ARGV;

但叫我的程序perl pkTkPtBdTkNo.pl test.txt

$#ARGV等於0，我想不通爲什麼。

#! /usr/bin/perl -w 

use strict; 

my $gArgc = $#ARGV; 
my $input_line; 
my $bad_input; 

print($gArgc); 
die ("Usage pkTkPtBdTkNo.pl input-line") 
    if(0 == $gArgc); 

$input_line = $ARGV[0]; 
$bad_input = ($input_line =~ /\"\d+\D+\d*\",/); 
print($bad_input); 

Answer 1

從man perlintro：

特殊變量$＃數組告訴你一個數組的最後一個元素的索引： ... 你也許會使用$＃數組+ 1來告訴你數組中有多少項。 不要打擾。碰巧，使用@array其中的Perl希望找到一個標值（「在 標量上下文」）會給你的數組中元素的個數：

所以，如果你傳遞0參數，$＃ ARGV將爲-1，因爲數組中沒有元素。如果您傳遞參數1（在你的例子），$＃ARGV將爲0

Answer 2

這應該是總是正確，如$#ARGV+1 == @ARGV是$#ARGV陣列@ARGV最後索引。

Answer 3

變量$＃ARGV在@ARGV數組的最後一個元素的下標，因爲數組是零基於，在命令行上給出的參數的個數$＃ARGV + 1

Answer 4

你可以嘗試：

@ARGV 還是死亡 「的用法pkTkPtBdTkNo.pl輸入線」

我發現避免$＃array_name語法完全改進可讀性很大， 因爲這裏perl會自動將@ARGV變成一個標量（值爲0）。