पर्ल

Question

में ऐरे प्रारंभिकरण मैं 0 से सरणी कैसे प्रारंभ करूं?

मैंने यह कोशिश की है।

my @arr =(); 

लेकिन यह हमेशा मुझे एक चेतावनी, "अप्रारंभीकृत मूल्य का प्रयोग करें" फेंकता है। मैं पहले से सरणी के आकार को नहीं जानता। मैं इसे गतिशील रूप से भरता हूं। मैंने सोचा था कि कोड का उपरोक्त टुकड़ा इसे 0 से शुरू करना था।

मैं यह कैसे कर सकता हूं?

Answer 1

यदि मैं आपको समझता हूं, तो शायद आपको ज़ीरो की एक सरणी की आवश्यकता नहीं है; बल्कि, आपको हैश की आवश्यकता है। हैश कुंजी अन्य सरणी में मान होंगे और हैश मान समय की संख्या मूल्य अन्य सरणी में मौजूद होगा:

use strict; 
use warnings; 

my @other_array = (0,0,0,1,2,2,3,3,3,4); 
my %tallies; 
$tallies{$_} ++ for @other_array; 

print "$_ => $tallies{$_}\n" for sort {$a <=> $b} keys %tallies;  

आउटपुट:

0 => 3 
1 => 1 
2 => 2 
3 => 3 
4 => 1 

अपने विशिष्ट प्रश्न का उत्तर देने अधिक सीधे, एक सरणी शून्यों का एक समूह के साथ आबादी बनाने के लिए, आप इन दो उदाहरणों में तकनीक का उपयोग कर सकते हैं:

my @zeroes = (0) x 5;   # (0,0,0,0,0) 

my @zeroes = (0) x @other_array; # A zero for each item in @other_array. 
           # This works because in scalar context 
           # an array evaluates to its size. 

Answer 2

"सरणी को शून्य में प्रारंभ करें" से आपका क्या मतलब है? Arrays में "शून्य" नहीं है - उनमें "शून्य तत्व" हो सकते हैं, जो "खाली सूची" जैसा ही है। या, यदि आप एक तत्व है, जहां उस तत्व एक शून्य है के साथ एक सरणी हो सकता है: my @array = (0);

my @array =(); ठीक काम करना चाहिए - यह @array नामक एक नई सरणी आबंटित करता है, और फिर इसे खाली सूची, () प्रदान करती है। ध्यान दें कि यह केवल my @array; कहने के समान है, क्योंकि एक नई सरणी का प्रारंभिक मान वैसे भी खाली सूची है।

क्या आप वाकई इस लाइन से कोई त्रुटि प्राप्त कर रहे हैं, और आपके कोड में कहीं और नहीं? सुनिश्चित करें कि आपके मॉड्यूल या स्क्रिप्ट में use strict; use warnings; है, और आपको मिलने वाली त्रुटि की लाइन संख्या जांचें। (यहां कुछ प्रासंगिक कोड पोस्ट करने से भी मदद मिल सकती है।)

Answer 3

, अपनी पोस्ट पर अपनी टिप्पणी में उत्पादन का उत्पादन करने के लिए इस होगा घ ओ यह:

use strict; 
use warnings; 

my @other_array = (0,0,0,1,2,2,3,3,3,4); 
my @array; 
my %uniqs; 

$uniqs{$_}++ for @other_array; 

foreach (keys %uniqs) { $array[$_]=$uniqs{$_} } 

print "array[$_] = $array[$_]\n" for (0..$#array); 

आउटपुट:

array[0] = 3 
    array[1] = 1 
    array[2] = 2 
    array[3] = 3 
    array[4] = 1 

यह शून्य मूल्यों के साथ एक समानांतर सरणी का निर्माण करने में अपने निर्धारित एल्गोरिथ्म की तुलना में अलग है, लेकिन यह यह करने का एक अधिक Perly तरीका है ...

यदि आपके पास समानांतर सरणी होनी चाहिए जो आपके पहले सरणी के समान आकार है, तो 0 से शुरू होने वाले तत्वों के साथ, यह कथन गतिशील रूप से ऐसा करेगा: @array=(0) x scalar(@other_array); लेकिन वास्तव में, आपको ऐसा करने की आवश्यकता नहीं है।