3

我从 Perl 插件中得到了这一部分。我不明白它的作用。它是关联数组的数组吗？如果是这样，那么它不应该以@开头吗？任何人都可以对这个问题有所了解吗？

my $arguments =
  [ { 'name' => "process_exp",
    'desc' => "{BasePlugin.process_exp}",
    'type' => "regexp",
    'deft' => &get_default_process_exp(),
    'reqd' => "no" },
  { 'name' => "assoc_images",
    'desc' => "{MP4Plugin.assoc_images}",
    'type' => "flag",
    'deft' => "",
    'reqd' => "no" },
  { 'name' => "applet_metadata",
    'desc' => "{MP4Plugin.applet_metadata}",
    'type' => "flag",
    'deft' => "" },
  { 'name' => "metadata_fields",
    'desc' => "{MP4Plugin.metadata_fields}",
    'type' => "string",
    'deft' => "Title,Artist,Genre" },
  { 'name' => "file_rename_method",
    'desc' => "{BasePlugin.file_rename_method}",
    'type' => "enum",
    'deft' => &get_default_file_rename_method(), # by default rename imported files and assoc files using this encoding
    'list' => $BasePlugin::file_rename_method_list,
    'reqd' => "no"
  } ];
4

3 回答 3

6

正如 Bwmat 所说，它是对 Hash 引用数组的引用。读

$ man perlref

或者

$ man perlreftut     # this is a bit more straightforward

如果您想了解有关参考的更多信息。

顺便说一句，您可以在 Perl 中执行以下操作：

@array = ( 1, 2 );          # declare an array
$array_reference = \@array; # take the reference to that array
$array_reference->[0] = 2;  # overwrite 1st position of @array

$numbers = [ 3, 4 ];        # this is another valid array ref declaration. Note [ ] instead of ( )

哈希也会发生同样的事情。

顺便说一句，您可以在 Perl 中执行以下操作：

%hash = ( foo => 1, bar => 2 );
$hash_reference = \%hash; 
$hash_reference->{foo} = 2;

$langs = { perl => 'cool', php => 'ugly' }; # this is another valid hash ref declaration. Note { } instead of ( )

而且...是的，您可以取消引用这些引用。

%{ $hash_reference }

将被视为哈希，因此如果要打印$langs上面的键，可以执行以下操作：

print $_, "\n" foreach ( keys %{ $langs } );

要取消引用数组 ref，请使用@{ }而不是%{ }. 甚至sub可以取消引用。

sub foo
{
  print "hello world\n";
}

my %hash = ( call => \&foo );

&{ $hash{call} }; # this allows you to call the sub foo
于 2011-11-17T08:15:07.210 回答
1

$arguments是数组引用（指向数组的引用/指针）

您使用初始化数组()和数组引用[]

my @array = ( 1, 2, 3 );
my $array_ref = [ 1, 2, 3 ];

您可以使用创建参考\

my $other_array_ref = \@array;

当您使用数组引用时，您将在使用时取消引用它：

for my $element ( @{$array_ref} )

或者

print ${$array_ref}[0];

看man perlref

回到你的问题：$arguments是对哈希引用数组的引用（用 初始化{}）

于 2011-11-17T08:08:29.887 回答
0

看起来像散列参考的散列。

你可能需要取消引用

%newhash = %{$arguments}

并将数据打印为

print $newhash{'name'}

于 2011-11-17T08:13:06.857 回答