Ну или:<br><br>my %pp = $q-&gt;Vars();<br>$pp{arr} = $a_ref;<br>say &quot;3. container ref=&quot; . ref \%$pp;<br>say &quot;3. val=&quot; . $pp{arr};<br>say &quot;3. ref=&quot; . 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 &lt;<a href="mailto:shatlovsky@gmail.com">shatlovsky@gmail.com</a>&gt; написал:<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>
&gt; On Wednesday 04 June 2008 17:45:14 Alex Shatlovsky wrote:<br>
&gt;&gt; Здравствуйте,<br>
&gt;&gt;<br>
&gt;&gt; Исходный код примера:<br>
&gt;&gt; ================================<br>
&gt;&gt; #!/usr/bin/perl -w<br>
&gt;&gt;<br>
&gt;&gt; use strict;<br>
&gt;&gt; use CGI;<br>
&gt;&gt;<br>
&gt;&gt; sub say { print join &quot;&quot;, @_, &quot;\n&quot;; }<br>
&gt;&gt;<br>
&gt;&gt; my $p = {};<br>
&gt;&gt; my @arr = (1,2,3);<br>
&gt;&gt;<br>
&gt;&gt; my $a_ref = \@arr;<br>
&gt;&gt; $p-&gt;{arr} = $a_ref;<br>
&gt;&gt; say &quot;1. container ref=&quot; . ref $p;<br>
&gt;&gt; say &quot;1. val=&quot; . $p-&gt;{arr};<br>
&gt;&gt; say &quot;1. ref=&quot; . ref $p-&gt;{arr};<br>
&gt;&gt;<br>
&gt;&gt; my $q = new CGI;<br>
&gt;&gt; my $pp = $q-&gt;Vars();<br>
&gt;&gt; $pp-&gt;{arr} = $a_ref;<br>
&gt;&gt; say &quot;2. container ref=&quot; . ref $pp;<br>
&gt;&gt; say &quot;2. val=&quot; . $pp-&gt;{arr};<br>
&gt;&gt; say &quot;2. ref=&quot; . ref $pp-&gt;{arr};<br>
<br>
&gt; say &quot;3. tied = &quot; . tied($pp);<br>
<br>
</div>Угу, только немного иначе:<br>
<div class="Ih2E3d">say &quot;3. tied = &quot; . 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> Анатолий Шарифулин.