[Moscow.pm] Иногда вещи не то , чем кажутся

[Vladimir V. Perepelitsa]

On Wednesday 04 June 2008 17:45:14 Alex Shatlovsky wrote:
> Здравствуйте,
>
> Исходный код примера:
> ================================
> #!/usr/bin/perl -w
>
> use strict;
> use CGI;
>
> sub say { print join "", @_, "\n"; }
>
> my $p = {};
> my @arr = (1,2,3);
>
> my $a_ref = \@arr;
> $p->{arr} = $a_ref;
> say "1. container ref=" . ref $p;
> say "1. val=" . $p->{arr};
> say "1. ref=" . ref $p->{arr};
>
> my $q = new CGI;
> my $pp = $q->Vars();
> $pp->{arr} = $a_ref;
> say "2. container ref=" . ref $pp;
> say "2. val=" . $pp->{arr};
> say "2. ref=" . ref $pp->{arr};

say "3. tied = " . tied($pp);




-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956