关于perl的非常基本的查询

Question

使用字符串数组编写程序来实现Stack操作（push，pop，isEmpty，peek）。

我是perl的初学者，正在写一些基本的例子。我能够编写push和pop，但是我找不到任何与如何使用＆＃34; isEmpty＆＃34;相关的内容。并且＆＃34;偷看＆＃34;。请告诉我如何使用这两个！

Answer 1

为空：检查数组的元素数：

my @array = ('this', 'is' , 'an', 'example');
my $is_empty = !@array; # (@array == 0)

peek：只需要取第一个元素（首先检查是否为空）：

my $peek = $array[0];