Leere Daten in Array ersetzen (gelöst) - #169696 (Allgemeines zu Perl)

rosti

2013-08-22 15:35

User since
2011-03-19
3217 Artikel
BenutzerIn

2013-08-22T12:11:54 Kean
Das hört sich interessant an. Ich habe leider noch nichts objektorientiertes angewendet. Hast du da vielleicht ein Beispiel wie ich das machen kann?

klar ;)

Kopier einfach mal den Code und führe aus.

Code (perl): (dl )

#!/usr/bin/perl

package ValideHashValue;

use Tie::Hash;
use base 'Tie::StdHash';
use strict;
use warnings;

sub TIEHASH{
    my $class = shift;
    my $href  = shift;
    return bless $href, $class;
}

sub FETCH{
    my $self = shift;
    my $key  = shift;
    return defined $self->{$key} ? $self->{$key} : 'das war mal undef';
}

package main;

use strict;
use warnings;

my %hash = ();
print $hash{foo}; # Use of uninitialized value in print ...

# now, using tie:
tie my %h, 'ValideHashValue', \%hash;

print $h{foo}; # das war mal undef

PS/Edit: Guck dir mal die Slice-Option für

Code (perl): (dl )

1
2

selectall_arrayref
fetchall_arrayref

an (Perl DBI). Das ist oft nützlich.
Last edited: 2013-08-22 15:42:53 +0200 (CEST)