Создание серверных приложений на языке PERL


П2.4.1.1 Основные понятия


В предыдущих версиях Perl была реализована возможность только символьных ссылок. Perl версии 5 и выше позволяет использовать не только символьные ссылки на переменные, но и ``жесткие'' ссылки на любые данные. Так как любой скаляр может быть ссылкой, а массивы и хэши состоят из скаляров, то можно с легкостью организовать массив массивов, массив хэшей, хэш массивов и так далее. ``Жесткие'' ссылки следят за счетчиком ссылки и как только счетчик становится равным нулю, автоматически удаляют ссылку. Символьные ссылки содержат только имя переменной, также как символьная ссылка файловой системы содержит просто имя файла. Ссылки могут быть созданы несколькими способами:

  1. Используя бэкслэш оператор перед переменной, подпрограммой или простой константой. (Это работает почти как & - создается еще одна ссылка, так как одна уже существует в символьной таблице.) $varref = \$foo;

    $arref = @ARGV;

    $hashref = \%ENV;

    $coderef = \&handler;

  2. Ссылка на массив может быть создана с использованием квадратных скобок: $arrayref = [1,2,['a','b','c']];По адресу $arrayref[2][1] будет храниться значение b.
  3. Ссылка на произвольный хэш может быть создана с использованием фигурных скобок: $hashref = {

    'Earth' => 'Moon',

    'Jupiter' => 'Kallisto',

    ...

    };

  4. Ссылка на подпрограмму может быть создана с использованием слова sub, без определения имени подпрограммы: $coderef = sub { print "Hello!\n" };
  5. Ссылки часто возвращаются конструкторами. Объекты Perl на самом деле являются ссылками на специальную сущность, которая знает, какой пакет ассоциировать с объектом. Конструкторы это специальные подпрограммы, которые умеют создавать эту ассоциацию.
Чтобы извлечь информацию, на которую указывает ссылка, тоже существует несколько методов:

  1. Можно сделать идентификатор ссылки частью имени переменной или подпрограммы: $bar = $$scalarref;

    push(@$arrayref,$filename);

    $$arrayref[0] = "January";

    $$hashref{"key"} = "value";

    &$coderef(1,2,3);

    $refrefref = \\\"how are you?";




    Начало  Назад  Вперед