Tìm tên khóa trong băm chỉ với một khóa?

Question

Nếu tôi có một băm

my %h = (
    secret => 1; 
); 

và tôi biết rằng chỉ là là một trong những quan trọng trong việc băm, nhưng tôi không biết những gì nó được gọi.

Đừng Sau đó tôi phải lặp qua đó băm

my $key; 
foreach my $i (keys %h) { 
    $key = $h{$i}; 
} 

Hoặc là có một cách tốt hơn để có được tên của khóa?

Answer 1

Một list slice nên làm điều đó

(keys %h)[0] 

keys trả về một danh sách, vì vậy chỉ cần trích xuất các phần tử đầu tiên của danh sách đó.

Answer 2

my @keys = keys %h; 
my $key = $keys[0]; 

Answer 3

Tôi không tin rằng việc sử dụng hàm keys là không cần thiết.

my ($key) = %h; 

hoặc

my $key = (%h)[0]; 

Các băm bên trong dấu ngoặc sẽ được mở rộng đến một danh sách, sau đó chúng tôi chỉ có thể lấy phần tử đầu tiên của danh sách đó, đó là chìa khóa.

Answer 4

[ keys %h ]->[0] cũng sẽ thực hiện việc định hướng Joel đề cập trong nhận xét trước đó. Mã này có mùi giống như nó sẽ gây ra vấn đề mặc dù. Nếu thực sự chỉ có một cặp khóa/giá trị duy nhất, có thể có cách tốt hơn để xử lý dữ liệu.

Ít nhất, tôi muốn kiểm tra để đảm bảo kỳ vọng không bao giờ bị vi phạm âm thầm. Ví dụ. ‐

keys %h == 1 or die "ETOOMANYKEYS"; 
print [ keys %h ]->[0], $/; 

Answer 5

my $k = each %h; 

Tuy nhiên, bạn phải nhớ để thiết lập lại các iterator nếu bạn muốn sử dụng nó trên cùng bảng băm một lần nữa. Hoặc each sẽ làm điều đó, hoặc keys sẽ và nếu được sử dụng trong ngữ cảnh vô hướng, sẽ tránh tạo danh sách. Vì vậy, bạn có thể đặt lại với

scalar keys %h; 
# OR 
each %h;   # <- gets the undef 
my $k2 = each %h; # <- gets the first key 

Vì vậy, bạn có thể làm điều đó như thế này:

my $k = (scalar keys %h, each %h); 

Nhưng giả sử nó như đọc tin nhắn JSON và các công cụ mà bạn chỉ muốn đọc những gì trong băm một lần và ném nó đi, nó có lẽ là gọn gàng nhất. Tuy nhiên, nếu bạn muốn biến ngay lập tức, nó có thể dễ dàng hơn để làm điều này:

my ($k, $v) = each %$simple_JSON_structure; 

Answer 6

my ($key) = keys %h; 

Khi bạn đang sử dụng danh sách bối cảnh trên cả hai mặt của toán tử gán, mục đầu tiên trong danh sách các phím được được gán cho $ key.

Answer 7

Hãy có một cái nhìn tại

my ($key) = %h; 

Hashes và mảng không phải là khác nhau như họ có vẻ. Cả hai đều liên quan chặt chẽ đến danh sách. Sử dụng danh sách là cách chúng được khởi tạo bình thường và => chủ yếu là bí danh cho , với sự khác biệt duy nhất là nó xử lý toán hạng trái của nó được trích dẫn hoàn toàn. Perl dừng chỉ khi bạn quên báo giá của toán hạng bên phải của nó, do đó, cả hai dòng sau sẽ được chấp nhận:

my %h = (a=>b=>c=>'d'); 
my @a = (a=>b=>c=>'d'); 

Vâng, bạn đã bao giờ thử điều này chưa?

my %h = ('key'); 

... hay này:

my @a = ('value'); 
my %h = @a; 

Các băm trên có thể nhìn một chút lạ, nhưng nó chỉ là một chìa khóa với giá trị undef.

Bởi vì đó là nhiều khả năng là bạn sẽ hỏi làm thế nào để truy cập giá trị duy nhất, tôi đề nghị sử dụng:

my ($key, $value) = %h; 

... hoặc thậm chí đơn giản hơn:

my ($key) = %h; 

Đó là những gì chúng tôi bắt đầu với .