Ну или:<br><br>my %pp = $q->Vars();<br>$pp{arr} = $a_ref;<br>say "3. container ref=" . ref \%$pp;<br>say "3. val=" . $pp{arr};<br>say "3. ref=" . ref $pp{arr};<br><br>Документация решает:<br>
<br><div style="margin-left: 40px;">The <code>Vars()</code> method does this. Called in a scalar
context, it returns the parameter list as a tied hash reference.
Changing a key changes the value of the parameter in the underlying
CGI parameter list. Called in a list context, it returns the
parameter list as an ordinary hash. This allows you to read the
contents of the parameter list, but not to change it.<br></div><br><div class="gmail_quote">4 июня 2008 г. 18:11 пользователь Alex Shatlovsky <<a href="mailto:shatlovsky@gmail.com">shatlovsky@gmail.com</a>> написал:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Здравствуйте, Vladimir.<br>
<br>
Вы писали 4 июня 2008 г., 17:47:44:<br>
<div class="Ih2E3d"><br>
> On Wednesday 04 June 2008 17:45:14 Alex Shatlovsky wrote:<br>
>> Здравствуйте,<br>
>><br>
>> Исходный код примера:<br>
>> ================================<br>
>> #!/usr/bin/perl -w<br>
>><br>
>> use strict;<br>
>> use CGI;<br>
>><br>
>> sub say { print join "", @_, "\n"; }<br>
>><br>
>> my $p = {};<br>
>> my @arr = (1,2,3);<br>
>><br>
>> my $a_ref = \@arr;<br>
>> $p->{arr} = $a_ref;<br>
>> say "1. container ref=" . ref $p;<br>
>> say "1. val=" . $p->{arr};<br>
>> say "1. ref=" . ref $p->{arr};<br>
>><br>
>> my $q = new CGI;<br>
>> my $pp = $q->Vars();<br>
>> $pp->{arr} = $a_ref;<br>
>> say "2. container ref=" . ref $pp;<br>
>> say "2. val=" . $pp->{arr};<br>
>> say "2. ref=" . ref $pp->{arr};<br>
<br>
> say "3. tied = " . tied($pp);<br>
<br>
</div>Угу, только немного иначе:<br>
<div class="Ih2E3d">say "3. tied = " . tied(%$pp);<br>
<br>
</div>================================<br>
1. container ref=HASH<br>
1. val=ARRAY(0x921a408)<br>
<div class="Ih2E3d">1. ref=ARRAY<br>
2. container ref=HASH<br>
</div>2. val=ARRAY(0x921a408)<br>
2. ref=<br>
3. tied = CGI=HASH(0x91cb8cc)<br>
================================<br>
<div class="Ih2E3d"><br>
<br>
<br>
--<br>
С уважением,<br>
А.Н.Шатловский<br>
<br>
--<br>
</div><div><div></div><div class="Wj3C7c">Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.