Khởi tạo mảng trong Perl

Question

Làm cách nào để khởi tạo mảng thành 0?

Tôi đã thử cách này.

my @arr =(); 

Nhưng nó luôn luôn ném cho tôi một lời cảnh báo, "Sử dụng giá trị chưa được khởi tạo". Tôi không biết kích thước của mảng trước đó. Tôi tự động điền vào nó. Tôi nghĩ đoạn mã trên được cho là sẽ khởi tạo nó thành 0.

Làm cách nào để làm điều này?

Answer 1

Nếu tôi hiểu bạn, có lẽ bạn không cần một mảng số 0; thay vào đó, bạn cần một mã số băm. Các phím băm sẽ được các giá trị trong mảng khác và các giá trị hash sẽ là số lần giá trị tồn tại trong mảng khác:

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;  

Output:

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

Để trả lời câu hỏi cụ thể của bạn trực tiếp hơn, để tạo một mảng được điền bằng một loạt các số 0, bạn có thể sử dụng kỹ thuật trong hai ví dụ sau:

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

Bạn có ý nghĩa gì khi "khởi tạo mảng thành 0"? Mảng không chứa "số không" - chúng có thể chứa "số nguyên tố", giống như "danh sách trống". Hoặc, bạn có thể có một mảng với một yếu tố, trong đó yếu tố đó là một số không: my @array = (0);

my @array =(); nên chỉ làm việc tốt - nó phân bổ một mảng mới gọi là @array, và sau đó gán cho nó danh sách rỗng, (). Lưu ý rằng điều này giống hệt với việc chỉ cần nói my @array;, vì giá trị ban đầu của một mảng mới là danh sách trống.

Bạn có chắc là mình đang gặp lỗi từ dòng này chứ không phải ở đâu đó trong mã của mình? Đảm bảo bạn có use strict; use warnings; trong mô-đun hoặc tập lệnh của mình và kiểm tra số dòng của lỗi mà bạn nhận được. (Đăng một số mã ngữ cảnh ở đây cũng có thể hữu ích.)

Answer 3

Để tạo đầu ra trong nhận xét của bạn cho bài đăng, điều này sẽ d o nó:

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); 

Output:

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

này khác với thuật toán đã nêu của bạn sản xuất một mảng song song với không giá trị, nhưng nó là một cách Perly hơn để làm việc đó ...

Nếu bạn phải có một mảng song song có cùng kích thước với mảng đầu tiên của bạn với các phần tử được khởi tạo là 0, câu lệnh này sẽ tự động thực hiện: @array=(0) x scalar(@other_array); nhưng thực sự, bạn không cần thực hiện điều đó.