Thread Pseudo Hashes (15 answers)
Opened by BrownWolf at 2003-08-30 05:18

BrownWolf
 2003-08-30 16:37
#81424 #81424
User since
2003-08-15
308 articles
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

<!--EDIT|BrownWolf|1062247100-->
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;

View full thread Pseudo Hashes