«

Hello,

I have an object representing a player:

sub new {
my $package = shift;
my $self = {
.......
CHAT => [[], [], []],
};
bless($self, $package);
}

and its CHAT member holds messages
from 3 other players in an array of 3 arrays.

Then I have a method which sends those
messages over a socket to the player:

$aref = $self->{CHAT}->[0];
push @response, 'chat0=' . join '', @$aref;
$self->{CHAT}->[0] = [];

The last line truncates the sub-array
(after the messages have been sent).

I wonder if I can truncate that array by
using the $aref ? Something like $#xxxx = -1;

Thank you
Alex

A. Farber wrote:
> Hello,
>
> I have an object representing a player:
>
> sub new {
> my $package = shift;
> my $self = {
> ......
> CHAT => [[], [], []],
> };
> bless($self, $package);
> }
>
> and its CHAT member holds messages
> from 3 other players in an array of 3 arrays.
>
> Then I have a method which sends those
> messages over a socket to the player:
>
> $aref = $self->{CHAT}->[0];
> push @response, 'chat0=' . join '', @$aref;
> $self->{CHAT}->[0] = [];
>
> The last line truncates the sub-array
> (after the messages have been sent).
>
> I wonder if I can truncate that array by
> using the $aref ? Something like $#xxxx = -1;

Yes you could do that:

$#$aref = -1;

Or:

@$aref = ();



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall

On Wed, 27 Aug 2008 13:34:00 -0700 (PDT) "A. Farber" <> wrote:

AF> $aref = $self->{CHAT}->[0];
AF> push @response, 'chat0=' . join '', @$aref;
AF> $self->{CHAT}->[0] = [];

AF> The last line truncates the sub-array
AF> (after the messages have been sent).

Actually it assigns a new value to that reference. The old array still
exists with the full contents if you have another reference to it (check
$aref, for instance).

AF> I wonder if I can truncate that array by
AF> using the $aref ? Something like $#xxxx = -1;

Sure:

@$aref = ();

or, equivalently,

@{$self->{CHAT}->[0]} = ();

Ted

On Aug 27, 11:01*pm, Ted Zlatanov <t...@lifelogs.com> wrote:
> On Wed, 27 Aug 2008 13:34:00 -0700 (PDT) "A. Farber" <Alexander.Far...@gmail.com> wrote:
>
> AF> * * * * $aref = $self->{CHAT}->[0];
> AF> * * * * push @response, 'chat0=' . join '', @$aref;
> AF> * * * * $self->{CHAT}->[0] = [];
>
> Actually it assigns a new value to that reference. *The old array still
> exists with the full contents if you have another reference to it (check
> $aref, for instance).
>
> AF> I wonder if I can truncate that array by
> AF> using the $aref ? Something like $#xxxx = -1;
>
> @$aref = ();
>
> or, equivalently,
>
> @{$self->{CHAT}->[0]} = ();

Oh, you're right. Thank you!