perl 編程

程序在獲取屏幕輸入後有個折分@words=split(/ +/, $line);到數組@words（以+號為分隔符），$wordcount += @words;是獲取數組的數量，Perl的數據是0開始的，如果妳輸入的時候沒有包含+號就意味著@words=0（裏面只有壹個元素），如果數據是空的則返回-1，所以妳輸入的內容中只要包含+這個分隔符，數組中就會有多個元素。