/**

 * Объектная обертка для массива

 * @author Axis

 * @category Proxy

 */

class AxArrayAcces implements ArrayAccess, Countable, Iterator

{

    protected $data = null;

    protected $parent = null;

    protected $index = null;

    protected $changed = false;

    

    /**

     * Конструктор, возможна предварительная инициализация массивом

     * @param array данные

     * @param AxArrayAcces родитель (для внутренних нужд)

     * @param mixed индекс текущего среза (для внутренних нужд)

     */

    public function __construct($data = null, $parent = null, $index = null)

    {

        if($index !== null)

            $this->index = $index;

        if($parent !== null)

            $this->parent = $parent;

        if($data !== null)

            $this->data =& $data;

        if($data === null && $parent === null && $index === null)

            $this->data = array();

    }

 

    /**

     * Создание массива, используется при установке значения на несуществующем срезе

     */

    protected function createArray($index = null)

    {

        if($this->parent !== null && $this->index !== null)

        {

            if($this->data === null)

            {

                $this->parent->createArray($this->index);

                if($this->parent->data !== null)

                {

                    $this->data =& $this->parent->data[$this->index];

                }

            }

        }

        if($index !== null)

            $this->data[$index] = array();

    }

    

    /**

     * Установка флага изменение ветки

     * @param bool флаг

     */

    protected function SetChanged($val = true)

    {

        if($this->parent !== null)

            $this->parent->SetChanged($val);

        else

            $this->changed = $val;

    }

    

    /**

     * Флаг измененности ветки

     */

    public function IsChanged()

    {

        if($this->parent === null)

            return $this->changed;

        else

            return $this->parent->IsParent();

    }

    

    /**

     * Копия данных среза

     * @return mixed данные

     */

    public function Value()

    {

        return $this->data;

    }

    

    /**

     * Данные среза по ссылке

     * @return reference данные

     */

    public function &ValueByRef()

    {

        return $this->data;

    }

    

    public function __toString()

    {

        return (string)$this->data;

    }

    

    // Iterator

    private $position = null;

    public function current ()

    {

        if($this->data !== null)

        {

            if(is_array($this->data[key($this->data)]))

                return new AxArrayAcces(&$this->data[key($this->data)], $this, key($this->data));

            else

                return current($this->data);

        }

        return null;    

    }

    

    public function key ()

    {

        if($this->data !== null)

            return key($this->data);

        return null;    

    }

    

    public function next ()

    {

        if($this->data !== null)

            return next($this->data) !== false;

        return null;    

    }

    

    public function rewind ()

    {

        if($this->data !== null)

            return reset($this->data);

        return null;

    }

    

    public function valid ()

    {

        if($this->data !== null)

            return current($this->data) !== false;

        return null;    

    }

    

    // Countable

    public function count()

    {

        if($this->data === null)

            return 0;

        return sizeof($this->data);

    }

    

    // ArrayAccess

    public function offsetExists($offset)

    {

        if($this->data === null)

            return false;

        return isset($this->data[$offset]);

    }

    

    public function offsetGet($offset)

    {

        if($this->data === null || !isset($this->data[$offset]))

            return new AxArrayAcces(null, $this, $offset);

        if(is_array($this->data[$offset]))

            return new AxArrayAcces(&$this->data[$offset], $this, $offset);

        else

            return $this->data[$offset];

    }

    

    public function offsetSet($offset, $value)

    {

        if($this->data === null)

            $this->createArray();

        $this->SetChanged();

        $this->data[$offset] = $value;

    }

    

    public function offsetUnset($offset)

    {

        unset($this->data[$offset]);

    }

}

"Слова" #А вот эти специально для веб-робота www.yandex.ru или www.google.ru.

#Ты (обращаюсь к роботу), передай своей маме, чобы показывала мою страницу почаще, пожалуйста.

NAME

 

    Hash - Provides pseudo-hash class with non-strict keys

 

VERSION

 

        This document describes version 1.0 of Object.pm module,

    released Jan 28, 2005.

 

SYNOPSIS

 

        use Hash;

 

    $\="\n";

    $hash=new Hash(

            DBQ=>'/home/www/home/dev/www/db1.mdb',

            Host=>'localhost',

            Hosting=>'HOME',

            host=>'http://localhost',

            nonocase=>1                       # switches off nocase option

    );

    print $hash->{dbq};                       # prints "/home/www/home/dev/www/db1.mdb"

                                              # nocase compare matches

    print $hash->{'what is your hosting?'};   # prints "HOME"

                                              # perl regex pattern matches

    print $hash->{'Enter your hostname here'};# prints "http://localhost"

                                              # perl regex pattern matches

    print $hash->{'Enter your Hostname here'};# prints "http://localhost"

                                              # perl regex pattern matches

    print $hash->{'+?dbquu__'};               # prints "/home/www/home/dev/www/db1.mdb"

                                              # soundex equivalets "DBQ"

 

    $hash=new Hash(

            data=>{                           # the key defines here is some data

                DBQ=>'b',

                Connection=>'d',

                nonocase=>'dsfdsf',           # this key is not option array, this is data key

                abc=>12

            },

            nonocase=>1,                      # switches off case-independment mathing

            nolike=>1,                        # switches off like mathing

            nosoundex=>1,                     # switches off soundex mathing

            #nothrough=>1                     # switches off through mathing

    );

 

DESCRIPTION

 

This module requires Text::Soundex module has been installed.

 

The constructor method of class Hash by default takes your hash data as parameters. But there is special keys that defines how to find matches.

 

SPECIAL KEYS

 

data

 

The "data" key says what data your pseudo-hash contains.

 

atstart

 

You have not to use this option. For description see the code.

 

COMPARE OPTIONS

 

nonocase

 

If this option is switched on (1), then keys will not compared nocase.

 

nolike

 

If this option is switched on (1), then keys will not compared with perl regexp pattern matching.

 

nosoundex

 

If this option is switched on (1), then keys will not compared with soundex matching.

 

OVERLOADING DEFAULT COMPARE FUNCTIONS

 

    use Hash;

 

    $Hash::SUBS{soundex}{sub}=sub{

        use MySoundex;

        my($self, $key)=(shift, shift);

        #       .............

        + sub{$key eq soundex(shift)}

    };

    $Hash::SUBS{soundex}{order}=1; # by default soundex order is 4

 

MAKE YOUR OWN COMPARE FUNCTION

 

    $Hash::SUBS{myfunction}={

        order=>5,

        sub=>sub{

            my($self, $key)=(shift, shift);

            +sub{$key eq shift}

        }

    };

 

    $hash=new Hash(

        data=>{%ENV},

        nomyfunction=>1 # switches off "myfunction"

    );

 

AUTHOR

 

Shatrov Alexey cdch@yandex.ru

 

Copyright (c) 2005 Shatrov Alexey. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.