我正在尝试解密一个我不熟悉的Perl代码,以某种方式与HashRef相关.
我正在使用Amazon :: S3,但我的问题是一般的Perl问题.请参阅以下代码:
我正在使用Amazon :: S3,但我的问题是一般的Perl问题.请参阅以下代码:
use Amazon::S3; my $s3 = Amazon::S3->new( ... ); my $response = $s3->buckets;
文档(这里)sais,关于s3->桶:
Returns undef on error,else HASHREF of results
以下行对我有用,但我不明白为什么:
for $b in ( @ { $response->{buckets} } ) { print "bucket: " . $b->bucket . "\n"; }
我对第一行的每个运算符感到困惑.
什么类型的$response,$respone-> {bucket}.
看起来for中的表达式是一个数组,但我不明白这种语法:@ {…}?
解决方法
让我们一块一块地完成它.
$s3是你的S3对象. $s3->存储桶调用该对象上的存储桶方法,并将结果存储在$response中.正如文档所说,结果是哈希引用;引用是指向另一个值的标量.如果你熟悉指针,那么这个想法是一样的.
如果我们有一个普通的哈希%响应,我们可以通过说$response {buckets}来获取哈希中的桶密钥.由于我们有一个哈希引用,我们必须使用解引用运算符( – >)来获取密钥,因此它变为$response-> {buckets}.
但我们还没有完成. $response-> {buckets}本身就是一个引用,在本例中是一个数组引用.在这里,我们看到另一种解除引用形式.我们可以,如果我们只想获得引用数组中的一个项目,例如说$response-> {buckets} [0].但我们想要整个列表,所以我们使用@运算符取消引用整个数组.由于我们的数组引用包含在复杂的结构中,因此我们使用curlies来包含具有引用的表达式.所以@ {$response-> {buckets}}为我们提供了数组.
这在一个声明中做了很多.
有关引用的更多信息,这可能是在Perl中学习的最棘手的主题之一,请参阅以下内容:
> perlreftut – Perl参考教程
> perldsc – Perl数据结构cookbook
> perllol – 所有关于数组的数组
> perlref – 主要的Perl参考文档