Pseudo Hashes - #81424 (Allgemeines zu Perl)

BrownWolf

2003-08-30 16:37

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Nein, ich meinte eigentlich Pseudo Hashes ....
Da wird ne Array Referenz erstellt und dadrin nen Hash.
Durch das use fields qw() wird dann automatisch der Array Index aufgerufen wenn man $bla->{feld} macht.
Wenn man ein Hash Key aufrufen möchte der nicht existiert wird es dir mitgeteilt.
Normal isses so:

Code (perl): (dl )

package forum;

sub new {
    my($package, %args) = @_;
    my $self = {
               
    "member" => $args{member}
               
    };
    bless $self, $package;
}

sub get_member {
  my $self = shift;
  return $self->{member};
}

package main;

my $user = forum->new(
               
           "member" => "BrownWolf"
               
            );
print $user->get_member;

Das versteh ich auch noch ...
Blos das Buch verwirrt ein wenig !\n\n

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;