scalar($array_ref)
Sep. 17th, 2007 01:30 pmПробуем выполнить
scalar($array_ref), где $array_ref — ссылка на массив:#!/usr/bin/perl -w
use strict;
$\ = "\n";
$, = ': ';
my @array = qw(one two three);
my $array_ref = \@array;
print 'scalar @$array_ref', scalar @$array_ref;
print 'scalar $array_ref', scalar $array_ref;
Получаем:Хотя всё в man prelref написано...scalar @$array_ref: 3 scalar $array_ref: ARRAY(0x804db74)