如何判斷是否沒有提供任何參數並且stdin中沒有提供任何參數？

我想寫一個Perl腳本來顯示幫助信息，如果它沒有收到任何輸入。如何判斷是否沒有提供任何參數並且stdin中沒有提供任何參數？

如何判斷標準輸入是否有任何內容？

2011-08-23 OregonTrail

它不是100％清楚你的意思是「什麼都沒有進來」。如果我運行你的腳本，並且我沒有輸入任何東西5分鐘，那麼這是否合格？如果我在10分鐘後開始打字怎麼辦？ –

if (@ARGV == 0 && -t STDIN && -t STDERR) { 
    print STDERR "$0: WARNING: reading input from keyboard, type ^D for EOF, ^C to intr.\n"; 
}

來源

2011-08-23 20:13:57 tchrist

這個習語可以在維護和記錄的模塊中找到：http://p3rl.org/IO::Interactive+is_interactive（） – daxim

@daxim：恐怕這是我*不會那樣做的事情* 喜歡。 **完全可以**對於一些瘋狂的CPAN模塊來說，你不可能依賴在那裏，特別是當PurePerl™版本簡單，清晰並且已經建立好的時候，這太神經質了。如果我在尋找Java，我確實知道從哪裏得到它。這就像告訴人們使用一些愚蠢的誹謗CPAN模塊，因爲說話者對Perl內置變量產生了恐慌：這是他們自己的問題，他們不應該通過暗示比他們自己的不安全更糟糕的「治療」關於Perl。 – tchrist

我知道這會讓你感到不舒服。恐怕你的意見是少數派，每個中級技能程序員都知道贊成使用模塊的論點。 – daxim

$#ARGV包含參數的數量。

http://www.devdaily.com/perl/perl-command-line-arguments-read-args

來源

2011-08-23 20:04:11 thnee

'$＃ARGV'包含'@ ARGV'最後一個元素的索引，即參數個數減1。 – mob

如果要談論從STDIN輸入，可以檢查變量是否等於空串（除去CR/LF之後）。例如：

my $myInput = <STDIN>; 
chomp($myInput); 
if ($myInput eq "") 
{ 
    print "Error! You didn't submit any data!\n"; 
}

然而，隨着@thnee says，如果檢查通過命令行傳入的參數，你應該使用$＃ARGV。

例如：

if ($#ARGV == -1) 
{ 
    print "Error! No input arguments entered!\n"; 
    exit(-1); 
}

參考文獻：

http://perldoc.perl.org/functions/chomp.html

http://perldoc.perl.org/perlvar.html

來源

2011-08-23 20:14:00 Bill

這是[thnee]（http://stackoverflow.com/questions/7166811/how-can-i-tell-if-no-arguments-have-been-given-and-nothing-is-coming-in-on -stdin/7166870＃7166870）誰提及'$＃ARGV'。另外，您應該避免將其他答案稱爲「上方」（或「下方」），因爲得分相同的答案以隨機順序出現。相反，添加一個鏈接到引用的答案。 – erickson

測試'$ myInput eq「」'告訴你輸入是否是空行，而不是沒有輸入（取決於OP意味着什麼「沒有輸入」）。 –

謝謝！根據你的建議，我更新了我的答案。 – Bill

您也可能會發現以檢查是否存在從鍵盤輸入任何這種的perldoc FAQ有用：

http://perldoc.perl.org/perlfaq8.html#How-do-I-check-whether-input-is-ready-on-the-keyboard%3f

來源

2011-08-23 20:17:23 riff

如果腳本是使用鍵盤上的stdin運行的，那麼在用戶開始輸入內容之前不會有任何可用的輸入。 –

http://perldoc.perl.org/perlfaq8.html#How-do-I-find-out-if-I'm-running-interactively-or-not%3f更適合這個問題。 – daxim

這是可能的檢查，如果事情有進來的STDIN（使用非阻塞讀，select或ioctl FIONREAD），但它是不可能的檢查，如果事情是即將在標準輸入，因爲它不發生了。

不可能拋開一邊，你打算打破慣例。例如，拿cat,perl,sort等，如果你沒有提供參數，他們會很樂意等待STDIN，直到你提供他們需要的東西。

用戶知道使用man tool或tool --help來獲取信息。

來源

2011-08-23 20:48:34 ikegami

什麼，你認爲'ioctl（STDIN，$ FIONREAD = 0x4004667F，$ long = pack（L => 0））'可能會讓他們陷入太多麻煩？ :) – tchrist

@tchrist，我不知道這是做什麼。這是查看數據是否可用的第三種方法？ – ikegami

是的，它是如何查看該描述符上有多少個未讀字節。但是你必須爲你的系統獲得正確的ioctl號碼，然後你必須使用一個未緩衝且未經編碼的原始'sysread'，然後返回它的字節。你不能將它與stdio調用混合使用，因爲它只檢查待處理的內核緩衝區，而不是任何已經發送到用戶空間的內容緩衝區。 'FIONREAD'是ioctl的「文件I/O正在讀取的待讀未讀字節數」。見史蒂文斯。其答案落在「你真的不想知道」類別的那些問題之一。 – tchrist

如何判斷是否沒有提供任何參數並且stdin中沒有提供任何參數？

回答

相關問題